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Model 25 Microprogram Listing 
1401/1460 Emulator - *E40 



PREFACE 



This publication contains a listing of the 1401/ 
1460 emulator microprogram, *Engineering 
change level and features present do not relate 
to any specific system, limiting the use of this 
listing to the classroom. 

The listing shown is actual and has not been 
altered in content in any way. 

Routines are in alphabetical sequence as shown 
in the listing index. 

*And is meant for use in the System/360 Model 
25 DPS/1400 Emulation Course 13217. 



Address any comments concerning the contents of this publication to: 
IBM, Field Engineering Education Media Development Center, Dept 916, 
Rochester, Minnesota 55901 



@ Copyright International Business Machines Corporation 1969 



Preliminary Edition 

THIS PUBLICATION IS IN A PRELIMINARY STATE OF 
DEVELOPMENT. ANY CORRECTION OR SUGGES- 
TIONS THAT YOU CAN OFFER FOR THE FORMAL 
PUBLICATION WILL BE APPRECIATED. 



MACHINE TYPE 
MASTER CONTROL 
tC # 128211 



MODEL 



SUM CHECK # 763A 



CORE LOAD *E40 



** SEE *E60 BCHK ** 



^ES/FCSI # 



PAGL III 
SERIAL # 

MACHINE STATUS 

DATE PREPARED 11/08/68 



FEATURES PRESENT 
2539228 DS0P1400 



FEATURES NOT PRESENT 
2542055 MEM24K 



2528681 STERLING 



ADDR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ NEXTLA8EL STATEMENT 



CL3AD=*E40, 
COMMENTS 



EC LEVEL=128211 PAGE 



*E40 


001 


T 


*E40 


002 


* 


#E40 


003 


* 


*E40 


004 


* 


*E40 


005 


* 


*E40 


006 


* 


*E40 


007 


* 


*E4Q 


008 


* 


*E40 


009 


* 


*E40 


010 


* 


*E40 


Oil 


* 


*E40 


012 


* 


*E4G 


013 


* 


*E40 


014 


# 


*E40 


015 


* 


*E40 


016 


* 


*E40 


017 


* 


*E40 


018 


* 


*E40 


019 


* 


*E40 


02 


* 


*E40 


021 


* 


*E40 


022 


* 


*E40 


02 3 


* 


*E40 


02 5 


* 


*E40 


026 


* 


*E40 


02 7 


* 


*E40 


02 8 


* 


*E40 


029 


* 


*E40 


030 


* 


*E40 


031 


* 


*E40 


042 


* 


*E40 


043 


* 


*E40 


044 


* 


*E40 


045 


* 


*E40 


046 


* 


*E40 


047 


* 


*E40 


048 


* 


*E40 


049 


* 


*E40 


050 


* 


*E40 


051 


* 


*E40 


052 


* 


*E40 


053 


* 


*E40 


054 


* 


*E40 


055 


* 


*E40 


05 6 


* 


*E40 


057 


# 


*F40 


059 


* 


*E40 


060 


* 


*E40 


061 


* 


*F40 


062 


* 


*F40 


063 


* 


*E40 


064 


* 


*F40 


065 


* 



1400 COMPATIBILITY 



BCPL 
BOIA 
IAAA 
IBCH 
ICLR 
ICMP 
ICOM 
ICTD 
ICYC 
ICYD 
IOIS 
IERR 
I MAD 
IMEM 
IMRC 
IMVZ 
INOX 
INIZ 
INRU 
INTP 
IOCM 
IPLS 
IAOD 
IOVO 
1MVE 
IMPY 
IMZS 
I EOT 
I RAD 
I REG 
IRST 
ISAB 
ISIC 
ISTP 
ISWM 
ITRP 
IUBR 
IZWM 
JCHL 
JDTA 
JEND 
JODE 
JTPE 
JTYP 
JYPE 
KAAA 
KAAF 
KAAH 
KAAN 
KAAQ 
KBBB 
KBBC 



RESIDENT CONTROL LOAD 

USERS INITIALIZATION PROCEEDURE 

BRANCH CHARACTER EQUAL OR ON INDICATOR 

CLEAR, CLEAR AND BRANCH 

COMPARE 

COMMON ROUT INES 

CONVERT ADD RESS TO DECIMAL 

I-CYCLES 

AUX ST0RAGE-2-0P CODE AND BIAS TABLE 

STOP ROUTINE 

A AND B INVALID ADDRESS CHECH 

MODIFY ADDRESS 

MEMORY SCAN 

MOVE RECORD 

MOVE ZONE OR DIGIT OPS 

INDEXING 

ADD BIAS AND MISC. INITIALIZING CONSTANTS 

SOFT STOPfI/0 AND CONSOLE REQUEST 

SENSE SWITCH, TAPE DENSITY AND START RESET 

MOVE OR LOAD I/O UNIT ADDRESS 

I PL START RESET 

ADD SUBTR. 

1400 DIVIDE 

MOVE AND LOAD OPS 

1400 MULTIPLY 

MOVE WITH ZERO SUPPRESS 

EDIT OP 

RESET ADD AND SUBTRACT 

STORE AND RESTORE REGISTERS 

SYSTEM RESET 

STORE A OR B STAR 

SET IC 

INSTRUCTION STEP 

CLEAR OR SET WORD MARKS 

MACHINE CHECK AND STORAGE WRAP TRAP ROUTINES 

UNCONDITIONAL BRANCH 

BRANCH ON ZONE, WORD MARKS OR TEST BIT 
SELECTOR CHANNEL 
READ AND WRITE DATA LOOPS 
ENDING ROUTINE AMD RDR-PUNCH REQ-IN 
OP CODE, D-MODIFIER OECOOE 
D-^ODIFIER-UNIT ADDRESS VERIFICATION 
ROUTINES 



1401 
1401 
1401 
1401 
1431 



TAPE 
TAPE 
TAPE 

TAPE 

TAPE 
TYPrfRITER 
DISPLAY 
START FILE 
SEARCH ID 
MAIN STATUS 
JNJSUAL STATUS 
END CONDITIONS 
XFER COMMAND DECODE 
DECREMENT SECT3* 



\ o pr 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E40, EC LEVFL = l?^Mt 
COMMENTS 



PAGE 



*E40 


066 


* 


*E40 


067 


* 


*E40 


068 


* 


*E40 


069 


* 


*E40 


070 


* 


*E40 


072 


* 


*E40 


073 


* 


*E40 


074 


* 


*E40 


075 


* 


*F40 


076 


* 


*E40 


077 


* 


*E40 


078 


* 


*E40 


079 


* 


*F40 


080 


:* 


*F40 


081 


* 


*E40 


08? 


* 


*E40 


083 


* 


*E40 


084 


* 


*E40 


085 


# 


*E40 


086 


* 


*E40 


087 


* 


*E40 


088 


* 


*E40 


089 


* 


*E40 


090 


* 


*E40 


091 


* 


*E40 


092 


* 


*F40 


093 


* 


*E40 


094 


* 


*E40 


095 


* 


*E40 


96 


* 



KBBO 
K8RE 
KRBG 
K8BH 
KFNQ 
LGPD 
LREQ 
LRTR 
LPTR 
LXFR 
LSSH 
LRXF 
LROR 
LPXF 
L^SU 
LPCH 
LPCB 
LERR 
MAAA 
MBBB 
MOOD 
MJJJ 
MKKK 
MILL 
MM/MM 
MNNN 
MPPP 
MQGQ 
MPRT 
M7.ZZ 



CONVERT BINARY COUNT FIFLO TO :M6 

SEEK OP 

DEVICE END 

INCREMENT BINARY DCF 

RESTORE STARS 

READ AND PJNCH IP 

READ RESET 

READFR TRA* 

NATIVE PJNCH TRAP 

READER XFE*-R14 IMAGE TO COL-BIN FO^M 

STACKER SELECT COMMAND 

TRANSFFR DATA AJX TO MAIN STORAGE 

READ ENDING 

PJNCH TRANSFER-EBCDIC TO R3W FIRM 

PJNCH OR PFR SET-IP 

PJNCH ENDING R3JTINES 

TRANSFER EBCDIC DATA TO COLUMN BINARY 

BRANCH AND PUNCH ERROR ROUTINE 

144? MODIFIER DECODE AND INITHL SELECTION 

144? READ CMNO AND STATUS DECODE 

1442 SENSE CMNO AND STATUS DECODE 

1443 MODIFIER DECODE AND INITIAL SELECTION 
1443 PRINT CMMD AND STATUS DECODE 

1443 DATA LOOP 

1443 SENSE STATUS DECODE 

1443 BRANCH ON BUSY 

1443 FORMS OP DECODE 

1443 BRANCH ON ERROR 

1403 PRINTER 

AUX STORE TABLE LOAD 



BCPL DESCRIPTIVE TEXT 



RESIDENT IN CONTROL STORAGE, 
RECORD OF EITHER THE CHANNEL 



THE BCPL ROUTINE IS NORMALLY 
AND IS USED TO LOAD THE INITIAL 
OR NATIVE BOOTSTRAP ROUTINES. 

IF THE BCPL ROUTINE HAS BEEN ALTERED, THE APPROPRIATE 
HANDLOAD INFORMATION MUST BE ENTERED TO BE SURE OF CORRECT 
CSL OPERATION, 



*** 

SWITCHS 
A,B = 
A,B = 
A, 3 = 
A,B = 



SWITCH SETTIN3S FOR CSL *** 



CC 
DD 
EE 
FF 



CSL 
CSL 
CSL 
CSL 



FROM 
FROM 
FROM 
FROM 



CHANNEL 
NATIVE 2560 
NATIVE 2540 
NATIVE 2311 



SWITCHES CD 



SET TO ACTUAL UNIT ADDRESS 



4 

5-68 

69-72 

73-77 

78-80 
*** WARNING 



;LOAD=*E40, EC LEVEL=128211 PAGE 



FOR PUNCHING CSL CARDS 



RTING ADDRESS TO BF LOADED 
DE INFORMATION 
DATA IS FOR PROGRAM STORAGE 
LAST CSL CARD OF DECK 
DATA IS FOR AUXILIARY STORAGE 
DATA IS FOR CONTROL STORAGE 
CONTAINS THE NUMBER OF HALFWORDS TO BE LOADED 

CONTAIN THE DATA 

DPTIONALt SAvj BE USED FOR ANY INFORMATION. 

*NNN9 WHE^E N IS THE CORE LOAD ID. 

XXX 3 DIGIT NUMBER INDICATING SEQ. OF PATCHES. 
DO NOT PUNCH CARDS TO LOAD INTO AUX MODULE l,3i 





PROCEDURE 


COLUMNS 




1-2 


CONTAIN STA 


3 


CONTAINS CI 




HEX 80 = 




HEX 40 = 




HEX 20 = 




HEX 10 = 



************************************************************************************** *******************^ **************** 

RESTRICTIONS WHEN PUNCHING CSL CARDS 



COLS 1-2 ALL ADDRESSES SHOULD BE EVEN. 

CONTROL STORAGE - THESE ADDRESSES SHOULD BE IN 
THE RANGE OF 0000-3FFE ONLY. 
AUXILIARY STORAGE- THE 2ND HEX CHARACTER IN 

COLUMN 1 SHOULD BE A ZERO. 
PROGRAM STORAGE - THE ADDRESS MUST BE IN THE 
RANGE OF THE SYSTEM. 
COL 3 CODED INFORMATION 

COL 4 COUNT FIELD - IF A COUNT OF IS INDICATED, 257 

HALFWORDS WILL BE LOADED. 



COLS 
COLS 



*** 



5-68 DATA FIELD - CAN BE ANYTHING 
69-80 SEE ABOVE. 

NOT USED BY THE CSL. 
WHEN LOADING A FULL DECK WITH REPLACE CARDS, THE 
REPLACE CARDS SHOULD GO JUST BEFORE THE END CARD. 
WHEN LOADING ONLY REPLACE CARDS, IT IS NECESSARY TO 
PUT THE CONTROL STORAGE CARDS (NORMALLY 4 1 FOR 
MODULE 01XX IN THE DECK. 

ORDER OF THE CARDS IS - BOOTSTRAP CARDS, CONTROL 
STORAGE CARDS FOR MODULE 01XX, REPLACE CARDS, END CARD. 



** **************************************************************************************************************** **************** 



** EXAMPLE OF PUNCHING AND LOADING A REPLACE CARD ** 



ASSUME THAT THE DE 

BURST CHANNEL NEEDED 

THE STANDARD ADDRE 

IS -OE- AND IS LOCAT 

ADDRESS -87-. 

THE CARD TO CHANGE 
FOLLOWING MANNER — 
COL 1 iHEX 00) 
COL 2 (HEX 86) 



COL 3 (HEX 20) 

COL 4 (HEX Oi) 



VICE ADDRESS FOR THE 1403 ON THE 

TO BE CHANGED TO -0A-. 
SS FOR THE 1403 ON THE BURST CHANNEL 
ED IN AUXILIARY STORAGE MODULE 0, AT 

THIS WOULD BE PUNCHED IN THE 

THIS ADDRESSES MODULE 0. 

ALTHOUGH THE CHANGE IS FOR ADDRESS 

87, THE HEX ADORESS REPRESENTED BY 

COLUMN 2 MUST BE EVEN. 

THIS INDICATES INFORMATION IS FOR 

AUXILIARY STORAGE. 

THIS INDICATES ONE HALFWORD TO BE 

LOADED. 



COL 5 



I HEX 03) 



COL 6 I HE 

COL 69-72 1008 

COL 73-77 <*E6 

COL 78-80 (001 



A CSL MUST BE PE 

INTO THE SYSTEM. 

END CARD* AND MUS 

CSLS USING THAT P 

*** EACH TIME A NE 

URATI3N CARDS 

AND INSERTED I 



X OA) 


6) 


09) 


) 


RFORME 


THE RE 


T BE P 


ARTICU 


W EC L 


IN THE 


N THE 



THIS REPRESENTS THE 1 
OF THE 2540 PUNCH THA 
RELOADED BECAUSE OF T 
RESTRICTION IMPOSED 3 
THIS REPRESENTS THE 
TO INDICATE START AD 
INDICATES PATCH IS F 
INDICATES 1ST PATCH 
REPLACING THE STANDAR 
THE 1403 ON THE BURST 
D TO LOAD THIS RECONFI 
CONFIGURATION CARD MUS 
RESENT IN THAT POSITIO 
LAR CORE LOAD DECK. 
EVEL DECK IS RECIEVED, 
DECK BEING REPLACED M 
NEW DECK IN FRONT OF T 



EVICE ADDRESS 

T MUST BE 

HE ADDRESSING 

Y COLUMN 2. 

DEVICE ADDRESS 

DR OF PATCH. 

OR *E60 CORE ID. 

TO DECK 

D ADDRESS FOR 

CHANNEL. 
GURATION CARD 
T PRECEED THE 
N FOR ALL 

ALL RECONFIG- 
UST BE REMOVED 
HE END CARD. 



PUNCHED CARD CODES 



CL0AD^*E40, EC LEVEL=128211 PAGE 



HEX PUNCHES 

00 T-0-9-3-1 

1 T-9-1 

0? T-9-2 

3 T-9-3 

)4 T-9-4 

3 T-9-5 

6 T-9-6 

07 T-9-7 

08 T-9-8 

09 T-9-8-1 
OA T-9-8-2 
03 T-9-8-3 
OC T-9-8-4 
OD T-9-8- 5 
6 t-9-8- 6 
Of- T-9-8- 7 

10 T-E- 9- 8-1 
il E-9-L 

12 E-9-2 

13 £-9-3 

14 E-9-4 

ib e-9-5 

16 E-9-6 

17 E-9-7 

18 E-9-8 

19 E-9-8-1 
1A E-9-8-2 
IB t-9-8- 3 
1C E-9-8-4 
ID E-9-8- 5 
IE E-9-8-6 
IF E-9-8-7 

2 E-0- 9-8-1 

2 1 0-9-1 

2 2 0-9-2 

2 3 0-9-3 

2 4 0- 9- 4 



. HEX PUNCHES 

. 2 5 0-9-5 

• 26 0-9-6 
. 27 0-9-7 
. 28 0-9-8 

. 2 9 0-9- 8-1 

• 2A 0-9-8-2 

• 2B 0-9-8-3 

• 2C 0-9-8-4 
. 2D 0-9-8-5 

• 2E 0-9-8-6 

• 2F 0-9-8-7 

. 30 T-E- 0-9- 8 

.31 9-1 

. 32 9-2 

• 33 9-3 

• 34 9-4 

• 35 9-5 
. 36 9-6 
. 37 9-7 
. 38 9-8 

• 39 9-8-1 
. 3A 9-8-2 
„ 3B 9-8-3 
. 30 9-8-4 

• 3D 9-8-5 
. 3E 9-8-6 
. 3F 9-8-7 
. 40 NONE 

• 41 T-0-9-1 
. 42 T-0- 9- 2 
. 43 T-0-9-3 
. 44 T-0- 9-4 
. 45 T-0-9-5 

• 46 T-0-9-6 
. 47 T-0-9-7 

• 48 T-0-9-8 

• 49 T-8-1 



• HEX PUNCHES 

• 4A T-8-2 
. 48 T-8-3 

• 4C T-8-4 
. '+D T-8-5 
. 4E T-8-6 
. 4F T-8-7 

• 50 T 

. 51 T-E-9-1 

. 52 T-E-9-2 

• 53 T-E-9-3 
. 54 T-E-9-4 

-1 . 55 T-E-9-5 

• 56 T-E-9-6 
. 5 7 T-E-9-7 
. 58 T-E-9-8 

• 59 E-8-l 
. 5A E-8-2 
. 58 E-8-3 
. 5C E-8-4 

• 50 E-8-5 

• 5E E-8-6 
. 5F E-8-7 
. 60 E 

• 61 0-1 

. 62 E-0-9-2 

. 63 E-0-9-3 

• 64 E-0-9-4 
•* 65 E-0-9-5 
. 66 E -0-9-6 

• 67 E-0-9-7 

• 68 E-0-9-8 
. 69 0-8-1 

• 6A T-E 

. 6B 0-8-3 

• 6C 0-8-4 

• 6D 0-8-5 
. 6E 0-8-6 



. HEX PUNCHES 

. 6F 0-8-7 

. 70 T-E-0 

. 71 T-E-0-9-1 

. 72 T-E-0-9-2 

. 73 T-E-0-9-3 

. 74 T-E-0-9-4 

. 75 T-E-0-9-5 

. 76 T-E-0-9-6 

• 77 T-E-0-9-7 

• 78 T-E-0-9-8 

• 79 8-1 
. 7A 8-2 
. 78 8-3 
. 7C 8-4 
. 7D 8-5 
. 7E 8-6 
. 7F 8-7 

. 80 T-0-8-1 

. 81 T-O-l 

. 82 T-0-2 

. 83 T-0-3 

. 84 T-0-4 

• 85 T-0-5 
. 86 T-0-6 
. 87 T-0-7 
. 88 T-0-8 
. 89 T-0-9 

. 8 A T-0-8-2 

. 8B T-0-8-3 

„ 8C T-0-8-4 

. 8D T-0-8- 5 

• 8E T-0-8-6 
. 8F T-0-8-7 
. 90 T-E-8-1 
. 91 T-E-i 

. 92 T-E-2 

. 93 T-E-3 



. HEX PUNCHES 

. 94 T-E- 4 

. 95 T-E-5 

. 96 T-E-6 

• 97 T-E-7 

• 98 T-E-8 
. 99 T-E- 9 

. 9A T-E- 8-2 

• .B T-E-8-3 
. 9C T-E- 8-4 
. 9D T-E- 8- 5 
. 9E T-E- 8-6 

• 9F T-E- 8- 7 
. AO E-0- 8-1 
. Ai E-O-l 

. A2 E-0- 2 

. A3 E-0- 3 

. A4 E-0- 4 

• A5 E-0- 5 

• A6 E-0- 6 
. A7 E-0- 7 
. A8 E-0- 8 
. A 9 E-0- 9 

. AA E-0- 8-2 

. AB E-0- 8- 3 

. AC E-0- 8-4 

. AD E-0-8-5 

. AE E-0- 8-6 

• AF E-0- 8-7 

, BO T-E-0-8-1 

. Bl T-E- 0-1 

. 82 T-E- 0-2 

• 83 T-E-0-3 
. 84 T-E- 0-4 
. B5 T-E-0-5 

• B6 T-E-0-6 
. 87 T-E- 0-7 

• B8 T-E-0-8 



HEX PUNCHES 

8 9 T-E-0-9 

3A T-E-0-8-2 

BB T-E-0-8-3 

BC T-E-0-8-4 

BD T-E-0-8-5 

BE T-E-0-8-6 

BF T-E-0-8-7 

CO T-0 

CI T-l 

C2 T-2 

C3 T-3 

C4 T-4 

C5 T-5 

C6 T-6 

C7 T-7 

C8 T-8 

C9 T-9 

CA T-0-9-8-2 

CB T-0-9-8-3 

CC T-0-9-8-4 

CD T-0-9-8-5 

CE T-0- 9- 8-6 

CF T-0-9-8-7 

DO E-0 

Dl E-l 

02 E-2 

03 E-3 

04 E-4 
D5 E-5 
D6 E-6 
D7 E-7 
D8 E-8 
D9 E-9 

DA T-E-9-8-2 

DB T-E-9-8-3 

DC T-E-9-8-4 

DD T-E-9-8-5 



. HEX PUNCHES 

. DE T-E-9-8-6 

• DF T -E-9-8-7 

• EO 0-8-2 

. El E -0-9-1 

• E2 0-2 

• E3 0-3 
. E4 0-4 
. E5 3-5 
. E6 0-6 

• E7 3-7 

• E8 0-8 
. E9 3-9 

• EA E -0-9-8-2 
. EB E-0-9-8-3 

• EC E-0-9-8-4 

• ED E-0-9-8-5 

• EE E -0-9-8-6 
. EF E-0-9-8-7 
. FO 

• Fl 1 

• F2 2 
. F3 3 
. F4 4 
. F5 5 
. F6 6 
. F7 7 
. F8 3 

• F9 9 

• FA T-E-0-9-8-2 
. FB T-E-0-9-8-3 

• FC T-E-0-9-8-4 

• FD T-E-0-9-8-5 

• FE T-E-0-9-8-6 

• FF T-E-0-9-8-7 
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*** 



HANDLOAD ROUTINE FOR NATIVE 2540 



HANOLOAO ROUTINE FOR CHANNEL 



ADDR 



WORD 



0010 


3210 


00 12 


2610 


0014 


2C07 


GO 16 


2413 


0018 


8062 


0062 


2406 


0064 


2617 


0066 


2783 


0068 


3775 


006A 


2507 


006C 


4066 


006E 


5EEF 


0070 


DE6E 


00 72 


5B3F 


0074 


6 348 


0076 


736A 


0078 


FOEE 


007A 


161B 


00 7C 


FOE 7 


OOTt 


8100 



STATEMENT 

SET MMSK K=8i 

SET BC K=01 

PG=0 

G0=0$K01 

BR 

SET MODE K=30 

DO=0$Kll 

D1=0$K08 

D1^D1$K70 

GL = 

U=0 

HO^RPS 

BR IF HOl^O 

Vi=RPl 

STB VI CS,G+1 

STB VI AS,0-1 

BR IF LZNZ 

00=D0nK01 

BR IF LZ=0 

BR 



COMMENT 

BLOCK TRAPS 

SET LOGOUT LATCH 

ZERO OUT SWITCH 

START SETUP OF AOOR 100 

BRANCH TO LOCATION 0062 

SET 2540 MODE 
BUILD AUXILIARY 
STORAGE ADDRESS 
FOR COMPARING 
FINISH SETUP OF ADDR 0100 
SAVE COMPARE ADDRESS 
READ 2540 STATUS 
BACK ONE WORD IF NO DATA 
GET READ BRUSH 1 DATA 
PUT DATA IN CONTROL STOR 
PUT DATA IN COMP TABLE 
GO WAIT FOR MORE DATA 
INVERT FIRST TIME SWITCH 
BRANCH BACK IF FIRST TIME 
BRANCH TO BOOTSTRAP 



ADDR 



WORD 



0010 


3210 


0012 


2610 


0014 


2C07 


0016 


2413 


0018 


51AF 


001 A 


802C 


002C 


2486 


002E 


2507 


0030 


2808 


0032 


C9B3 


00 34 


4FAF 


0036 


2B04 


0038 


2B44 


003A 


C9BA 


003C 


2B40 


003E 


CDBE 


0040 


2B23 


0042 


4F8F 


0044 


2B42 


0046 


FDC6 


0048 


5FBF 


004A 


C4CA 


004C 


2B48 


004E 


FDCF 


0050 


EDGE 


0052 


5FFF 


0054 


F058 


0056 


7F48 


0058 


F05C 


005A 


6F48 


005C 


055D 


005E 


C4CC 


0060 


8100 



STATEMENT 

SET MMSK K=8l 

SET BC K=01 

P0=0 

GO=0$KOl 

TO=SWCD 

BR 

SET MODE K=38 

G1 = 

SET GA K=40 
BR IF GT4=1 
GB/3UT=T0 
SET QA K=20 
SET GA K=24 
BR IF GT4=0 
SET GA K=04 
BR IF GT0=0 
T1=0$K02 
GB/DUT^Tl 
SET GA K=14 
BR IF GT3=0 
T1=GB/IN 
BR IF ZNZ 
SET GA K=44 
BR IF GT3=1 
BR IF GT2=0 
Hi=3B/IN 
BR IF G07=l 
STB HI AS,G+i 
BR IF G07=0 
STB HI CS,G+l 
Z=GlnK50 
BR IF ZNZ 
BR 



COMMENT 

BLOCK TRAPS 

SET LOGOUT LATCH 

ZERO OUT SWITCH 

START SETUP OF ADDR 0100 

SWCD EQUAL DEVICE ADDR. 

BRANCH TO LOCATION 002C 

SET CHANNEL MODE, CPU ZONE 

FINISH SETUP OF ADDR 0100 

SET SERVI CE OUT 

BRANCH ON OP IN 

SEND DEVICE ADDRESS OUT 

RAISE ADDRESS OUT 

AND SELECT OUT 
WAIT FOR OP IN 
RESET ADDRESS OUT 
WAIT FOR ADDRESS IN 
BUILD READ COMMAND 
SEND OUT READ COMMAND 
RAISE COMMAND OUT 
WAIT HERE FOR STATUS 
READ STATUS 

LOOP HERE IF INVALID STAT 
SET SERVICE OUT 
WAIT FOR 

DATA 
GET DATA BYTE 
BR IF BOOTSTRAP READING 
NOT BOOT INFO, STOR IN AUX 
UNCONDITIONAL BRANCH 
PUT BOOT IN CNTRL STORAGE 
CHECK IF ALL DATA IN, 

IF NOT, GET MORE, 
BRANCH TO BOOTSTRAP 



CL0AD=*E40, EC LEVEL = 128211 PAGE 



HANOLOAD ROUTINE FOR 2311 



*** 



HANDLOAD ROUTINE FOR 2560 



ADDR 



WORD 



0010^ 


3210 


0012 


2610 


0014 


2CC7 


0016 


8076 


0076 


2490 


0078 


2813 


007A 


2907 


007C 


4A86 


007E 


2F15 


OOBO 


2EX5 


0082 


2023 


0084 


4D9F 


0086 


0E08 


0088 


0E04 


008A 


49EF 


008C 


4EDF 


008E 


48FF 


0090 


2E63 


009 2 


3E15 


0094 


4FEF 


0096 


2E43 


0098 


E598 


009A 


4EEF 


009C 


48 FF 


009E 


3D00 


OOAO 


E5A1 


00A2 


1000 


00A4 


50EF 


00A6 


CA25. 


00A8 


C1A9 


OOAA 


810A 



* NOTE * 



STATEMENT 

SET MMSK K=8i 
SET BC K=01 
P0=0 
BR 

SET MODE K=09 

I 0=0$K01 

I 1 = 

T=! 

HlaOSKlO 

H0=0$KX0 

P1=0$K02 

FFQ=I1 

RST FIB K=40 

RST FIB K=20 

MS=HO 

FB0=P1 

TGR0=H1 

H0=0$K06 

H0=H0$K10 

FOP=HO 

H0=0$K04 

BR IF DASI2=0 

FB0=H0 

TGR0=H1 

SET FIA K=80 

BR IF DASI2=1 

RST FIA K~80 

HO^TGRI 

BR IF H04=l 

BR IF DASI4=1 

BR TO 01 OA 



COMMENT 

BLOCK TRAPS 

SET LOGOUT LATCH 

ZERO OUT SWITCH 

BRANCH TO LOCATION 0076 

SET 2311 MODE 
SET I -REG 

TO 0100 
MOVE 0100 TO T-REGISTER 

SET UP MODULE SELECT * NOTE * 
SET UP RETURN BIT f BIT 6) 
SEND ZERO TO FILE FLAGS OUT 
ISSUE INITIAL RESET 
ISSUE COLD-START RESET 
LOAD MODULE SELECT REGISTER 
SEND RETURN TO FILE BUS OUT 
MOVE CONTROL BIT TO TAG REG 
SET UP FILE 0P f COUNT 

OF ONEt DATA READ 
MOVE OP TO FILE OP REGISTER 
SET UP SELECT HEAD 
BR TO ITSELF IF NO GATED ATT. 
MOVE 04 TO FILE BUS OUT 
MOVE CNTRL BIT TO TAG REG OUT 
SET GO LATCH 

BR TO ITSELF IF GATED ATTEN* 
RESET TRAP LATCH 
GET TAG REGISTER IN 
BR BACK ONE WORD IF NO TRAP 
LOOP ON ITSELF IF ERROR 
BR TO BOOTSTRAP 



THE X IN THE CONTROL WORD HAS THE 
FOLLOWING SIGNIFICANCE- 

X=8 SELECT DRIVE NUMBER 

X=4 SELECT DRIVE NUMBER 1 

X=2 SELECT DRIVE NUMBER 2 

X=l SELECT DRIVE NUMBER 3 



ADDR 


WORD 


STATEMENT 


0010 


3210 


SET MMSK K=8l 


0012 


2610 


SET BC K=01 


0014 


2C0 7 


P0=0 


0016 


2413 


G0=0$K0l 


0018 


80AC 


BR 


OOAC 


240E 


SET MODE K = 70 


OOAE 


2F04 


SET MFA K=20 


0080 


2507 


G1=0 


00B2 


5FDF 


Pi = MFD8 


00B4 


DA88 


BR IF MFT5=0 


00B6 


ED33 


BR IF P12^1 


00B8 


2F10 


SET MFA K=Ol 


OOBA 


DAC6 


BR IF MFT5=0 


00 BC 


CA89 


BR IF MFT4=l 


OOBE 


58FF 


Hl^MFRl 


OOCO 


5AEF 


H0=MFR2 


00C2 


4EF3 


HI=H0XH+H1L 


00C4 


6F48 


STB Hi CS,G + i 


00C6 


2B14 


SET MFC K=21 


00C8 


05 5D 


Z=GlnK50 


OOCA 


C484 


BR IF ZNZ 


OOCC 


8100 


BR 




NOTE 2 - 


IN ORDER TO U 



COMMENT 

BLOCK ALL TRAPS 

SET LOGOUT LATCH 

ZERO HANOLOAD FLAG REGISTER 

BUILD HIGH HALF CS ADDR. 0100 

BR TO OOAC 

PUT IN MOD/20, 2560 MODE 
SELECT SEC FEED (NOTE 2) 

LOW HALF CS ADDR. G=0100 

BR TO 0088 IF NPRO REQ 

BR IF NOT READY 

SET READ EX. 

CHECK NPRO 

BR ON NO DATA AVAIL 

REAO 1/2 BYTE 

READ THE OTHER 1/2 

PUT TWO 1/2 BYTES TOGETHER 

STORE THEM 

RST NPRO, AND RD. EX. 

CHECK FOR 80 BYTES 

IF NOT 80, 50 TO 00B4 

BR TO BOOTSTRAP ADDR 0100 



THE PRIMARY FEED, 
REPLACE THIS WORD WITH 2F80. THE START 
KEY MUST BE PRESSED AT THE END TO 
COMPLETE THE CSL ILAST CARD ). 



************************* 



FOR BOOTSTRAP 
INFORMATION, REFER 
TO THE AKXXX LOGIC 
PAGES. 



************************* 
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■\:)DK 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL STATEMENT 


CC 


3MMENTS 






BCPL 


001 


T 


CSL 


RESIDENT ROUTINE 










BCPL 


002 


ATABLE 


AODR=0000 










J 00 


8000 


BCPL 


003 


LOCKON 


003 


LOCKON 


BR 






K)0 2 


OBAD 


BCPL 


004 


C 






XCTL* 0BAD0BAD08AO0BAD08A0OBAO 1 


0E 


80AC 


BCPL 


005 


N2560 


087 


R02560 


BR 










BCPL 


006 


* 


THE FOLLOWING 


WORD 










BCPL 


007 


* 


IS THE FIRST 


WORD 










BCPL 


008 


* 


OF 


THE CSL TRAP 






J J 10 


3210 


BCPL 


009 








SET MMSK K=81 




BLOCK ALL TRAPS 


0012 


2610 


BCPL 


010 








SET BC K=01 




SET LOG OUT LATCH 


0014 


50CF 


BCPL 


Oil 








PO=SWAB 




READ 


0016 


51AF 


BCPL 


012 








TO=SWCD 




SWITCHES 


)0l8 


2413 


BCPL 


013 








GO=0$KOl 




SET UP C S ADDRESS 


001A 


OCCF 


BCPL 


014 








Z=POnKCC 


CHECK 


FOR 


OulC 


C4AD 


BCPL 


015 




023 


CHANEL 


BR IF Z=0 


CHANNEL 


00 IE 


OCQF 


BCPL 


016 








Z=POaKDD 


CHECK 


FOR 


0020 


C48F 


BCPL 


017 




005 


N2560 


BR IF Z=0 


2 560 




0022 


OCEF 


BCPL 


018 








Z=POaKEE 


CHECK 


FOR 


f >0 24 


C4E3 


BCPL 


019 




050 


N2 540 


BR IF Z=0 


2540 




00 2 6 


OCFF 


BCPL 


020 








Z=P0nKFF 


CHECK 


FOR 


^0 26 


C4A8 


BCPL 


021 


SWIERR 


021 


SWIERR 


BR IF ZNZ 


2311 




00? A 


80DE 


BCPL 


022 




106 


FILE 


BR 






■00 2C 


2486 


BCPL 


023 


CHANEL 






SET MODE K=38 


CHAN 


PUT IN CHANNEL MODE 


00 2E 


2507 


BCPL 


024 


AGAIN 






G1 = 


CHAN 


CS ADDRESS 


)30 


2BC8 


BCPL 


025 








SET GA K=40 


CHAN 




32 


C9B3 


BCPL 


026 


OPIN 


026 


OPIN 


BR IF GT4=1 


CHAN 


BR ON OP IN 


0J34 


4FAF 


BCPL 


02 7 








GB/OUT=TO 


CHAN 


SEND OUT DEVICE ADDRESS 


■0 36 


2604 


BCPL 


028 








SET GA K=20 


CHAN 


RAISE ADDR, 


00 3 8 


2B44 


BCPL 


029 








SET GA K=24 


CHAN 


AND SEL OUT 


00 3 A 


C9BA 


BCPL 


030 


OP I NOT 


030 


OP I NOT 


BR IF GT4=0 


CHAN 


WAIT FOR OP IN 


3C 


2B40 


BCPL 


03 1 








SET GA K=04 


CHAN 


RESET ADDR. OUT 


00 3 E 


CDBE 


BCPL 


032 


ADOIN 


032 


ADDIN 


BR IF GTO=0 


CHAN 


WAIT FOR ADDR IN 


140 


2B-23 


BCPL 


033 








T1=0$K02 


CHAN 


BUILD READ CMND 


)0 42 


4FBF 


BCPL 


034 








GB/0UT=T1 


CHAN 


SEND OUT THE CMND 


0044 


2B42 


BCPL 


035 








SET GA K=14 


CHAN 


RAISE COMMAND OUT 


)0 46 


F0C6 


BCPL 


036 


STATUS 


036 


STATUS 


8R IF GT3=0 


CHAN 


WAIT FOR STATUS 


0u48 


5FBF 


BCPL 


037 








T1=GB/IN 


CHAN 


READ STATUS 


00 4 A 


C4CA 


BCPL 


038 


FRRORA 


038 


ERRORA 


BR IF ZNZ 


CHAN 


LOOP INVALID INITIAL STATS 


4C 


2B48 


BCPL 


03 9 


STATC 






SET GA K=44 


CHAN 


SET SERVICE OUT 


004E 


FDCF 


BCPL 


040 


STATB 


040 


STATB 


BR IF GT3=l 


CHAN 


STATUS LOOP 


0u50 


EDCE 


BCPL 


041 




040 


STATB 


BR IF GT2=0 


CHAN 


SERVICE LOOP 


) )52 


5FFF 


BCPL 


042 








Hl=GB/IN 


CHAN 


GET DATA 


0054 


F05B 


BCPL 


043 




046 


FIRSTC 


BR IF G07=l 


CHAN 


FIRST TIME BOOTSTRAP 


00 56 


7F48 


BCPL 


044 








STB HI AS*G+1 


CHAN 


NOT 1ST PUT IN AUX 


0358 


F05C 


BCPL 


045 




047 


DECREM 


BR IF G07=0 


CHAN 


UNCONDIT BRANCH 


00 5 A 


6F48 


BCPL 


046 


FIRSTC 






STB HI CS,G*1 


CHAN 


1ST TIME PUT IN C S 


5C 


0550 


BCPL 


047 


DECREM 






Z=GlaK50 


CHAN 


CHECK IF ALL 


00 5E 


C4CC 


BCPL 


048 




039 


STATC 


BR IF ZNZ 


CHAN 


BYTES XFERED 


0060 


8100 


BCPL 


049 


C 






XCTL f 8100* 


CHAN 


GO TO BOOTSTRAP 


00 62 


2406 


BCPL 


050 


N2540 






SET MODE K=30 


2540 


PUT IN 2540 MODE 


0064 


2617 


BCPL 


051 








DO=0$Kll 


2540 


BUILD COMPARE 


0066 


2783 


BCPL 


052 


CYCLE 






D1=0$K08 


2540 


ADDRESS WHERE CARD 


U068 


37 75 


BCPL 


053 








D1=D1$K70 


2540 


IMAGE IS STORED 



ADOR 



WORD SEQUENCE NO, LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



00 6 A 


2 507 


BCPL 


054 




00 6C- 


4066 


BCPL 


055 




006E 


5EEF 


BCPL 


056 


DA TA I N 


00 70 


DE6E 


BCPL 


057 




0072 


5B3F 


BCPL 


058 




0074 


6348 


BCPL 


059 




0076 


736A 


BCPL 


060 




0078 


FOEE 


BCPL 


061 




007A 


1618 


BCPL 


062 




00 7C 


F0E7 


BCPL 


063 




00 7E- 


8100 


BCPL 


064 


C 


00 80 


6FE3 


BCPL 


065 


MOO 


00 82 


6EE3 


BCPL 


066 


MOD 1 


0084 


6EE3 


BCPL 


067 


MOO 2 


0086 


0E0 8 


BCPL 


068 


MOD 3 


0088 


0EG4 


BCPL 


069 




00 8 A 


49EF 


BCPL 


070 




008C 


4EDF 


BCPL 


071 




00 8 E. 


4BFF 


BCPL 


072 




0090 


2E63 


BCPL 


073 




00 9 2 


3E15 


BCPL 


074 




0094 


4FEF 


BCPL 


075 




0096 


2E43 


BCPL 


076 




0098 


E598 


BCPL 


077 


&AITFL 


009A 


4EEF 


BCPL 


078 




0U9C 


4BFF 


BCPL 


079 




0096 


3000 


BCPL 


080 




OOAO 


E5A1 


BCPL 


081 


WAIENA 


00A2 


1000 


BCPL 


082 




00A4 


50EF 


BCPL 


083 


WAIENB 


00A6 


CA25 


BCPL 


084 




00A8 


C1A9 


BCPL 


085 


ER 


OOAA 


810A 


BCPL 


086 


C 


00 AC 


240E 


BCPL 


087 


R02560 


00 A E 


25C7 


BCPL 


088 




OOBO 


2F04 


BCPL 


089 




00 B 2 


5FDF 


BCPL 


090 


K5RDY 


00 B4 


DA88 


BCPL 


091 


K6NP0 


00B6 


ED33 


BCPL 


092 




00B8 


2F10 


BCPL 


093 


FEED 


OOBA 


DAC6 


BCPL 


094 




OOBC 


CAB9 


BCPL 


095 




OOBE 


58FF 


BCPL 


096 




OOCO 


5AEF 


BCPL 


097 




00C2 


4EF3 


BCPL 


098 




00C4 


6F48 


BCPL 


099 




00C6 


2B14 


BCPL 


100 


NOIT 


00C8 


0550 


BCPL 


101 




OOCA 


C4B4 


BCPL 


102 




OOCC 


8100 


BCPL 


103 


C 


OOCE 


FFFF 


BCPL 


104 


c 


00 DC 


FFFF 


BCPL 


105 


c 


OODE 


2B07 


BCPL 


106 


FILE 



056 OATAIN 



056 
052 



OATAIN 
CYCLE 



077 WAITFL 



081 WAIENA 



083 
085 



093 
090 

100 
093 



WAIENB 
ER 



FEED 
K5R0Y 

NOIT 
FEED 



091 K6NP0 



G1 = 

LND 

HO=RPS 

BR IF HO' 1*0 

Vl^RPl 

STB VI CS,G+i 

STB VI AS, 0-1 

BR IF LZNZ 

D0=D0nK01 

BR IF LZ=0 

XCTL f 8l00 f 

H0=H0*H0 

HO=HO+H0 

HO = HO ♦ HO 

RST FIB K=40 

RST FIB K=20 

MS = HO 

FB0=P1 

TGRO^Hl 

H0=0$K06 

H0=HG$K10 

FGP^HO 

HG=0$K04 

BR IF OAS 12*: 

FB0=H0 

TGR0=H1 

SET FIA K*80 

BR IF DASI2=i 

RST FIA K*80 

HO^TGRI 

BR IF H04-1 

BR IF OAS 14=1 

XCTL*810A« 

SET MODE K=70 

G1 = 

SET MFA K=20 

Pi=MFD8 

BR IF MFT5=0 

BR IF P12=1 

SET MFA K=01 

BR IF MFT5=0 

BR IF MFT4=l 

Hi=MFRl 

H0-MFR2 

H1=H0XH+H1L 

STB HI CS,G+i 

SET MFC K=21 

Z=GlnK50 

BR IF ZNZ 

XCTL« 8100* 

XCTL 1 FFFFFFFFFFF 

XCTL 1 FFFF* 

T1 = 



2540 
25 40 
2540 
2540 
2540 
2540 
2540 
2540 
25 40 
2540 
2540 
2311 
2311 
2311 
2311 
2311 
2311 
2311 
2311 
2311 
2311 
2311 
2311 



CL0A0=*E40, EC LEVEL=1282 11 
COMMENTS 

ZERO REG FOR CONTROL ADDR. 
SAVE COMPARE AODRESS 
WAIT FOR 

DATA AVAILIBLE 
READ 1ST BRUSH DATA 
-STORE IN CONTROL STORE 
-STORE IN AUX COMPARE TBLE 
STAY IN DATA LOOP FOR i CO 
INVERT FLAG 

CHECK FOR 2ND TRAP CYCLE 
GO TO BOOTSTRAP 

BUILD 
MODULE 
NUMBER 

COLO START RESET 

COLD START RESET 

SELECT MODULE 

SET RETURN TO ZERO Pl=02 

SET CONTROL H1=10 

SET READ 



PAGE 



OATA OP 
START HEAD SELECT 
WAIT FOR END 
HEAD 

SELECT 
GO 

WAIT FOR 
*ESET TRAP REQ 
WAIT FOR FILE 

TRAP REQUEST 
ERROR LOOP 
GO TO BOOTSTRAP 
2560 PUT IN 20,2560 MODE 
2560 

SELECT SEC FEED 
CALL IN FOR ROY CHK 
BR IF NPRO REQ 
BR IF NOT RDY 
SET READ EXECUT 
BRANCH IF NPRO 
8RANCH IF NO DATA 
1 / 2 BYTE 
READ OTHER HALF 

PUT THEM TOGETHER 
2560 STORE DATA IN C S 
2560 RST RO EX AND NPRO 
2560 

2560 NOT DONE BRANCH 
2560 GO TO BOOTSTRAP 
FFFFFFFFFFFFFFFFF" 

2311 CORRECT PARITY 



2311 
2311 
2311 
2311 
2311 
2311 
2311 
23 11 
2311 



2560 
2560 
2560 
2560 
2560 
2560 
2560 
READ 



ADOR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E40, EC LEVEL=1282il 
COMMENTS 



PAGE 



OOEO 


6A02 


BCPL 


107 


00E2 


2490 


BCPL 


108 


00E4 


2813 


BCPL 


109 


00E6 


2907 


BCPL 


110 


00 E 8 


4A86 


BCPL 


111 


OOEA 


4C02 


BCPL 


112 


OOEC 


2F15 


BCPL 


113 


OOEE 


5FE9 


BCPL 


114 


OOFO 


2D23 


BCPL 


115 


00F2 


409F 


BCPL 


116 


00F4 


8811 


BCPL 


117 


00F6 


54E8 


BCPL 


118 OVRLAY 


00F8 


6488 


BCPL 


119 


OOFA 


FA76 


BCPL 


120 


OOFC 


0608 


BCPL 


121 


OOFE 


88FE 


BCPL 


122 C 






BCPL 


123 AEND 



065 MOO 



118 OVRLAY 



STH T DC, 88 


2311 


SET MODE K-09 


2311 


IO=0$KOi 


2311 


11=0 


2311 


T=l 


2311 


RDH P DC, 88 


2311 


H1=0$K10 


2311 


H0=H1 


2311 


P1=0$K02 


2311 


FFCN11 


2311 


N=PO BITS67 


2311 


RDH G AS,H*2 


END 


STH G CS, 1+2 


END 


BR IF H07=0 


END 


RST BC K=40 


END 


XCTL^SFE' 


END 



********************************** 

* CROSS REFERENCE FOR CSECT BCPL * 
********************************** 



BCPL 


003 


BCPL 


003 


BCPL 


005 


BCPL 


017 


bCPL 


021 


BCPL 


021 


BCPL 


023 


BCPL 


015 


BCPL 


026 


BCPL 


026 


BCPL 


030 


8CPL 


030 


BCPL 


032 


BCPL 


032 


BCPL 


036 


BCPL 


036 


BCPL 


038 


BCPL 


038 


BCPL 


039 


BCPL 


048 


BCPL 


040 


BCPL 


040 BCPL 041 


BCPL 


046 


BCPL 


043 


BCPL 


047 


BCPL 


045 


BCPL 


050 


BCPL 


019 


BCPL 


052 


BCPL 


063 


BCPL 


056 


BCPL 


057 BCPL 061 


BCPL 


065 


BCPL 


117 


BCPL 


077 


BCPL 


077 


BCPL 


081 


BCPL 


081 


BCPL 


083 


BCPL 


084 


BCPL 


085 


BCPL 


085 


BCPL 


087 


BCPL 


005 


BCPL 


090 


BCPL 


0S2 


BCPL 


091 


BCPL 


102 


BCPL 


093 


BCPL 


091 BCPL 095 


BCPL 


100 


BCPL 


094 


BCPL 


106 


BCPL 


022 


BCPL 


118 


BCPL 


120 



SAVE MODULE 

SET FILE MODE ZONE 

BUILD COUNT AND 

CONTROL STORAGE 
ADDRESS 
RETRIEVE MODULE 
CONSTANTS FOR 

SELECTION 



OVERLAY AUX 1000 
INTO CONTROL 
0100 
RESET CSL LIGHT 
BRANCH TO 08FE 



BDIA DESCRIPTIVE TEXT 



CL0AD^*E40, EC LEVEL=1282 11 PAGE 10 



THE RESIDENT MICRODI AGNOSTIC -BDIA- IS ENTERED WHEN 
i. THE SYSTEM RESET KEY IS RELEASED 

{ TRAP TO ADDRESS 0240) 
2* THE LOAD KEY IS RELEASED 

J TRAP TO ADDRESS 0240) 
3. THE CONTROL STORAGE LOAD ROUTINE -8CPL- IS 
FINISHED LOADING A CSL DECK. 

(BRANCH TO LABEL * VERSGN * J 



ERRORS ARE INDICATED BY 

1. A ONE WORD BRANCH LOOP 

2. A STOP WORD 

3. A BRANCH TEST STOP FAILURE 

A ONE WORD BRANCH LOOP IS IDENTIFIED BY THE SYSTEM 
LIGHT ON AND THE MANUAL LIGHT OFF. THE CLOCK WILL RUN BUT 
THE MICROPROGRAM DOES NOT PROGRESS* 



THE -BDIA- ROUTINE TESTS THE CPU HARDWARE NEEDED TO 
PERFORM A CONTROL STORAGE LOAD OPERATION- NO I/O DEVICE 
OR ATTACHMENT CIRCUITS ARE TESTED. 

THE TESTS PERFORMED BY THE -BDIA- ROUTINE ARE - 
BRANCHING TEST 
ALU TEST 

MODE REGISTER SET/RST TEST 
STORAGE TEST 
X LINE ADDRESSING TEST 
LOCAL STORAGE SET/RST TEST 
ALU ERROR DETECTION TEST 

STORAGE DATA, CONTROL WORDt STORAGE ADDRESS TEST 
A AND B REGISTER PARITY DETECTION TEST 



A STOP WORD CMOVE/ARITH-WORD TYPE 31 CAUSES THE CLOCK 
TO STOPt THE CLOCK STOP LIGHT IS ON, THE SYSTEM LIGHT IS 
OFF, THE MANUAL LIGHT IS ON, AND THE ADDRESS DISPLAYED IS 
THE ADDRESS OF THE CONTROL WORD FOLLOWING THE STOP WORD, 

A BRANCH TEST STOP FAILURE IS CAUSED BY A BRANCH ON 
CONDITION WORD OR RETURN WORD FAILING TO REACH A WORD THAT 
SETS THE DR-REGISTER. DR BIT 7 IS SET PRIOR TO EACH 
OF THE BRANCH TESTS, AND THE BRANCH OR RETURN MUST POINT 
TO A SET OF THE DR-REGISTER. THE FAILURE IS INDICATED 
BY THE CLOCK OFF, THE CLOCK STOP LIGHT IS ON, SYSTEM LIGHT 
OFF, MANUAL LIGHT ON, AND, THE ADDRESS OF THE NEXT 
SEQUENTIAL WORD FOLLOWING THE WORD REACHED IN ERROR, 
DISPLAYED IN THE CONSOLE LIGHTS. 



ADDR 



08FE 



AAFA 



0240 



2810 



!QUEN< 


:e no* 


LABEL 


NEXTSEQ 


BDIA 


001 


T 




BDIA 


002 


ATABLE 


ADDR=08FE 


BDIA 


004 


VERS0N 


1NIZ 002 


BDIA 


012 


AEND 




BDIA 


013 


ATABLE 


ADDR=0240 


BDIA 


014 


* 




BDIA 


015 


* 




BDIA 


016 


* 




BDIA 


017 


* 




BDIA 


018 


START 




BDIA 


019 


* 




BDIA 


020 


* 




BDIA 


021 


* 




BDIA 


022 


* 




BDIA 


023 


* 




BDIA 


024 


* 




BDIA 


025 


* 




BDIA 


026 


* 




BDIA 


027 


* 




BDIA 


028 


* 




BDIA 


029 


* 





NEXTLABEL STATEMENT 

BDIA BASIC DIAGNOSTIC 



COMMENTS 



BEGIN 



BR 



SET DR K=*01 



GO INITIALIZE AUX STORE, 



DEPRESSION OF THE SYSTEM RESET 
BUTTON OR LOAD BUTTON NILL CAUSE 
A HARDWARE TRAP TO ADORE SS 0240. 

SET DR-7. DR 7 IS USED IN 
CHECKING THE BRANCHING FUNCTIONS 
OF THE MOD 25. A OIAG BR LATCH 
IS SET EVERYTIME A MOD 25 BRANCH 
OR RETURN FUNCTION IS EXECUTED 
AND DR 7 IS ON. IF THE NEXT 
MICROINSTRUCTION AFTER THE BR 
OR RETURN DOES NOT ISSUE A SET 
TO THE DR REG, A HARD STOP WILL 
OCCUR AT THE COMPLETION OF THAT 
MACHINE CYCLE. 



A DDR 
0242 



WORD 
3210 



SEQUENCE NO, 



LABEL 



02 44 



0246 
0248 

024A 

24C 



02 4E 
0250 



2 52 

2 54 



0256 



02 3C 



02 3E 



2400 



F8CB 
B7C9 

2810 
25F3 



C54F 
2810 



0553 
2810 



E53C 



2810 



F56C 



BDIA 

BDIA 
BDIA 
BDIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 



030 
031 
032 
033 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
06 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 



NEXTSEQ NEXTLA8EL STATEMENT 



SET MMSK K=8l 



* 
* 

* 

* 

* 



CL0AD=*E40t EC LEVEL=1282 1i 
COMMENTS 

SET SYSTEM RESET PRIORITY 
BITtMMSK~8t. 

THE FIRST WORD OF THE TRAP SETS 
TFE DIAG BR LATCH TO INSURE A 
MACHINE STOP IF AN ERRONEOUS 
BRANCH STATEMENT IS EXECUTED 
THE SECOND WORD OF THE TRAP SETS 
MMSK 8 TO PREVENT FURTHER TRAPS 
FOR THE SAME SYST R ST/LOAD TRAP 
REQUEST. AS A RESULT OF THE 
DELAYED SETTING OF MMSK 8, THE 
TRAP WILL OCCUR TWICE FOR EACH 
SYSTEM RST/LOAD TRAP REQUEST. 
THEREFORE, THE FIRST TWO WORDS 
WILL BE EXECUTED TWICE BEFORE 
THE FOLLOWING WORD IS EXECUTED. 

SET MODE K=00 

STORAGE ZONE 4. 
***************************** ******** ******** ************************ 

BRANCHING TEST. 
********************************************************************* 

056 BCDR7 BR IF DR BIT 7=1 

122 DR70FF N N=BAH 
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8CDR7 



BCG10N 



* 
* 

BCG11N 

* 

* 
* 

AEND 
A TABLE 
BCG12Y 

* 

* 

AEND 
ATABLE 



SET DR K=01 
G1=0$K0F 



061 BCG10N BR IF Gl BIT0=1 

SET DR K=01 



066 BCGUN BR IF Gl BIT1=1 

SET DR K=01 



075 BCG12Y 



ADDR=023C 



083 BCG13Y 
ADDR=026C 



BR IF Gl BIT2=0 



SET DR K=Oi 



BR IF Gl BIT3=0 



BR TO 024A IF DR-7 IS ON 

DR 7 SHOULD BE ON. BRANCH ON 
BA HIGH FOR BETTER RESOLUTION. 

SET DR-7 TO CONTINUE BR TESTS. 

ATTEMPT TO SET Gl REG = 00001111 
IF A STOP OCCURS AT THE ADDRESS 
OF THE NEXT WORD, Gl WAS SET 
WRONG OR THE BRANCH TEST FAILED. 

G10=0 SHOULD NOT BRANCH. 

SET DR-7 TO CONTINUE BR TESTS. 
IF A STOP OCCURS AT THE ADDRESS 
OF THE NEXT WORD, Gl WAS SET 
WRONG OR THE BRANCH TEST FAILED. 

G11=0 SHOULD NOT BRANCH 

SET DR-7 TO CONTINUE BR TESTS. 
IF A STOP OCCURS AT THE NEXT 
SEQUENTIAL WORD FOLLOWING THIS 
BRANCH, Gl WAS SET WRONG OR THE 
BRANCH TEST FAILED. 

G12-0 SHOULD BRANCH TO ADR 023C 



SET DR-7 TO CONTINUE BR TESTS. 
IF A STOP OCCURS AT THE NEXT 
SEQUENTIAL WORD FOLLOWING THIS 
BRANCH, Gl WAS SET WRONG OR THE 
BRANCH TEST FAILED. 

G13=0 SHOULD BRANCH TO ADR 026C 



ADDR 



WORD SEQUENCE NO* LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLQAD=*E40 f EC LEVEL=128211 
COMMENTS 
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026C 
026E 



1FFC 
1FFE 



2000 
2002 



2004 
2006 



2008 
20 0A 
200C 



2040 



2042 



205E 



2060 



0440 



207E 



2080 
2082 
2084 
20 86 
2088 



2810 
9FFC 



2810 
057F 



2810 
25F5 



E504 
2810 



F5C8 
2810 
A040 



2810 



C55F 



2810 



D57F 



5007 



2800 



3E09 
C483 
FC85 
E087 
F489 



BOIA 
B9IA 
BOIA 
BOIA 
BOIA 
BOIA 
BOIA 
BOIA 
BOIA 
BOCA 
BOIA 
BOIA 
BOIA 
BOIA 
BOIA 
BOCA 
BOIA 
BOIA 
BDIA 
BOIA 
BOIA 
BOIA 
BOIA 
BDIA 
BOIA 
BOIA 
BOIA 
BOIA 
BOIA 
BOIA 
BDIA 
80 1 A 
BDIA 
BOIA 
BOIA 
BDIA 
BOIA 
BDIA 
BOIA 
BOIA 
BDIA 
BDIA 
BDIA 
BOIA 
BOIA 
BDIA 
BDIA 
BOIA 
BOIA 
BDIA 
BDIA 
BOIA 
BOIA 



083 
84 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 



BCG13Y 

AEND 
A TABLE 

UB1FFC 
HCTRL 
AENO 
ATABLE 



087 U81FFC 
ADDR=1FFC 

AODR=2OG0 



BCG12N 



* 

* 
* 
BCG13N 



AEND 
ATABLE 
UB2040 

* 

* 

AEND 
ATABLE 
BCGIOY 

* 

AEND 
ATABLE 

DR7QFF 
AEND 
ATABLE 

BCG11Y 

* 
* 

DCOER 
DC7ER 
0C6ER 

ACONER 



096 BCG12N 

101 BCG13N 
106 UB2040 



ADDR=2040 



114 BCGIOY 



ADDR=205E 



125 BCG11Y 



ADDR=044G 




SET OR K=01 

BR 



SET DR K=01 

BR IF Gl BIT 1=1 



SET OR K=Ol 
Gl=0$KF0 



BR IF Gl BIT2=0 
SET OR K=01 



BR IF Gl BIT3=0 
SET OR K=0l 
BR 



SET OR K=01 



BR IF Gl BITO^l 



SET OR K=01 



BR IF Gl BIT 1=1 



STOP 



SET DR-7 TO CONTINUE BR TESTS. 
UNCONDITIONAL BRANCH TO ADR 1FFC 



SET DR-7 TO CONTINUE BR TESTS. 
NO BRANCH 



SET DR-7 TO CONTINUE BR TESTS, 
ATTEMPT TO SET Gl REG = 11110000 
IF A STOP OCCURS AT THE ADORESS 
OF THE NEXT WORD, Gl WAS SET 
WRONG OR THE BRANCH TEST FAILED. 
G12=l SHOULD NOT BRANCH 
SET OR-7 TO CONTINUE BR TESTS. 
IF A STOP OCCURS AT THE ADDRESS 
OF THE NEXT WORD, Gl WAS SET 
WRONG OR THE BRANCH TEST FAILED. 
G13=l SHOULD NOT BRANCH 
SET DR-7 TO CONTINUE BR TESTS. 
UNCONDITIONAL BRANCH TO ADR 2040 



SET DR-7 TO CONTINUE BR TESTS. 
IF A STOP OCCURS AT THE NEXT 
SEQUENTIAL WORD FOLLOWING THIS 
BRANCH, Gl WAS SET WRONG OR THE 
BRANCH TEST FAILED. 

G10=l SHOULD BRANCH TO AOR 205E 



SET DR-7 TO CONTINUE BR TESTS. 
IF A STOP OCCURS AT THE NEXT 
SEQUENTIAL WORD FOLLOWING THIS 
BRANCH, Gl WAS SET WRONG OR THE 
BRANCH TEST FAILED. 

Gll=l SHOULD BRANCH TO AOR 207E 



CPU MODE AND OR 7 OFF, 



ADOR=207E 

SET DR K=00 THIS COMPLETES BOIA BRANCHING 

TESTS. 
****** *********************^ 

ALU TEST -MANY OF THE WORDS IN THIS TEST CAUSE ALU ERRORS IF THE CKT 
BEING TESTED FAILS AND THEREFORE 00 NOT HAVE TO BE TESTED BY BR WOS 

********************************************************************* 

**FF=00-00 WITH NO CARRY 

CHK FOR DYN BIT BEING OFF. 

CHK FOR DYN BIT 7 BEING OFF. 

CHK FOR DYN BIT 6 BEING OFF. 
CHK FOR DYN BIT 3 BEING OFF 







H0= 


=0-K00 


132 


DCOER 


BR 


IF Z=0 


133 


0C7ER 


BR 


IF LZ=0 


134 


DC6ER 


BR 


IF HZ=0 


135 


ACONER 


BR 


IF AC=1 



ADOR 



WORD SEQUENCE NO. 



LABEL 



208A 


6EE5 


BOIA 


136 




208C 


A 00 A 


BDIA 


137 




208E 


2E0O 


BOIA 


138 








BOIA 


139 


* 






BOIA 


140 


* 






BDIA 


141 


* 


2090 


AOOA 


BDIA 


142 




2092 


7EE1 


BDIA 


143 








BOIA 


144 


* 






BDIA 


145 


* 






BOIA 


146 


♦ 


2094 


F494 


BDIA 


147 


NQACER 


2096 


7EE1 


BDIA 


148 




2098 


6EE3 


BOIA 


149 




20 9A 


2E5F 


BOIA 


150 




209C 


6EE3 


BDIA 


151 




209E 


6EE9 


BDIA 


152 




20A0 


0E5F 


BDIA 


153 




20A2 


C4A2 


BOIA 


154 


WT3ER1 


20A4 


2E87 


BDIA 


155 




20A6 


3E27 


BOIA 


156 




20A8 


2EEF 


BDIA 


157 




20AA 


2E77 


BDIA 


158 




20AC 


1E87 


BOIA 


159 




20AE 


1EB7 


BOIA 


160 




2080 


2EF7 


BDIA 


161 




20B2 


OEll 


BOIA 


162 




2064 


F0B4 


BOIA 


163 


DC7ERR 


20B6 


E0B6 


BOIA 


164 


0C6ERR 


20B8 


1EFB 


BDIA 


165 




20BA 


A0E2 


BDIA 


166 




20BC 


1EF3 


BDIA 


167 








BDIA 


168 


* 






BDIA 


169 


* 






BOIA 


170 


* 


20BE 


A0E2 


BDIA 


171 




20C0 


3E15 


BOIA 


172 








BOIA 


173 


* 






BOIA 


174 


* 






BOIA 


175 


* 


20C2 


A0E2 


BOIA 


176 




20C4 


3E0O 


BOIA 


177 








BDIA 


178 


* 






BDIA 


179 


* 






BDIA 


180 


* 


20C6 


2E1D 


BDIA 


181 




20C8 


2FF5 


BDIA 


182 




2 OCA 


AOOA 


BOIA 


183 




20CC 


OFFD 


BOIA 


184 








BDIA 


185 


* 






BOIA 


186 


* 






BOIA 


187 


* 


20CE 


C4CE 


BDIA 


188 


ALUER2 



NEXTSEQ NEXTLABEL STATEMENT 

HO = HO S HO 
195 CK4FF BAL 

H0=H0*K0O 



195 CK4FF 



147 NOACER 



154 WT3ER1 



163 

164 



DC7ERR 
DC6ERR 



201 CK4F0 



201 CK4F0 



201 CK4F0 



195 CK4FF 



188 ALUER2 



BAL 

H0=H0-H0*1 



BR IF AC=0 

HO-HO-HO+1 

HO^HO+HO 

H0=H0*K55 

H0=H0+H0 

HOC=HO+HO+i 

Z-H0nK55 

BR IF ZNZ 

H0=0$K88 

HG=H0$K22 

HO=HO«-KEE 

H0=0$K77 

H0=H0*-K88 

HO=HO*-KBB 

HO=0$KFF 

Z=H0*K01 

BR IF LZNZ 

BR IF HZNZ 

HG=HOQKOF 

BAL 

HO=HO*-KOF 



BAL 
H0=H0$K10 



BAL 
HO=HG-KOO 



H0=H0*K10 
H1=0$KF0 
BAL 
Z=HlaKFO 



BR IF ZNZ 



CL0AD=*E40, EC LEVEL=1282 1l 

COMMENTS 

**H==FF$FF 

♦♦BRANCH TO CHECK HO FOR ff 

**FF=FF+00 

IF A STOP OCCURS AT THE ADDRESS 
OF THE WORD BELOW, THE CHECK FOR 
FF HAS FAILED. 

**00*FF-FF+1 WITH A CARRY 

IF A STOP OCCURS AT THE ADDRESS 

OF THE WORD BELOW, THE CHECK FOR 

FF HAS FAILED. 
** SHOULD HAVE OYN 3 BIT ON 
**00=00-00+1 
**00=00+00 
**55-00*55 
**AA=55*55 
**55=AA*AA+1 
**G0=55n5 5 

**H0 SHOULD BE 55 AND DYN BlT0=l 
**88=00$88 
**AA=88$22 
**98=AA+EE 
**77=00$77 
**77=77*-88 
**44=77*-BB 
**FF=00$FF 
**00=FF+01 

CHK FOR OYN BIT 7 BEING ON. 

CHK FOR OYN BIT 6 BEING ON. 
**FQ=FFnOF 

**BR TO CHECK HO FOR FO 
**FO=FO*-OF 

IF A STOP OCCURS AT THE ADDRESS 

OF THE WORD BELOW, THE CHECK FOR 

FO HAS FAILED. 
**BR TO CHECK HO FOR FO 
**F0=F0$10 

IF A STOP OCCURS AT THE ADDRESS 

OF THE WORD BELOW, THE CHECK FOR 

FO HAS FAILED. 
**BR TO CHECK HO FOR FO 
**EF=FO-00 

IF A STOP OCCURS AT THE ADDRESS 

OF THE WORD BELOW, THE CHECK FOR 

FO HAS FAILED. 
**FF=EF*10 
**FO=00*-F0 

**BR TO CHECK HO FOR FF 
**00=FOaFO 

IF A STOP OCCURS AT THE ADDRESS 

OF THE WORD BELOW, THE CHECK FOR 

FO HAS FAILED. 
**H1 SHOULD BE FO AND DYN BIT 0=1 
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AODR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLA8EL STATEMENT 



CLOAO=*E^O, EC LEVEL=1282U 

COMMENTS 
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2000 


1FF5 


8DIA 


189 




20D2 


C402 


BDIA 


190 


ALUER3 


20D4 


2EF5 


BDIA 


191 




20D6 


A0E2 


BOIA 


192 




2008 


A0E8 


BOIA 


193 








BDIA 


194 


* 


20DA 


OEFF 


BOIA 


195 


CK4FF 


20DC 


-C4E1 


BOIA 


196 




20DE 


2810 


BOIA 


197 


ANOTFO 


2QE0 


128E 


BDIA 


198 


ZISOK 






BDIA 


199 


* 






BDIA 


200 


* 


20E2 


OEFD 


BDIA 


201 


CK4F0 


20E4 


C4DE 


BDIA 


202 




20E6 


128E 


BDIA 


203 








BDIA 


204 


* 






BDIA 


205 


* 






BDIA 


206 


* 


20E8 


24F6 


BDIA 


207 


MORTST 


20EA 


578F 


BDIA 


208 




20EC 


1887 


BDIA 


209 




20EE 


08 7F 


BDIA 


210 




20F0 


EOFO 


BDIA 


211 


MDSTHI 


20F2 


F0F2 


BDIA 


212 


MDSTLO 


20F4 


2400 


BDIA 


213 




20F6 


574F 


BDIA 


214 




20 F 8 


0487 


BDIA 


215 




20FA 


EOFA 


BDIA 


216 


MDRTHI 


2GFC 


FOFC 


BDIA 


217 


MDRTLO 






BDIA 


218 


* 






BDIA 


219 


* 






BDIA 


220 


* 


20FE 


2EF7 


BDIA 


221 




2100 


2FF7 


BDIA 


222 




2102 


6E02 


BDIA 


223 




2104 


2E05 


BDIA 


224 




2106 


2F05 


BDIA 


225 




2108 


4EG2 


BDIA 


226 




210A 


OFFF 


BDIA 


227 




2 IOC 


E08C 


BDIA 


228 


DCR1ER 


210E 


F08E 


BDIA 


229 


DCR2ER 


2110 


1EFF 


BDIA 


230 




2112 


C492 


BDIA 


231 


DCROER 


2114 


2E33 


BDIA 


232 




2116 


2F87 


BDIA 


233 




2118 


6FE8 


BDIA 


234 




21 1A 


6FEA 


BDIA 


235 




211C 


44E8 


BDIA 


236 




211E 


2F13 


BOIA 


237 




2120 


048F 


BDIA 


23 8 




2122 


E0A2 


BDIA 


239 


DCR3ER 


2124 


F0A4 


BDIA 


240 


DCR4ER 


2126 


257F 


BDIA 


241 









Hl=Hl*-KFO 


190 


ALUER3 


BR IF ZNZ 
H0=G$KF0 


201 


CK4F0 


BAL 


207 


MORTST 


BR 



**00=FO*~FO 

**H1 SHOULD BE ZERO AND DYN BIT 0=1 
♦♦FO=00$FO 

**BR TO CHECK HO FOR FO 
**8R TO MODE REG SET/RESET TEST 
**************************************** ********* ********************** 
Z=HOaKFF HO SHOULD BE FF 

BR IF Z = AND DYN BIT 0=1. 

SET OR K=01 SET DR 7 AND DO A RTN WHICH 

RTN WILL CAUSE A STOP WITH THE 

ADDRESS OF THE BAL TO 
THIS SUBROUTINE ♦ 4. 
Z=HOnKFO HO SHOULD BE FO 

BR IF ZNZ AND DYN BIT 0=1. 

RTN 

##**#*******:******************************************♦♦♦♦♦*♦♦♦♦♦♦♦♦♦ 

TEST MODE REG FOR SET/RESET 
***************************** **************************************** 
SET MODE K=3F ♦♦SET LS AND EXT MODE TO 7 



198 ZISOK 



197 ANOTFO 



211 
212 



MDSTHI 
MDSTLO 



IO=BA 

IQ=I0*-K88 
Z=I0aK77 
BR IF HZNZ 
BR IF LZNZ 



♦♦ G0=XII I XIII 
♦♦ G0=77 



LOOP IF MODE REG 2-4 NOT ALL ON 
LOOP IF MODE REG 5-7 NOT ALL ON 



SET MODE K=OQ **SET LS AND EXT MODE TO ZERO 



G0=BA ♦♦GQ=X000X00Q 

Z=G0*-K88 **Z=00 

216 MORTHI BR IF HZNZ LOOP IF MODE REG 2-4 NOT ALL OFF 

217 MDRTLO BR IF LZNZ LOOP IF MODE REG 5-7 NOT ALL OFF 
********************************************************************* 

BEGIN STORAGE TEST 
#******************************************************************** 

HO=0$KFF 

**H=FFFF 

♦♦CTRL ADDR 0388=FFFF 



228 
229 



DCR1ER 

DCR2ER 



231 DCROER 



H1=0$KFF 
STH H DC, 88 
HO=0$KOO 
Hi=0$KOO 
ROH H DC, 88 
Z=HlaKFF 
BR IF HZNZ 
BR IF LZNZ 
HO=HOaKFF 
BR IF ZNZ 
H0=0$K03 
H1=0$K88 



♦♦H=0Q00 

♦♦READ CTRL STOR 0088 INTO H REG 

♦♦GO=FFaFF 

LOOP IF Hi HIGH IS NOT F 
LOOP IF HI LOW IS NOT F 

♦♦OO^FFQFF H=00FF 

♦♦SHOULD HAVE READ FF IN TO HO 

♦♦ H=0388 







STS HI CS,H+i 


♦♦ CTRL AODR 0388= 88FF H=0389 






STB HI CS,H-l 


♦♦ CTRL AOOR 0388=8889 H=0388 






RDH G CS,H*2 


♦♦ G=8889 H=038A 






H1=0$K01 


♦♦ H=030I 






Z=G0aK88 


♦♦00= 8 8a 8 8 


239 


DCR3ER 


BR IF HZNZ 


LOOP IF HI HIGH IS NOT 8 


240 


DCR4ER 


BR IF LZNZ 


LOOP IF Hi LOW IS NOT 8 






G1=G1+K77 


♦♦00=89*77 



ADDR 

2128 
212A 
212C 
212E 
2130 
2132 
2134 
2136 

2138 
213A 

213C 
213E 
2140 
2 142 
2144 
2146 
2148 
214A 
214C 
2146 



08 EC 

08EE 
Q8F0 
08F2 
Q8F4 
08F6 
08F8 
08FA 
08FC 



0800 
0802 
0804 
0806 
0808 
080A 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



C4A8 
2EQ5 
55EA 
C4AE 
2E45 
3FE9 
25F7 
75E0 

2505 
55EA 

05FF 
C4BE 
FB34 
44E6 
04 4D 
C4C6 
75FI 
C4CA 
C060 
88EC 



01ED 
E1EF 
2E87 
2F05 
6E12 
6E-22 
3EE9 
2F77 
8802 



4E02 
2E1B 
2F ID 
CAOD 
6E02 
8388 



8DIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
8DIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 



242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
2 54 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
2 79 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 



CSRIER 



BMODER 



AUXSTT 



242 CSRIER 



245 BMODER 



AUXERR 

DBMERO 
DBMER1 



AEND 

* 
* 

ATABLE 
LSADDR 
CKS60F 



255 AUXERR 
248 AUXSTT 



259 DBMERO 
261 DBMER1 
269 LSADDR 



BR IF ZNZ 

HO=0$KOO 

RDB Gl AStH-1 

BR IF ZNZ 

H0=0$K40 

H1=0-KE0 

Gl=0$KFF 

STB Gl AS,H 

G1=0$K00 

RDB Gl AS,B-1 

Z=GIQKFF 

BR IF ZNZ 

BR IF HI BIT7= 

G=H 

Z=G0nK40 

BR IF ZNZ 

G1=G1-H1+1 

BR IF ZNZ 

RST S K=06 

BR 



CL0AD=*E40 f EC LEVEL=128211 

COMMENTS 

♦♦SHOULD HAVE READ 89 IN TO Gl 

** H=0001 

♦♦H=0000 

♦♦ARITH MODIFIER OFF B REG FAILED IF BR 

♦* H=4000 

** H=401F 

♦ ♦G=88FF 

♦♦1ST PASS AUX ADDR 401E=XXFF H=401F 

♦ ♦2ND PASS AUX ADDR 401E^FFFF H=401E 
♦♦G=8800 

♦♦G=*88FF AFTER 1ST PASS, H*=401E 

♦ * AFTER 2ND PASS f H=401D 
♦♦00=FFaFF 

♦♦SHOULD HAVE READ FF IN TO Gl 


♦ ♦ G=401D H=401D DBL BYTE MOD TEST 
*♦ 00=40a40 

♦♦ SHOULD HAVE MOVED 40 FROM HO TO GO. 

♦ ♦ 00= ID- ID* 1 

♦♦ SHOULD HAVE MOVED ID FROM HI TO Gl 

RESET S5 AND S6. 
♦♦BR TO X LINE ADDRESSING TEST 
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************************************ ************************* ******** 

X LINE ADDRESSING 
********************************************************************* 

AQDR=08EC 

269 LSADDR 8R IF S5=l NO BR. CHECK S5 OFF. 

270 CKS60F BR IF S 6= 1 NO BR. CHECK S6 OFF. 

H0=0$K88 XX XK ADDRESSABLE 8A AND 8C 

H1=0$K00 X SET TO 

STH H DC8A X BR TO 

STH H DC»8C X 

HQ=0-KEO 0000 

Hl=0$K77 

281 BEGMGD BR BR TO 



8800 WHICH IS 
0800 



H SET TO 1F77. THIS IS THE 
INIT VALE REQ'D FOR A=0$KK 
0802 



AEND 

ATABLE 
MOD C WD 
BEGMOD 



C 

* 
* 
* 
♦ 
♦ 
* 
* 
* 
* 



ADDR^OSOO 



RDH H DC, 88 
H0=H0+K01 
H1=H1+K10 
302 CKPASS BR IF HO BIT4=l 

STH H 0C f 88 
XCTL f 8388» BR TO K 
FUNCTION PERFORMED BY CTRL WORDS IN 
FIRST PASS SECOND PASS 

88 2XX7 A=0$KK 88 OXXF Z=AaKK 



XXXX MODIFY CTRL WD AT K88. 

X 

X 

X BR AFTER 8TH PASS.. 

X 
ADDR 88 AT ADDR 0388. 
K ADDR. CTRL STORAGE 



2087 


U0=0$K88 


008F 


Z=U0a88 


2197 


U1-0$K99 


019F 


Z=Ula99 


22 AT 


VO=0$KAA 


02AF 


Z=VOaAA 


23B7 


Vl=0$KBB 


03BF 


Z=VlaBB 


24C7 


GO-OSKCC 


0*CF 


Z«GOaCC 



THIRD PASS 
88 4XX3 B=AXH+BL 

4003 UO=UOXH+UOL 
4113 Ub=UiXH*UU 
4223 V0*VOXH*VOL 
4333 V1=VIXH+V1L 
4443 GO=GOXH+G0L 



FOURTH PASS 
88 OXXF Z=AaKK 

008F Z=U0n88 
01 9F Z=Ula99 
02 AF Z=VOaAA 
03BF Z=VlaBB 
04CF Z=GOaCC 



AD OR 



WORD SEQUENCE NO- 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E40t EC LEVEL=128211 
COMMENTS 
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080C 
OBOE 
0810 
0812 
08 14 
08 16 
0818 
081A 
08 1C 
08 IE 
0820 
0822 
0824 
0826 
0828 
082A 
082C 
082E 
0830 
0832 
0834 
0836 
0838 



0308 
03 OA 
03 DC 
03DE 
03E0 
03E2 
03E4 
0366 
03E8 
03EA 
03EC 
03EE 
03F0 



03C0 



E1A3 
2020 
El 90 
2EC5 
3E43 
2F85 
3 FA 3 
6E12 
2EF7 
3F89 
8 802 
0020 
E1A5 
D1AC 
0040 
83D8 
2040 
D1AE 
4E22 
6EL2 
3EC9 
5EF1 
8802 



4812 
3935 
292B 
68E2 
2A25 
2BF5 
3B73 
2C25 
2D15 
3DB3 
2E05 
2F 13 
83D0 



C4C0 



BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 



295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
33 7 
33 8 
339 
340 
341 
342 
343 
344 
345 
346 
347 



* 
* 

* 

* 
* 

* 



25D7 G1==0$KDD 

26 E7 DO=0$KEE 

27F7 Dl^OSKFF 
8A BR 



05DF Z=GlaDD 
6EF Z=00n£E 
07FF Z^DlnFF 
8A BR IF ZNZ 



TO MODCWD. TO 038A. 
8C BR 8C BR 

TO MODCWD. TO MODCWD 



05DF Z^GlaDD 
0£EF Z^DOQEE 
07FF Z=D1 OFF 

8A BR IF ZNZ 

TO 03 8 A 
8C BR 

TO MODCWD 



CKPASS 
CKS6E1 



PASS24 
CKS6E0 



N0T4TH 
CKS5E1 



AEND 

* 
* 
* 

A TABLE 
LSSET 



4553 G1=G1XH+G1L 

4663 DO*DOXH«-DOL 

4773 D1=D1XH+D1L 
8A BR 

TO MODCWD 
8C BR 

TO MODCWD 
CHECK PASS. BR AFTER 2ND OR 4TH. 
S6«l TO SAY NEXT PASS I S 2 OR 4. 
CHECK SET OF S6 
XX XX SET 8A TO C48A WHICH IS 
X BR IF ZNZ TO 038A 

X 
X 
X 

QOOO H SET TO FF7F. THIS IS THE 
INIT VALUE R£Q»D FOR Z^AaKK 

BR TO BEGIN MODIFIC OF CTRL WD. 
PASS 2 OR 4 JUST FINISHED. RESET 
S6 TO INDICATE NEXT PASS IS 3RD. 
S5=l INDICATES 4TH PASS COMP. 

BR TO LOCAL STOR SET/RESET TEST 

NEXT PASS IS THIRD 

CK SET OF S5. 

XXXX RESTORE 8A TO BR TO 0800 

X 

0000 H SET TO 3FF3. THIS IS INIT 

VALUE REQ'D FOR B*=AXH+BL 

BR TO BEGIN MODIFIC OF CTRL WD. 



*********************************************************************** 
* LOCAL STORAGE SET/RESET ROUTINE..... ZONE ZERO 

*********************************************************************** 

ADDR^03D8 



313 


PASS24 


BR IF S6=l 
SET S6 


304 


CKS6E1 


BR IF S6=0 

HO^OSKCO 

H0=H0$K04 

H1=0$K80 

Hl=Hl$KOA 

STH H DC f 8A 

HO=0$KFF 

Hl=0-K80 


281 


BEGMOD 


BR 
RST S6 


314 


CKS6E0 


BR IF S6=i 


318 


N0T4TH 


BR IF S5=0 
RST S5 


331 


LSSET 


BR 
SET S5 


319 


CKS5E1 


BR IF S5=0 
RDH H DC,8C 
STH H DC f 8A 
H0=0-KC0 
Hi^HOX 


281 


BEGMOD 


BR 



355 STNWCW 



* 

AEND 

ATABLE ADDRs 
NOTRST 



03C0 
347 



NOTRST 



RDH I DC,8A 

U=I1$K30 

I1=I1*K02 

STH I DCtBC 

T0=0$K20 

Ti^OSKFO 

Ti=Tl$K07 

P0=0SK20 

P1=0$K10 

P1=PI$K0B 

H0=0$K00 

H 1=0$ KOI 

BR 



BR IF ZNZ 



I=C48A 
I=C4BA 
I=C4BC 

XXXX T 

X 

X 

0000 I 





XXXX 

X 



XXX K-ADDR 8C IS SET TO 
X C4BC WHICH IS A 
X BR IF ZNZ 

X TO ITSELF. 
SET TO 20F7 WHICH IS 
UO=0$KFF 

» SET TO 20IB WHICH IS 
U0=U0*K01 



H SET TO 0001 WHICH IS 
Z=UO+KOO 
BR TO STORE THE THREE CONTROL 
WORDS JUST BUILT IN T» P, AND H. 



CK THAT ALL BITS WERE RESET. 



AD oa 

03C2 
03C4 
03C6 
03C8 
03CA 
03CC 
03CE 
03D0 
03D2 
03D4 
03D6 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



03F2 
Q3F4 
Q3F6 
03F8 
03FA 



03FC 
03FE 



083A 
083C 
083E 
0840 
0842 
0844 
08 46 
0848 
084A 
084C 



084E 
0850 



4AC2 
4CQ2 
4EF2 
2A1B 
2C1B 
2E1B 
E0F2 
6AC2 
6C02 
6EF2 
83B8 



2505 
251B 
F4FD 
C4F4 
5007 



2413 
883C 



6443 
2505 
?543 
3808 
0500 
3800 
DAC6 
1212 
2800 
C43A 



2440 
886E 



BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 



348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
3 84 
385 
386 
387 
388 
3 89 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 



RDGLCW 



373 DYNCRT 



STNWCW 



C 

AEND 
* 
* 

* 

* 

* 
* 

* 

A TABLE ADDR* 

DYNCRT 
ZINCR 



* 
* 



RDH T 
RDH P 
RDH H 
TO=TO 
PO^PO 
HO=HO 
BR IF 
STH T 
STH P 
STH H 
XCTL» 



DC, B8 
DC, BA 
DC, BE 

♦KOI 

♦KOI 

♦KOI 
HZNZ 
DC, B8 
DC8A 
DC, BE 

83B8« 
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COMMENTS 

READ OLD CTRL WORDS. 
READ OLD CTRL WORDS. 
READ OLD CTRL WORDS. 
MODIFY CTRL WDS. .. INCREMENT X. 
MODIFY CTRL WDS. ..INCREMENT X. 
MODIFY CTRL WDS. . . INCREMENT X. 
BR IF SIXTEENTH PASS COMPLETED. 
STORE NEW CONTROL WORDS. 
STORE NEW CONTROL WORDS. 
STORE NEW CONTROL WORDS. 
BR TO K-ADDRESSABLE B8. 



*********************************************************************** 

* THE 4 CONTROL WORDS BELOW WERE BUILT IN K-ADDRESSA8LE CONTROL 

STORAGE AND BRANCHED TO FROM THE WORD IMMEDIATLY ABOVE THESE COMENTS. 

THIS IS DONE 16 DIFFERENT TIMES, WITH »X« INCREMENTED EACH TIME TO 

MODIFY THE FUNCTION Of THE WORDS. 

K-ADDR B8...CTL STOR ADDR 03B8 EQUALS 

K-ADDR BA...CTL STOR ADDR 038A EQUALS 

K-ADDR BC...CTL STOR ADDR 03BC EQUALS 

K-ADDR BE...CTL STOR ADDR 03BE EQUALS 



2XF7 
2X1B 
C4BC 
0X01 



A^ASKFF 

A=A+K01 

BR IF ZNZ TO ITSELF 

Z«A+KOO 



ALUEDT 



* 

♦ 

* 
* 
* 
* 
* 

**************************************** ******************************* 

03F2 
********************************************************************* 

Gi=0$K00 **SET Gl TO ZERO AND THEN INCREMENT TO 

Gi=GI+KQl ♦ ♦ OBTAIN ALL BIT COMBINATIONS ON Z BUS 

381 ALUEDT BR IF AC* 1 ♦♦END OF TEST— BR TO ALU OE TEST 

374 ZINCR BR IF ZNZ ♦ ♦BR BACK TO CHECK ALL Z BUSS BIT COMB 

STOP ♦♦DYN COND REG BIT IS ON IN ERROR 

********************************************************************* 

ALU ERROR DECT ECT ION TEST 
********************************************************************* 

G0=0$K01 
386 ZER0G1 BR 



AEND 

ATABLE ADDR=083A 

CKALOE 

ZER0G1 



♦♦DISABLE STOP ON ERROR £ FORCE PLUS 
♦♦ SIDE OF ALU A ENTRY CAUSING ALU CK 



ALCKER 



G0=G0*G0 

Gl=O$K0O 

G1=G1-G0 

SET DR K=CO 

Z=GIQKOO 

SET DR K=80 
391 ALCKER BR IF MC BIT5=0 ♦♦ALU ERROR SHOULD HAVE SET MC 5 

RST MMSK K=91 

SET DR K=00 
385 CKALOE BR IF GO BIT0=0 ♦♦BRANCH BACK TO CHECK EACH OE CKT 

********************************************************************* 

STORAGE DATA, CONTROL WORD, STORAGE ADDRESS, A REG AND B REG 

PARITY DETECTION TEST DC REG BITS 3,6 AND 7 MUST BE OFF 

********************************************************************* 

SET MODE K=04 
415 CKSTPC BAL ♦♦STORE ADDR OF CHECK DATA TO BE READ 



ADDR 

0852 
0854 
08 56 
0858 
08 5A 
085C 
085E 
0860 
0862 
0864 
0866 
0868 
086A 
086C 
086E 
0870 
0872 
08 74 
0876 
0878 



0F1E 
0F2G 
0F22 
QF24 
0F26 
0F28 
0F2A 



BOIA 
BOIA 
30IA 
BOIA 
BDIA 
801 A 
BDIA 
BOIA 
BOIA 
BOIA 
80 1 A 
BOIA 
80IA 
BOIA 
80IA 
BDIA 
BOIA 
BDIA 
BDIA 
BOIA 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



0E3F 
FED4 
4E80 
6E80 
FADA 
0E3F 
EADE 
1212 
886E 
OF IF 
FEE6 
4E80 
6E80 
02E2 
4E80 
3804 
6E80 
CAF4 
3800 
128E 



EE9E 
1212 
5EFF 
C4A4 
2800 
2020 
9876 



BDIA 
BOIA 
BDIA 
BOIA 
BOIA 
BDIA 
BOIA 
BOIA 
BOIA 
BOIA 
BOIA 
BDIA 
BDIA 
BOIA 
BDIA 
BDIA 
BDIA 
BOIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BOIA 
BDIA 
BOIA 
BOIA 
BOIA 
BDIA 



401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
434 
43 8 



018 
056 
061 
066 
075 
083 
087 
096 
101 
106 
114 
122 
125 
132 
133 
134 
135 
147 
154 
163 



INIZ 
BDIA 
BOIA 
BOIA 
BOIA 
BDIA 
BOIA 
BOIA 
BOIA 
BOIA 
BOIA 
BOIA 
BOIA 
BDIA 
BOIA 
BDIA 
BOIA 
BOIA 
BOIA 
301A 



046 
053 
061 
066 
072 
080 
084 
096 
101 
103 
111 
054 
119 
132 
133 
134 
135 
147 
154 
163 



RQCRCE 

N08PC 
NOAPC 

R1CRCE 

CKSTPC 

NOSOPC 



402 ROCRCE 



405 
407 
415 
411 



NOBPC 
NOAPC 
CKSTPC 
RiCRCE 



418 NOSOPC 



Z- HOQK 33 

BR IF MC3=0 
RDH H CS, I 
STH H CS, I 
BR IF MC7=0 
Z=H0QK33 
BR IF MC6*0 
RST MMSK K=91 
BAL 

Z=HlnKll 
BR IF MC3«0 
ROH H CS,I 
STH H CS f I 
RTN H MMSKI«0 
ROH H CSt I 
SET OR K=AO 
STH H CSt I 
BR IF MC4=0 
SET OR K-80 
RTN 



CLQAD=*E40, EC LEVEL=1282 11 
COMMENTS 

**THIS ADDR CONTAINS 0E3F 

♦ ♦SHOULD FAVE RO CTRL WORD PARITY CHECK 

♦ ♦H=0E3F WITH EVEN PARITY IN HO 
♦♦RESTORE CHECK DATA WITH GOOD PARITY 
♦♦SHOULD HAVE SET B REG PARITY CK LATCH 
♦♦SET A REG PARITY CK LT € RST DC3*6£7 
♦♦SHOULD HAVE SET A REG PARITY CK LATCH 
♦♦RESET MC REG 

♦♦STORE ADDR OF CHECK DATA TO BE READ 
♦♦THIS AODR CONTAINS 0F1F 
♦♦SHOULD HAVE Rl CTRL WORO PARITY CHECK 
♦♦H=0F1F WITH EVEN PARITY IN HI 
♦♦RESTORE CHECK DATA WITH GOOD PARITY 
♦♦CAUSE STOR AODR CK — HI=1F WITH P BIT 
♦♦1ST LOOP H=0E3F,0N 2ND LOOP H=0F1F 
♦♦DISABLE STOP ON ERROR ANO FORCE 
♦♦ STORE BITS PO AND Pi TO MEMORY 
♦♦SHOULO HAVE SET STOR DATA PARITY LT 
♦♦RST FORCING OF STORE BITS PO AHD PI 
♦♦RTN FOR ADDITIONAL TESTING £ 2ND LOOP 
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AENO 

ATABLE A00R=0F1E 
NO STAC 423 



MCRSTE 



AENO 



426 



I RST 004 



NOSTAC 
MCRSTE 
STREST 



BR IF MC2=0 ♦♦SHOULD HAVE SET STORAGE AOORESS CHECK 

RST MMSK K*9l ♦♦RESET MC REG 

♦♦CHECK RESET OF MC REG 

♦♦MC REG SHOULD HAVE BEEN RESET 

♦♦ALLOW STOP ON ERROR 



H1*MC 
BR IF IHZ 
SET OR K»00 
SET S6 

BR 



1400 SYSTEM RESET 



********************************** 

♦ CROSS REFERENCE FOR CSECT BDIA ♦ 
********************************** 
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********************************** 

* CROSS REFERENCE FOR CSECT BDIA * 
********************************** 



BDIA 164 BDIA 164 

BDIA 188 BDIA 188 

BOCA 190 30IA 190 

BDIA 195 BDIA 137 BQIA 142 BDIA 183 

BDIA 197 80IA 202 

BDIA 198 BDIA 196 

BDIA 201 BDIA 166 BDIA 171 BDIA 176 BDIA 192 

BDIA 207 BOIA 193 

BDIA 211 BDIA 211 

BDIA 212 BDIA 212 

BDIA 216 BDIA 216 

BDIA 217 BDIA 217 

BDIA 228 BDIA 228 

BDIA 229 BDIA 229 

BDIA 231 BDIA 231 

BDIA 239 BDIA 239 

8DIA 240 BDIA 240 

BDIA 242 BDIA 242 

BQIA 245 BDIA 245 

BDIA 248 BDIA 256 

BDIA 255 BDIA 255 

BDIA 259 BDIA 259 

BDIA 261 BDIA 261 

BDIA 269 BDIA 263 BDIA 269 

BDIA 270 BDIA 270 

BDIA 281 BDIA 277 BDIA 312 BDIA 324 

BDIA 302 BDIA 283 

BDIA 304 BOIA 304 

BDIA 313 BDIA 302 

BDIA 314 BOIA 314 

BDIA 318 BDIA 315 

BDIA 319 BDIA 319 

BDIA 331 BDIA 317 

BDIA 347 BDIA 347 

BDIA 355 BDIA 343 

BDIA 373 BDIA 354 

BDIA 374 BDIA 376 

BDIA 381 BOIA 375 

BDIA 385 BDIA 394 

BDIA 386 BDIA 382 

BDIA 391 BDIA 391 

BDIA 402 BOIA 402 

BDIA 405 BOIA 405 

BDIA 407 BDIA 4C7 

BDIA 411 BDIA 411 

BDIA 415 BDIA 400 BOIA 409 

BDIA 418 BOIA 418 

BDIA 423 BDIA 423 

BDIA 426 BDIA 426 



AODR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLA8EL STATEMENT 



CL0AD^*E40 f EC LEVEL=1282 11 
COMMENTS 
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IAAA 


OOi 


T 


IAAA 


002 


* 


IAAA 


003 


* 


IAAA 


004 


* 


IAAA 


005 


* 


IAAA 


006 


* 


IAAA 


007 


* 


IAAA 


008 


* 


IAAA 


009 


* 


IAAA 


010 


* 


IAAA 


Oil 


* 


IAAA 


012 


* 


IAAA 


013 


* 


IAAA 


014 


* 


IAAA 


015 


* 


IAAA 


016 


* 


IAAA 


017 


* 


IAAA 


018 


* 


IAAA 


019 


* 


IAAA 


020 


* 


IAAA 


021 


* 


IAAA 


022 


# 


IAAA 


023 


* 


IAAA 


024 


* 


IAAA 


025 


* 


IAAA 


026 


* 


IAAA 


027 


* 


IAAA 


028 


♦ 


IAAA 


029 


* 


IAAA 


030 


* 


IAAA 


031 


* 


IAAA 


032 


* 


IAAA 


033 


* 


IAAA 


034 


* 


IAAA 


035 


* 


IAAA 


036 


* 


IAAA 


037 


* 


IAAA 


038 


* 


IAAA 


039 


* 


IAAA 


040 


* 


IAAA 


041 


* 


IAAA 


042 


* 


IAAA 


043 


* 


IAAA 


044 


* 


IAAA 


045 


* 


IAAA 


046 


* 


IAAA 


047 


* 


IAAA 


048 


* 


IAAA 


049 


* 


IAAA 


050 


* 


IAAA 


051 


* 


IAAA 


052 


* 


IAAA 


053 


* 



USERS INITIALIZATION PROCEEDURE R.TAYLOR 

******************************************************* 

* 

1400 INITIALIZATION PROCEDURE * 

DISREGARD SRL INITIALIZATION PROCEEDURE IFGRM A24-3512-1I * 

* 

STEP 1 LOCATE THE OVERLAY CARD IN THE CSL DECK. THIS CARD IS PHYSICALLY* 
LOCATED AS THE THIRD CARD PRECEEOING THE END CARD .THIS CARD IS* 
BLANK IN COLS 5-68 AND HAS AN ADDRESS IN COLS 69-721 704 OOR 9040) * 

* 

STEP 2 READ THE LIST OF CARD COLUMNS THAT MAY BE SUBJECT TO CHANGE. * 

CONFIGURE ONLY THOSE COLUMNS THAT MUST BE VARIED AND PLACE THE * 
BYTE REPRESENTATION NEXT TO THE AFFECTED COLUMN IN THE SPACE * 
PROVIDE0.CARD PUNCHING SHOULD BE DONE AFTER ALL ASSIGNMENTS ARE* 
CHECKED AND LOGGED IN THE SPACE PROVIDED. * 

* 

IF AN ASSIGNMENT VALUE IS 40*BLANK), A SUBSTITUTION MUST BE * 
MADE FOR THAT CARD COLUMN. THE 40 ASSIGNMENT IS POSSIBLE ONLY * 
IN THE CARD COLUMNS L ISTED.FOLLOW SUBSTITUTION CODE INSTRUCTION* 



NOTE 



ARD COLUMNCSI SUBSTITUTE CODE 


♦ 


6-11 60 


♦ 


13 04 


♦ 


28 CO 


* 


38, 40 f 42*44 44 


* 


45 CO 


* 


60 44 


* 


63,64 (At a 8 TAPES TURN ON UNUSED BIT 


* 


IB) 8 TAPES SINGLE 9 TRACK TAPE ADDRESS 


♦ 


CANNOT BE XXI 


* 

* 



STEP 3 CONFIGURE THE OVERLAY CARD. LEAVE COLUMN BLANK IF NO CHANGE IS 

REQUIRED. 
COL ALTER TO MAS FUNCTION COMMENTS REGARDING ASSIGNMENT 



5 
6 

7 

8 

9 

10 

II 

13 

14 

28 
33 



35 
36 



08 
CO 

CI 
C2 
C3 

C4 
C5 



* 
* 

TAU ADDR. AODRESS IS LOW ORDER DIGIT * 

TAPE* I HI DIGIT(C=9TK f 0=200BPI f 4^5568PI»8*8008PI* 

TAPE#1 LO DIGIT IS LOW ORDER OF SYSTEM ADDRESS! 0T07) * 



TAPE#2 
TAPE#3 
TAPE#4 
TAPEfS 
TAPE#6 



HIGH AND LOW DIGITS f FQR 
SEE COL 6 



MEANING SEE COL 6 



01I21IF 24K) BIAS CONSTANT HI SEE FIG #1 FOR VALUES 

80 BIAS CONSTANT LO MAS ASSIGNS FOR 16K 1400 PROGRAM 

RESIDING IN EITHER 16 OR 24K MEMORY* 
LENGTH CODE 48 CHARACTER STANDARD SEE FIG#2 * 

* 
BIT ON IF GREATER THAN 120 PRINT POSITION* 
BITS 3-7 PRINTER CHANNEL ADORESS COE). NO * 
NEED TO ALTER BITS3-7 IF NATIVE PRINTER * 

CHANNEL READER ADDRESS SET FDR OA 11442) * 

USERS OPTION * 



04 MCS 



8E PRT CTL 



OA CHAN RD 
00 2ND RO 



AD OR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 
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COMMENTS 



IAAA 


054 


* 


IAAA 


055 


* 


IAAA 


056 


* 


IAAA 


057 


* 


IAAA 


058 


# 


IAAA 


059 


* 


IAAA 


060 


* 


IAAA 


061 


♦ 


IAAA 


062 


* 


IAAA 


063 


* 


IAAA 


064 


* 


IAAA 


065 


* 


IAAA 


066 


* 


IAAA 


067 


* 


IAAA 


06 8 


* 


IAAA 


069 


* 


IAAA 


070 


* 


IAAA 


071 


* 


IAAA 


072 


* 


IAAA 


073 


* 


IAAA 


074 


* 


IAAA 


075 


* 


IAAA 


076 


* 


IAAA 


077 


* 


IAAA 


078 


* 


IAAA 


079 


* 


IAAA 


080 


* 


IAAA 


081 


* 


IAAA 


082 


* 


IAAA 


083 


* 


IAAA 


084 


* 


IAAA 


085 


* 


IAAA 


086 


* 


IAAA 


087 


* 


IAAA 


088 


# 


IAAA 


089 


* 


IAAA 


090 


* 


IAAA 


091 


♦ 


IAAA 


092 


* 


IAAA 


093 


* 


IAAA 


094 


# 


IAAA 


09 5 


* 


IAAA 


096 


* 


IAAA 


097 


* 


IAAA 


098 


* 


IAAA 


099 


* 


IAAA 


100 


* 


IAAA 


101 


♦ 


IAAA 


102 


* 


IAAA 


103 


* 


IAAA 


104 


* 


IAAA 


105 


♦ 


IAAA 


106 


* 



37 

38 



39 
40 
41 
42 
43 
44 
45 

47 



00 DK MOO DISK MOOULE ASSIGNMENT FOR 1400 DRIVE 1 
81 DK 360 DISK ASSIGN TO 360 ADOR. HI DIGIT 8,4,2 f l 
REFERS TO NPL DRIVE 0,l f 2,3 RESPECTIVELY 
****** tO DIGIT HERE CONTROLS ALL FILE OPERATIONS 
****** BIT7=1 MODULE OVFL DETECT, BIT6=l COMPARE 
****** DISABLE ON . LO ORDER DIGIT FOR DR 2-5 
02 DK MOO MODULAR ADDRESS ASSIGNED TO 1400 DRIVE 2 
40 DK 360 DISK ASSIGN TO 360 ADDR, SEE COL 38,LO=0 
04 DK MOD MODULAR ADDRESS ASSIGNED TO 1400 DRIVE 3 
20 DK 360 DISK ASSIGN TO 360 ADDRESS, SEE COL38,LO=G 
06 DK MOD MODULAR AGORESS ASSIGNED TO 1400 DRIVE 4 
10 DK 360 DISK ASSIGN TO 360 ADDRESS, SEE C0L38,L0=0 
00 SEN SW B-G ARE REPRESENTATIVE IN BITS 1 TO 6. 

DEVICE EOF SETS BITS 0,7 ACCORDINGLY 
80 1052 CTL 80= A TYPEHEAD,CO= H TYPEHEAD 



59 08 DK MOD DO NOT ALTER UNLESS PROG PREVIOUSLY RAN 

60 00 DK 360 WITH 5 DISK DRIVES, SEE SRL. 

61 E8 1400 CTL HI ORDER BYTE SEE FIG3 BELOW — BIT 

62 00 1400 CTL LOW ORDER BYTE SEE F1G3 BELOW-SIGNIFCANT* 

63 FF 9TK FLG BITS 0-7 RESPECTIVELY ARE 360 TAPE DR 0-7* 

64 00 PH2 ENC PHASE ENCODED BITS 0-7 ARE USED TO * 

FURTHER DEFINE 360 ADDRESSED TAPE DRIVES * 

AS PHASE ENCODED IF THE TAPE IS ALSO 9TK * 

*********************************************************************** 

* 
FIG1 BIAS CONSTANT TABLE **FIG2 MCS 

* 16,384 24,576 32,768 49, 152**BITG OFF 



♦1400 ************************ *********** 
**************************************** 

16K * 0180 * 2180 * 4180 * 8180 ** 
******* , . ** 

12K * 1120 * 3120 * 5120 * 9120 ** 
****** * — . ~ * * 

8K * 20C0 * 40C0 * 60C0 * AOCO ** 



1 


240CH 




1 


2 


120CH 




2 


3 


80 CH 




3 


4 


60 CH 




4 


5 


48 CH 


♦+ 


5 


6 


40 CH 


♦ 4- 


6 


7 


16 CH 


+ ♦ 


7 



* ****** 

4K * 3060 * 

* ****** — 

2K * 3830 * 
******* 

U4K * 



.-„**++ £50 ONLY 



5060 * 7060 * 



5830 * 7830 * 



B060 **1442 

— ** EMULATION 

B830 **0N NATIVE 

** 2 540 

BA88 **BIT 



3A88 * 5A88 * 7A88 * 
*******VALUES FOR HIGH MEMORY ADDRESS ** 5 RD AND PCH 
******* M fCR0PROG CONTROLLED FROM BIAS **6 SEL ERR CD 
******* 3(p * 5F * 7F * BF **7 EMULATE SW 
*********************************************************************** 



FIG3 HI 1400 CTL * 
BITO I/O CHECK STP* 
NOT USED * 
EX PRINT EDIT* 
PER/COMMA INV* 
COLUMN BINARY* 
NO PUNCH BUFR* 
MODEL G EMUL.* 
51 COL CARDS * 
LO 1400 CTL * 
BITO ALT READ TAPE* 
1 NOT USED * 
TAPE ERASE * 
ALT 9 TK TAPE* 
OFF * 

CHANNEL PRINT* 
STERLING* WT) * 
STERLINGIWT) * 



2 
3 

4 
5 

6 

7 



STEP 4 REFER TO THE PUNCH CARD CODES GIVEN IN THE BCPL ROUTINE 

STEP 5 PUNCH THE TRANSLATED CHARACTER IN THE APPROPRIATE COLUMN OF 

OVERLAY CARD IF YOUR ASSIGNMENT DIFFERS FROM THE MAS ASSIGN 

STEP 6 PLACE OVERLAY CARD BACK INTO THE CSL DECK (EVEN IF ALTERATIONS 
HAVE NOT BEEN MADE I AT ITS PREVIOUS LOCATION. 



AD OR 



WORO SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLOAD=*E40, EC LEVEL=128211 
COMMENTS 
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IAAA 


107 


* 


IAAA 


108 


* 


IAAA 


109 


* 


IAAA 


110 


* 


IAAA 


111 


* 


IAAA 


112 


* 


IAAA 


113 


* 



STEP 7 REMEMBER TO USE THE PREVIOUS OVERLAY CARD WHEN YOU RECEIVE * 
FUTURE *E40 OR *E50 CORE LOADS. * 

* 

NOTE WHEN CHANGING PHYSICAL MEMORY SIZES TO OR FROM 24K THE ADDRESS * 
MUST BE ALTERED IF THE OLD OVERLAY CARD IS TO BE USED. * 

SIMPLY CHANGE COLUMN i TO THE PUNCH CODE FOR 70INOT 24K) OR 90 * 

***************************** *********** ******************************* 
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IAOO DESCRIPTIVE TEXT 



OBJECTIVES 



ADO 



THE DATA IN THE A-FIELD IS ADDED ALGEBRAICALLY TO THE DATA 
IN THE B-FIELD. THE RESULT IS STORED IN THE B-FIELD. 

THE B-FIELD MUST HAVE A DEFINING WORD MARK* THIS WORD 
MARK STOPS THE ADD OPERATION, 

IF THE A-FIELD IS LONGER THAN THE B-FIELD, THE HIGH 
ORDER POSITIONS OF THE A-FIELD ITHAT EXCEED THE B-FIELO 
LENGTH) ARE NOT PROCESSED* 



NOTE THE ADD INSTRUCTION WITH A-ADDRESS ONLY CAUSES 

THE DATA IN THE A-FIELD TO BE ADDED TO ITSELF* THE 
SINGLE ADDRESS SUBTRACT INSTRUCTION CAUSES THE DATA IN 
THE A-FIELD TO BE SUBTRACTED FROM ITSELF* THE A-FIELDS 
MUST HAVE DEFINING WORD MARKS. 



ENTRY POINTS 



SU8TOP 



SUBTRACT OPERATIONS ENTER HERE FROM I-CYCLES, 



SUBTRACT 



A9D0P 



ADD OPERATIONS ENTER HERE FROM I-CYCLES. 



THE NUMERICAL DATA IN THE A-FIELD IS SUBTRACTED ALGEBRA- 
ICALLY FROM THE NUMERICAL DATA IN THE B-FIELD. THE RESULT 
IS STORED IN THE B-FIELD* 

A WORD MARK DEFINES THE B-FIELD. AN A-FIELD REQUIRES A 
WORD MARK ONLY IF IT IS SHORTER THAN THE B-FIELD. IN THIS 
CASE THE A-FIELD WORD MARK STOPS TRANSMISSION OF DATA* 



CORCH 



SPECIAL CHARACTER LOOP. SPECIAL CHARACTERS ARE 
CONVERTED TO NUMERICALLY SIGNIFICANT VALUES. THIS 
IS REQUIRED, FOR EXAMPLE, BY 1400-SERIES ADDRESS 
CHARACTERS THAT USE THE 8-PUNCH. THIS ROUTINE 
IS USED BY IADD, IMAD, IDVD, AND I MPY. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



COMMENTS 







IADD 


001 


T 






IADD 


002 


* 






IADD 


003 


* 


1702 


3585 


IADD 


004 


SUBTOP 


1704 


10EE 


IADD 


005 


ADDOP 


1706 


571A 


IADD 


006 




1708 


C711 


IADD 


007 




17 OA 


57D9 


IADD 


008 




170C 


8442 


IADD 


009 




170E 


5D79 


IADD 


010 




1710 


E717 


IADD 


Oil 


NOSPEC 


1712 


F716 


IADD 


012 




1714 


158D 


IADD 


013 




1716 


5D30 


IADD 


014 


APLUS 


1718 


CD1D 


IADD 


015 




171A 


8442 


IADD 


016 




171C 


ED25 


IADD 


017 


BNOSPC 


171E 


FD24 


IADD 


018 




1720 


158D 


IADD 


019 




1722 


2040 


IADD 


020 




1724 


57AD 


IADD 


021 


BPLUS 



ADD SUBTRACT 
SIGN ANALYSIS 
NECESSARY. FL 



Oil NOSPEC 

160 CORCHR 

014 APLUS 

014 APLUS 



017 BNOSPC 

160 CORCHR 

021 BPLUS 

021 BPLUS 



ROUTINE KRAGER 

LOOP. SIGNS ARE CHECK 
AG BITS ARE SET TO IND 

G1=G1$K80 

RST S K=FE 

RDB Dl U-i 

BR IF Dl BIT 0=1 

Pi = Dl 

BAL 

D1=P1 

BR IF Dl BIT 2=1 

BR IF Dl BIT3=0 

Gl=GlnK80 

RDB PI V+0 

BR IF PI BIT0=1 

BAL 

BR IF Pi 8IT2=l 

BR IF PI BIT3=0 

Gi=GlaK80 

SET S5 

TO^DIL 



BO AND COMP IS TURNED ON IF 
ICATE FIELD POLARITIES 

SET UP FOR SUBTRACT 

CLEAR S REGISTER 

READ A FIELD 

BR IF NOT A SPECIAL CHAR 

CORRECT CHARACTER 

BR IF A CHAR IS PLUS 

BR IF A CHAR IS PLUS 

A MINUS SET COMP ON 

READ B FIELD 

BR IF NOT A SPECIAL CHAR 

CORRECT CHARACTER 

BR IF CHAR IS PLUS 

BR IF CHAR IS PLUS 

B MINUS INVERT COMP BIT 

SET B FLD MINUS FLAG ON 



ADDR 


WORD 


SEQUENCE NO* 


LABEL 


1726 


5DFD 


I ADO 


022 




1728 


C530 


IAOO 


023 




172 A 


3000 


IAOO 


024 




172C 


7222 


IADO 


030 




1726 


A40C 


IAOO 


032 








IADD 


033 


♦ 






IAOO 


034 


* 


1730 


3A95 


IAOD 


035 


TRUADD 


1732 


7FAF 


IADO 


036 




1734 


4DFB 


IADD 


037 




1736 


3FC5 


IADD 


038 




1738 


OF1B 


IADD 


039 




173A 


F0C2 


IADD 


040 




173C 


OFEQ 


IADD 


041 




173E 


E0C2 


IADD 


042 




1740 


1F80 


IADD 


043 




1742 


0D73 


IADD 


044 


NOSLSH 


1744 


F5CC 


IADD 


045 




1746 


5A82 


IADD 


054 




1748 


3843 


IADD 


055 




174A 


7A82 


IAOD 


056 




174C 


1F45 


IADD 


058 


AOWM 


174E 


7F3A 


IADD 


059 




1750 


8D7G 


IADD 


060 








IADD 


061 


* 


1752 


571A 


IADD 


062 


MAINLP 


1754 


C750 


IADD 


063 




1756 


5709 


IADD 


064 




1758 


8442 


IADD 


065 




175A 


5079 


IADD 


066 




175C 


5030 


IADD 


067 


AOK 


17 5E 


CD63 


IADD 


06 8 




1760 


8442 


IADD 


069 




1762 


47AD 


IADD 


070 


BOX 


1764 


5DFD 


IADD 


071 




1766 


7FAF 


IADD 


072 




1768 


0D71 


IAOO 


073 




176A 


C5EF 


IADD 


074 




176C 


AA52 


IADO 


075 




176E 


AD60 


IADD 


076 


CKEND 


1770 


3FF5 


IADD 


077 


CONTIN 


1772 


7F3A 


IADD 


078 


OVFLOK 


1774 


D753 


IADD 


079 




17 76 


E1DD 


IADD 


080 




1778 


2020 


IAOD 


081 




177A 


2785 


IADD 


082 




177C 


975C 


IADD 


083 








IADD 


084 


* 






IADD 


085 


♦ 


24DC 


2002 


IAOD 


086 


CQMPAD 


24DE 


7FAF 


IADD 


087 




24E0 


5FF0 


IADD 


088 




24E2 


D1E6 


IADD 


089 





NEXTSEQ 



NEXTLABEL STATEMENT 



035 TRUADD 



086 
TRUE 



COMPAD 
AOD LOOP 



H1=P1L 

BR IF Gl BITO=0 
SET SO 
STH V DA,8C 
BR 
FOR UNITS POSITION OR 



CL0AD=*E40, EC LE VEL=1282 II 
COMMENTS 



BR IF TRUE ADD 
SET COMP ADD CONTROL ON 
SAVE B STAR ADD 
GO DO COMP ADD 
ONE CHARACTER FIELDS. THE 



PAGE 24 



ADD NUMERIC BITS 
ADD ZONE BITS 



CK 
BR 
CK 

BR 



SLASH RSLT 



ORIGIONAL B FIELD SIGN IS STORED OVER THE UNITS DIGIT 

T0=T0$K90 

H1C=H13T0*C 

H1*P1H+H1L 

H1=H1$KC0 

Z=HiaKOl 
044 NOSLSH BR IF LZNZ 

Z-HlaKEO 
044 NOSLSH BR IF HZNZ 

Hl=HlaK80 
078 OVFLOK BR IF PI BIT 1=1 

058 ADWM BR IF S3=0 

RDH T DA, A8 

Tl=Ti$K04 

STH T DA, A8 

HL=H1*-K40 

STB Hi V-l 

BR 

ONLY NUMERIC DATA IS 

RDB Dl U-l 

BR IF Dl BIT0=l 

Pl^Dl 

BAL 

Dl=Pl 

RDB PI V+Q 

BR IF PI BITO^l 

8AL 

T0=D1L+T0H 

H1=P1L 

HlO=H13T0*C 

BR IF PI BIT 1*1 

BR IF S0*1 

BR 

BR 

H1=H1$KF0 

STB HI V-l 

BR IF Dl BIT 1*1 

BR IF S6=l 

SET S6 

D1=0$KB0 

BR 

OOP FOR UNITS POSITION OR ONE CHARACTER FIELDS 

OR MINUS SIGN IS INSERTED IN THIS POSITION. 

SET S3 SET CARRY IN ON 

H1C=H13T0*C ADD CHARACTER 

H1=H1L SAVE NUMERIC BITS 

091 SETP BR IF S5=0 BR IF B FIELD PLUS 



ICYC 037 


HISTRT 


MAIN 


DATA LOOP. 


067 


AOK 


160 


CGRCHR 


070 


BOK 


160 


CORCHR 


077 


CONTIN 


076 


CKEND 


129 


TRUEND 


104 


CMPEND 


062 


MAINLP 


067 


AOK 


067 


AOK 


COMPLIMENT ADD 


A STANDARD PLUS 



FOR POSSIBLE 
IF NOT SLASH 
HIGH BITS 
IF NOT SLASH 
CORRECT CHARACTER 
BR IF NO B FLD WM 
BR IF NO OVERFLOW 



SET OVERFLOW INDICATOR ON 

ADD WM TO CHAR 
STORE CHAR 

USED, ZONE BITS ARE DESTROYED. 

READ A FIELD 

BR IF NOT A SPECIAL CHAR 

CORRECT CHARACTER 

READ B FIELD 



ADD NUMERICS 

BR IF NO B FLD WM 

BR IF COMP ADD ON 



REMOVE ZONE BITS 
STORE CHARACTER 
BR IF NO A FLD WM 



SET A 
SET A 



END 
REG 



FLAG 
TO 



ADDR 


WORD 


SEQUENCE NO* 


LABEL 


NEXTSEQ 


NEXT! ABE 


L STATEMENT 


24E4 


3F15 


IAOO 


090 








H1=H1SK10 


24E6 


3FC5 


IADO 


091 


SETP 






H1=H1$KC0 


24E8 


0D6C 


IAOO 


092 




094 


GOON 


BR IF PI 8IT1*0 


24EA 


9772 


IADO 


093 




078 


GVFLOK 


BR 


24EC 


F5F0 


IADO 


094 


GOON 


096 


RCMPU 


BR IF S3=0 


24EE 


974C 


IAOO 


095 




058 


ADWM 


BR 


24F0 


IF 10 


IAOO 


096 


RCMPU 






Hl=HlnK10 


24F2 


5FB9 


IADD 


097 








T1=H1 


24F4 


2002 


IADD 


098 








SET S3 


24F6 


2FC7 


IADO 


099 








H1=0 


24F8 


7FBF 


IAOO 


100 








H1C=H13T1*C 


24FA 


4BFB 


IADD 


101 








H1=T1H+H1L 


24FC 


97 4C 


IAOO 


102 




058 


ADWM 


BR 






IADD 


103 


* 


COMPLIMENT AOO 


END ROUTINE 


2D60 


3FB5 


IADD 


104 


CMPEND 






Hi=Hl$KBO 


2D62 


7F3A 


IAOO 


105 








ST8 HI V-l 


2064 


F5E8 


IAOO 


106 




113 


RECCMP 


BR IF S3=0 


2066 


8D7C 


IADD 


107 




I CYC 037 


HISTRT 


BR 


2068 


5222 


IADO 


113 


RECGHP 






RDH V OA, 8C 


206A 


5530 


IADD 


115 








ROB Gi V*0 


206C 


1510 


IAOO 


116 








Gi^GiaKlQ 


206E 


2002 


IADO 


117 








SET S3 


2070 


2007 


IAOO 


118 


NTOONE 






Pi=0 


2072 


55BO 


IADD 


119 








TUG1L 


2074 


70BF 


IAOO 


120 








P1C=P13TI«-C 


2076 


45DB 


IADO 


121 








P1=G1H*P1L 


2078 


057F 


IADD 


122 




125 


STND 


BR IF Gi BIT 1=1 


207A 


7D3A 


IADD 


123 








STB PI V-l 


2D7C 


807C 


IADD 


124 




ICYC 037 


HISTRT 


BR 


207E 


7D3A 


IAOO 


125 


STND 






STB Pi V-l 


2D80 


5530 


IAOO 


126 








RDB GI V*0 


2082 


A070 


IADD 


127 




118 


NT DONE 


BR 






IADO 


128 


* 


TRUE 


A DO END 


ROUTINE. 


2A52 


4F00 


IADO 


129 


TRUE NO 






P1=H1L+P1H 


2A54 


3045 


IADO 


130 








P1=P1$K40 


2A56 


5FC0 


IADD 


131 








RDB HI AStP 


2A58 


F5E2 


IADD 


132 




146 


XAXA 


BR IF S3=0 


2A5A 


2F1D 


IAOO 


133 








H1=H1*K10 


2A5C 


5A82 


IAOO 


142 








RDH T DA t A8 


2A5E 


3B43 


IADD 


143 








T1=T1$K04 


2A60 


7A82 


IAOO 


144 








STH T 0A f A8 


2A62 


E1F1 


IADO 


146 


XAXA 


153 


SKIP 


BR IF S6=i 


2A64 


5C49 


IAOD 


147 








G0= PO 


2A66 


5759 


IAOO 


148 








Gl = 01 


2A68 


3545 


IAOO 


149 








G1=G1$K40 


2A6A 


5540 


IADO 


150 








RDB Gi AS,G 


2A6C 


555B 


IAOO 


151 








G1=G1H 


2A6E 


6F53 


IADO 


152 








H1=H1+G1 


2A70 


1FC5 


IAOD 


153 


SKIP 






H1=H1*-KC0 


2A72 


5CE9 


IAOD 


154 








HO^PO 


2A74 


50E0 


IADO 


155 








RDB Pi ASfH 


2A76 


1045 


IAOO 


156 








P1=P1*-K4Q 


2A78 


7D3A 


IAOD 


157 








STB PI V-l 



CL0AD=*E40, EC LEVEL=128211 PAGE 25 
COMMENTS 



FORM STANDARD SIGN 
BR IF B FLO VIM 

BR IF RECGMPLEMENT NEEOED 

INVERT SIGN 

FORCE CARRY IN 

RECOMP CHAR 
ADD SIGN 



STORE CHAR 



REAODRESS UNITS POSITION 
READ B FIELD 
INVERT SIGN 
SET CARRY IN 
ZERO A FIELD 

ADO NUMERICS 

AOO ORIGIGNAL ZONES 

BR IF NO m 

STORE LAST CHAR 

RTN TO I CYCLES 

STORE CHAR 

READ NEXT CHAR 



ADO ORIGIGNAL ZONE BITS 

INSURE 1 BIT ON 

CONVERT TO BCO 

BR IF NO NUMERIC GVFLO 

ADO 1 TO 8 FLD ZONES 

ACCESS OVERFLOW BYTE 

SET OVERFLOW BIT ON 

STORE BACK 

BR IF A FLO HAS TERMINATED 



INSURE i BIT ON 
CONVERT TO BCD 

ADD ZONES 

INSURE O&l BITS OFF 

CONVERT TO NPL 

ADD WM TO CHARACTER 

STORE CHARACTER 
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ADDR 


WORD SEQUENCE NO, 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 






2A7A 


8D7C IADD 


158 




ICYC 


; 037 


HISTRT 


BR 










IADD 


159 


* 




SPECIAL CHARACTER LOOP* 








0442 


0DF5 IADD 


160 


CORCHR 








Z=P1*-KF0 








0444 


F0D9 IADD 


161 






171 


CKIT 


BR IF LZ^O 


BR IF CHAR NUMERIC 


BITS=0 




0446 


CDAB IADD 


162 










Z=P1PK0A 








0448 


F0D5 IADD 


163 






169 


PGBLK 


BR IF LZ=0 


BR IF CHAR NUMERIC 


BITS 10 




044A 


0D1B IADD 


164 










Z=PlnK01 


TEST CHAR LOW BITS 






044C 


F0D1 IADD 


165 






167 


ISEl 


BR IF LZ^O 


BR IF CHAR ISA/ 






044E 


1083 IADD 


166 


N0E1 








P1=P1*-K0S 


REMOVE 4 BIT 






0450 


3085 IADD 


167 


ISE1 








Pi=PUK80 


FORCE QUAD 3 






0452 


128E IADD 


168 










RTN 








0454 


1DF3 IADD 


169 


PGBLK 








P1=P1*-K0F 


REMOVE LOW 4 BITS 






0456 


F95C IADD 


170 






173 


THREE 


BR IF PI BIT7=0 


BR UNCD 






0458 


ED61 IADD 


171 


CKIT 




175 


BOTH 


BR IF PI BIT2=i 








04 5A 


FD64 IADD 


172 






177 


BLANK 


BR IF PI BIT3=0 








045C 


1D1D IADD 


173 


THREE 








Pl^PlnKlO 


INVERT ZONE BITS 






045E 


FD50 IADD 


174 






167 


ISE1 


BR IF PI BIT3=0 








0460 


1D3D IADD 


175 


BOTH 








P1=P1QK30 


INVERT ZONE BITS 






0462 


FD51 IAOD 


176 






167 


ISE1 


BR IF PI BIT3=l 








0464 


3DB5 IADD 


177 


BLANK 








P1=P1$KB0 








0466 


128E IADD 


178 










RTN 




















********************************** 


















* CROSS REFERENCE FOR CSECT 


IADD * 


















********************************** 






iAOD 


004 ICYC 2*1 




















IADO 


005 I CYC 246 




















IAOD 


Oil IADD 007 




















IADO 


014 IADD Oil 


IADD 


012 
















IADD 


017 IADD 015 




















IAOD 


021 IADD 017 


IADD 


018 
















IADD 


035 IADD 023 




















IADO 


044 IADD 040 


IADD 


042 
















IADD 


058 IADD 045 


IADD 


095 I ADD 


102 














IADD 


062 IADD 079 




















IADD 


067 IAOD 063 


IADD 


080 IADD 


083 














IADD 


070 IADD 068 




















IADD 


076 IADD 074 




















IADD 


077 IADD 073 




















IADD 


078 IADD 044 


IADD 


093 
















IAOD 


086 IADD 032 




















IADD 


091 IADD 089 




















IADD 


094 IADD 092 




















IADD 


096 IADD 094 




















IADD 


104 IADD 076 




















IADD 


113 IADD 106 




















IADD 


118 IADD 127 




















IADD 


125 IADD 122 




















IADD 


129 IADO 075 




















IADD 


146 IADD 132 




















IADD 
IADD 


153 IADD 146 
160 IADD 009 


IADD 


016 IADD 


065 


IADD 


069 I DVD 


033 I DVD 047 fDVD 


159 IMAD 013 IMAD 


027 IMPY 030 IMPY 


081 IMPY 096 


IADD 


167 IADD lt5 


IAOD 


174 IADD 


176 














IADD 


169 IADD 163 





















IAOO 171 

IAOD 173 

IADO 175 

IADO 177 
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**#******************************* 

* CROSS REFERENCE FOR CSECT IADO * 
********************************** 



IADO 161 
IAOO 170 
IADO 171 
IAOO 172 
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IBCH DESCRIPTIVE TEXT 



OBJECTIVES 



BRANCH IF INDICATOR ON 



BRANCH INSTRUCTION 

THIS INSTRUCTION ALWAYS CAUSES THE PROGRAM TO BRANCH TO THE 
INSTRUCTION SPECIFIED BY THE I-ADDRESS WITHOUT TESTING FOR 
SPECIFIC CONDITIONS. THIS BRANCH IS HANDLED BY THE IU8R 
ROUTINE. 



THE D-CHARACTER SPECIFIES THE INDICATOR TESTED. IF THE IN- 
DICATOR IS ON THE NEXT INSTRUCTION IS TAKEN FROM THE 
I- ADDRESS. 



ENTRY POINT 



BRANCH 



BRANCH IF CHARACTER EQUAL 

THIS INSTRUCTION CAUSES THE SINGLE CHARACTER AT THE B- 
ADDRESS TO BE COMPARED TO THE D-CHARACTER*. IF IT HAS THE 
SAME BIT CONFIGURATION AS THE D-CHARACTER, THE PROGRAM 
BRANCHES TO THE I-AOORESS. 



THIS IS THE EXCLUSIVE ENTRY POINT TO THIS ROUTINE. 
ENTRY IS FROM ICVC FOR ALL BRANCH OPERATIONS AND 
FROM THE A AND B INVALID ADDRESS CHECK ROUTINE FOR 
ADDRESS CHECK ON BRANCH OPS. 



AOOR 


WORD 


SEQUENCE NO. 


LABEL 




NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 






IBCH 001 


T 




; 


BRANCH CHAR EQUAL OR ON INDICATOR. 


KRAGER 


134C 


D250 


IBCH 002 


BRANCH 






004 


NOTUCD 




BR IF DO 8 IT 5=0 


CK FOR UNCD BR 


134E 


9E72 


IBCH 003 


GOBR 




IUBR 


002 


UNCD8R 




BR 




1350 


C663 


IBCH 004 


NOTUCD 






013 


I50P 




BR IF DO BITO-i 


BR IF INDICATOR OP 


1352 


06F9 


IBCH 005 














Z=DO*KFO 


TEST FOR INVD ADOR 


1354 


F4D8 


IBCH 006 








008 


NOERR 




BR IF AC*0 


BR IF ADDR OK 


1356 


81DA 


IBCH 007 






1ERR 


036 


CKAORB 




BR 


ERROR GO SET STOP CODE 


1358 


5F3A 


IBCH 008 


NOERR 












RDB HI V-l 


READ B FIELD 


135A 


6F71 


IBCH 009 














Hl^HlnDl 


COMPARE CHARACTERS 


135C 


0F45 


IBCH 010 














Z=H1*-K40 




135E 


C4CF 


IBCH Oil 








003 


GOBR 




BR IF Z=0 


BR IF EQUAL 


1360 


8D7C 


IBCH 012 


IEND 




I CYC 


037 


HISTRT 




BR 




1362 


5E82 


IBCH 013 


I50P 












RDH H DA,A8 


READ K8 


1364 


8747 


IBCH 014 








015 


ZONE 


N 


N=D1 BITS23 


DECODE MODIFIER ZONES 


1340 


9320 


IBCH 015 


ZONE 







040 


ABZONE 




BR 




1342 


90C4 


IBCH 016 


ZONE 


1 




083 


BONLY 




BR 




1344 


B307 


IBCH 017 


ZONE 


2 




024 


AONLY 


N 


NND1L 




1346 


079B 


IBCH, 018 


ZONE 


3 










Z=D1QK09 




1348 


F0E6 


IBCH 019 








021 


NOZONE 




BR IF LZNZ 




134A 


8900 


IBCH 020 






IOCM 


042 


DECODE 




BR 


BR ON CHANNEL 9 


1366 


07CB 


IBCH 021 


NOZONE 












Z=DlaKOC 




1368 


FOEO 


IBCH 022 








012 


IEND 




BR IF LZNZ 




136A 


8900 


IBCH 023 






IOCM 


042 


DECODE 




BR 


BR ON CHANNEL 12 


1300 


9098 


IBCH 024 


AONLY 







061 


DASH 




BR 


BR ON PRNTR ERROR I \ 


1302 


90A8 


IBCH 025 


AONLY 


1 




069 


1 1 II 




BR 


BR ON UNEQUAL C/J 


1304 


90B0 


IBCH 026 


AONLY 


2 




073 


KKKK 




BR 


BR EQUAL IS) 



A DDR 


WORD 


SEQUENCE NO* 


LABEL 




NEXTSEQ 


NEXTLABEL 


STATEMENT 


1306 


90 AC 


IBCH 


027 


AGNLY 


3 




071 


JJJJ 


BR 








1308 


90A4 


IBCH 


028 


AGNLY 


4 




067 


HHHH 


BR 








130A 


8104 


IBCH 


029 


AONLY 


5 




110 


RRRR 


BR 








130C 


8104 


IBCH 


030 


AONLY 


6 




110 


RRRR 


BR 








130E 


8104 


IBCH 


031 


AONLY 


7 




110 


RRRR 


BR 








1310 


8104 


IBCH 


032 


AONLY 


8 




110 


RRRR 


BR 








1312 


DB27 


IBCH 


033 


AONLY 


9 




058 


OVFLO 


BR 


IF 


HI 


BIT5=1 


1314 


8D7C 


IBCH 


034 


AONLY 


A 


I CYC 


037 


HISTRT 


BR 








1316 


8D7C 


IBCH 


035 


AONLY 


B 


ICYC 


037 


HISTRT 


BR 








1318 


8D7C 


IBCH 


036 


AONLY 


C 


I CYC 


037 


HISTRT 


BR 








13 1A 


8D7C 


IBCH 


037 


AONLY 


D 


ICYC 


037 


HISTRT 


BR 








13 1C 


810A 


IBCH 


03 8 


AONLY 


E 




107 


QQQQ 


BR 








131E 


8D 7C 


IBCH 


039 


AONLY 


F 


ICYC 


037 


HISTRT 


BR 








1320 


6DD3 


IBCH 


040 


A8Z0NE 










Pl= 


Pl+Pl 




1322 


FD1F 


IBCH 


041 








039 


AONLY F 


BR 


IF 


PI 


BIT3=1 


1324 


B971 


IBCH 


042 








043 


SSW N 


N=P1L 






10E0 


81D0 


IBCH 


043 


SSW 







121 


RDRER 


BR 








10E4 


CE7E 


IBCH 


044 


ssw 


2 




057 


ABEND 


BR 


IF 


HO 


BITO=0 


10E6 


9E72 


IBCH 


045 






IUBR 


002 


UNCDBR 


BR 








10E8 


0E7E 


IBCH 


046 


SSW 


4 




057 


ABEND 


BR 


IF 


HO 


BIT 1=0 


10EA 


9E72 


IBCH 


047 






IUBR 


002 


UNCDBR 


BR 








10EC 


EE7E 


IBCH 


048 


SSW 


6 




057 


ABEND 


BR 


IF 


HO 


BIT 2=0 


10EE 


9E72 


IBCH 


049 






IUBR 


002 


UNCDBR 


BR 








10F0 


FE7E 


IBCH 


050 


SSW 


8 




057 


ABEND 


BR 


IF 


HO 


B1T3=0 


10F2 


SE72 


IBCH 


051 






IUBR 


002 


UNCDBR 


BR 








10 F4 


CA7E 


IBCH 


052 


SSW 


A 




057 


ABEND 


BR 


IF 


HO 


BIT4=0 


10F6 


9E72 


IBCH 


053 






IUBR 


002 


UNCDBR 


BR 








10F8 


DA7E 


IBCH 


054 


SSW 


C 




057 


ABEND 


BR 


IF 


HO 


BIT5=0 


10FA 


9E72 


IBCH 


055 


SSOONE 




IUBR 


002 


UNCDBR 


BR 








10FC 


EA7B 


IBCH 


056 


SSW 


E 




055 


SSDONE 


BR 


IF 


HO 


BIT6=i 


10FE 


8D7C 


IBCH 


057 


ABEND 




ICYC 


037 


HISTRT 


BR 








1326 


1F43 


IBCH 


058 


OVFLO 










Hi= 


Hl*-K04 


1328 


7E82 


IBCH 


059 












STH H 


DAi 


f A8 


13 2 A 


9E72 


IBCH 


060 






IUBR 


002 


UNCDBR 


BR 








1098 


C722 


IBCH 


061 


OASH 






066 


AEND 


BR 


IF 


Dl 


BIT 0=0 


109A 


8890 


IBCH 


062 






IOCM 


039 


PTRER 


BR 








10 9C 


2D95 


IBCH 


063 


TPBUSY 










Pi= 


0$K90 




1096 


3D43 


IBCH 


064 












Pl= 


*P1$K04 


10A0 


52C0 


IBCH 


065 












RDH V 


AS, 


»P 


10A2 


8D7C 


IBCH 


066 


AEND 




ICYC 


037 


HISTRT 


BR 








10A4 


CF22 


IBCH 


067 


HHHH 






066 


AEND 


BR 


IF 


HI 


BITO=0 


10A6 


9E72 


IBCH 


068 






IUBR 


002 


UNCDBR 


BR 








10A8 


DF22 


IBCH 


069 


IIII 






066 


AEND 


BR 


IF 


HI 


BIT 1=0 


10AA 


9E72 


IBCH 


070 






IUBR 


002 


UNCDBR 


BR 








10AC 


EF22 


IBCH 


071 


JJJJ 






066 


AEND 


BR 


IF 


HI 


BIT 2=0 


10AE 


9E72 


IBCH 


072 






IUBR 


002 


UNCDBR 


BR 








1080 


FF22 


IBCH 


073 


KKKK 






066 


AEND 


BR 


IF 


Hi 


BIT 3=0 


10B2 


9E72 


IBCH 


074 






IUBR 


002 


UNCDBR 


BR 








10B4 


CB22 


IBCH 


075 


LLLL 






066 


AEND 


BR 


IF 


HI 


BIT4=0 


10B6 


9E72 


IBCH 


076 






IUBR 


002 


UNCDBR 


BR 








10B8 


DB22 


IBCH 


077 


MMMM 






066 


AEND 


BR 


IF 


HI 


BIT 5=0 


10BA 


9E72 


IBCH 


078 






IUBR 


002 


UNCDBR 


BR 








10 BC 


EB22 


IBCH 


079 


NNNN 






066 


AEND 


BR 


IF 


Hi 


BIT6=0 
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COMMENTS 

BR LOW CTI 

BR HIGH fU) 

BR FILE STATUS I VI 

IWI 

CXI 

I Yl 
BR ON OVERFLOW <Z) 
INVALID 
INVALID 

BR ON PROC CK I SI 
INVALID 

BR FILE STATUS i ) 
INVALID 
SHIFT LEFT 
INVALID 

BR ON SENSE SWITCHES 
BR ON READER ERROR 
TEST BIT EVEN SS A 

TEST BIT 1 EVEN SS B 

TEST BIT 2 EVEN SS C 

TEST BIT 3 EVEN SS D 

TEST BIT 4 EVEN SS E 

TEST BIT 5 EVEN SS F 



BR SS G 



TEST BIT 6 EVEN 



RESET OVERFLOW BIT 
RESTORE CONTROL BYTE 

BR IF MODIFIER A DASH 
BR ON PRINTER ERROR 
SET P TO 0094 

FOR READ OUT OF STAR 
PUT * IN B * 

TEST BIT ODD 

TEST BIT 1 ODD 

TEST BIT 2 ODD 

TEST BIT 3 ODD 

TEST BIT 4 ODD 

TEST BIT 5 ODD 

TEST BIT 6 ODD 
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ADDR 


WORD 


SEQUENCE NO. 


LABEL 




NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 


iOBE 


9E72 


IBCH 


080 






IUBR 


002 


UNCDBR 




BR 




10C0 


FB22 


IBCH 


081 


PPPP 






066 


AENO 




BR IF HI BIT7=0 


TEST BIT 7 ODD 


1QC2 


9E72 


IBCH 


082 






IUBR 


002 


UNCDBR 




BR 




10C4 


C748 


IBCH 


083 


BONLY 






101 


BSPECL 




BR IF Dl BITO^O 


BR IF £ OR * 


10C6 


B311 


IBCH 


084 








088 


BZGNE 


N 


N=D1L 




1080 


8160 


IBCH 


088 


BZONE 





LERR 


002 


ERRTST 





BR 


BR ON PUNCH ERROR 


1082 


909C 


IBCH 


090 


BZONE 


I 




063 


TPBUSY 




BR 


8R ON TAPE OVERLAP BUSY 


1084 


8A30 


IBCH 


091 


BZONE 


2 


JEND 


129 


EOR 




BR 


BR ON END OF REEL ( K) 


1086 


8270 


IBCH 


092 


BZONE 


3 


JENO 


139 


ERROR 




BR 


BR ON TAPE ERROR I L 1 


1088 


807C 


IBCH 


093 


BZONE 


4 


ICYC 


037 


HISTRT 




BR 


INVALID 


108A 


810C 


IBCH 


094 


BZONE 


5 




108 


SSSS 




BR 


BR ON FILE STATUS IN) 


10 8C 


8D7C 


IBCH 


095 


BZONE 


6 


ICYC 


037 


HISTRT 




BR 


INVALID 


108E 


8900 


IBCH 


096 


BZONE 


7 


IOCM 


042 


DECODE 




BR 


BR ON PRINTER BUSY 


1090 


90BC 


IBCH 


097 


BZONE 


8 




079 


NNNN 




BR 


BR ON INQ REQUEST CQ1 


1092 


57F9 


IBCH 


098 


BZONE 


9 










Hl^Dl 


BR ON CARRIAGE BUSY -R- 


1094 


3F63 


IBCH 


099 














H1^H1$K06 




1096 


8902 


IBCH 


100 






IOCM 


043 


CKBIT 




BR 




10C8 


07CB 


IBCH 


101 


BSPECL 












Z*DlnKOC 




10CA 


F0B5 


IBCH 


102 








075 


LLLL 




8R IF LZ=0 


BR IF INQUIRY CLEAR TEST 


10CC 


G7C5 


IBCH 


103 














Z=D1*-K00 




10CE 


F08C 


IBCH 


104 








095 


BZONE 


6 


BR IF LZNZ 




10D0 


5EF9 


IBCH 


105 














Hl^HQ 


BR ON EOF 1442-2 £ 


1002 


90C0 


IBCH 


106 








081 


PPPP 




BR 




010A 


2513 


IBCH 


107 


QQQQ 












Gi^OSKOl 




010C 


251B 


IBCH 


108 


SSSS 












G1=G1+K0i 




OiOE 


8106 


IBCH 


109 








ill 


READKA 




BR 




0104 


5759 


IBCH 


110 


RRRR 












G1=D1 




0106 


5EB2 


IBCH 


111 


REAOKA 












RDH H DA, AE 


READ FILE STATUS BYTE 


0108 


9153 


IBCH 


112 








113 


FILE 


N 


N=G1 BITS567 




01C0 


90B8 


IBCH 


113 


FILE 







077 


MMMM 




BR 


BR ON ANY FILE ERROR IY) 


01C2 


807C 


IBCH 


114 


FILE 


1 


ICYC 


037 


HISTRT 




8R 


INVALID 


01C4 


90B0 


IBCH 


115 


FILE 


2 




073 


KKKK 




BR 


BR ON FILE BUSY I 1 


01C6 


8D7C 


IBCH 


116 


FILE 


3 


ICYC 


037 


HISTRT 




BR 


INVALID 


01C8 


90CO 


IBCH 


117 


FILE 


4 




081 


PPPP 




BR 


BR ON FILE NOT RDY CNI 


OiCA 


90BC 


IBCH 


118 


FILE 


5 




079 


NNNN 




8R 


BR ON FILE ER I VI 


01CC 


90B4 


IBCH 


119 


FILE 


6 




075 


LLLL 




BR 


BR ON FILE WLR ! VO 


01CE 


90AC 


IBCH 


120 


FILE 


7 




071 


JJJJ 




BR 


BR ON FILE ADDR CMPR IXI 


01D0 


5E92 


IBCH 


121 


R9RER 












RON H OA, AA 


READ ERROR BYTE 


0102 


0A46 


IBCH 


122 








116 


FILE 


3 


BR IF HO BIT5*0 


SR IF NO READ ERROR 


01D4 


1E43 


IBCH 


123 














H0=H0*-K04 


RESET ERROR BIT 


01D6 


7E92 


IBCH 


124 














STH H OAtAA 


STORE BYTE BACK 


0108 


9E72 


IBCH 


125 






IUBR 


002 


UNCDBR 




BR 




















********************************** 


















* CROSS 


; REFERENCE FOR CSECT 


IBCH * 


















********************************** 


IBCH 


002 ICYC 235 


I ERR 


016 
















IBCH 


003 IBCH Oil 




















IBCH 


004 IBCH 002 




















IBCH 


008 IBCH 0C6 




















IBCH 


012 IBCH 022 




















IBCH 


013 IBCH 004 




















IBCH 


015 IBCH 014 




















IBCH 


021 IBCH 019 
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********************************** 

* CROSS REFERENCE FOR CSECT IBCH * 
********************************** 



IBCH 


024 


IBCH 


017 
















IBCH 


039 


IBCH 


041 
















IBCH 


040 


IBCH 


015 
















IBCH 


043 


IBCH 


042 
















IBCH 


055 


IBCH 


056 
















IBCH 


057 


IBCH 


044 


IBCH 


046 


IBCH 


048 


IBCH 050 


IBCH 052 


IBCH 054 


IBCH 


058 


IBCH 


033 
















IBCH 


061 


IBCH 


024 
















IBCH 


063 


IBCH 


090 
















IBCH 


066 


IBCH 


061 


IBCH 


067 


IBCH 


069 


IBCH 071 


IBCH 07 3 


IBCH 075 IBCH 077 


IBCH 


067 


IBCH 


028 
















IBCH 


069 


IBCH 


025 
















IBCH 


071 


IBCH 


027 


IBCH 


120 












IBCH 


073 


IBCH 


026 


IBCH 


115 












IBCH 


075 


IBCH 


102 


IBCH 


119 












IBCH 


077 


IBCH 


113 
















IBCH 


079 


IBCH 


097 


IBCH 


118 












IBCH 


081 


IBCH 


106 


IBCH 


117 












IBCH 


083 


IBCH 


016 
















IBCH 


088 


IBCH 


084 
















IBCH 


095 


IBCH 


104 
















IBCH 


101 


IBCH 


083 
















IBCH 


107 


IBCH 


038 
















IBCH 


108 


IBCH 


094 
















IBCH 


110 


IBCH 


029 


IBCH 


030 


IBCH 


031 


IBCH 032 






IBCH 


111 


IBCH 


109 
















IBCH 


113 


IBCH 


112 
















IBCH 


116 


IBCH 


122 
















IBCH 


121 


IBCH 


043 

















IBCH 079 IBCH 081 
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ICLR DESCRIPTIVE TEXT 



OBJECTIVES 

THIS INSTRUCTION CLEARS UP TO 100 POSITIONS QF PROGRAM STOR- 
AGE OF DATA* CLEARING STARTS AT THE A-ADDRESS AND CONTINUES 



LEFTWARD TO THE NEAREST HUNDREDS POSITION* THE CLEARED AREA 
IS SET TO BLANKS* FOR THE CLEAR STORAGE AND BRANCH INSTRUCT- 
ION, CLEARING STARTS AT THE B-ADDRESS. THE I -ADDRESS GIVES 
THE LOCATION OF THE NEXT INSTRUCTION. 



ADDR 


WORD 


SEQUENCE NO* 


LABEL 


NEXTSEQ 


NEXTLABEL STATEMENT 


COMMENTS 






ICLR 


001 


T 




1400 


CLEAR, CLEAR AND BRANCH OPS, 


KRAGER 


21D8 


4426 


ICLR 


002 


CLRSTR 








G=V 


SET UP FOR CVT TO DEC 


2IDA 


A304 


ICLR 


003 




ICTD 


021 


CYTDEC 


BAL 




21 DC 


2545 


ICLR 


004 










G1*0$K40 


SET BLANK CHAR 


21DE 


3002 


ICLR 


005 










SET S K=90 


SET SO AND S3 ON 


21E0 


2A13 


ICLR 


006 










TO=0$KOl 


SET SUBT CONST 


2IE2 


0F05 


ICLR 


007 










Z=H1*-K00 




21E4 


C4ED 


ICLR 


008 






012 


STLAST 


BR IF Z=0 




21E6 


753A 


ICLR 


009 


STQRBK 








STB Gi V-l 


BLANK OUT B FLO CHAR 


21E8 


7FAF 


ICLR 


010 










HlO=H13T0*C 


SUBTRACT 1 


21EA 


C4E6 


ICLR 


on 






009 


STORBK 


BR IF ZNZ 


BCH IF NOT RSLT 


21 EC 


753A 


ICLR 


012 


STLAST 








STB Gl V-l 


BLANK LAST POSITION 


21EE 


0EO5 


ICLR 


013 










Z=HO*-KOO 


CHECK HI ADDR 


21F0 


C4F6 


ICLR 


014 


BCHCK 




025 


SETADR 


BR IF ZNZ 


BCH IF NOT WRAP 


21F2 


52A2 


ICLR 


022 










ROH V DA f AC 




21F4 


23F7 


ICLR 


024 










V1=0$KFF 




21F6 


F27B 


ICLR 


025 


SETADR 




027 


ICYC 


BR IF DO BIT7«1 


BR IF CHAIN CMND 


21F8 


D27C 


ICLR 


026 






028 


GOBNCH 


BR IF DO BIT5-0 


BR IF CLR AND BR 


21FA 


8D7C 


ICLR 


027 


ICYC 


ICYC 


037 


HISTRT 


BR 


RTN TO I CYCLES 


21FC 


9E72 


ICLR 


028 


GOBNCH 


IUBR 


002 


UNCD8R 


BR 


GO BRANCH 
















********************************** 
















* CROSS 


REFERENCE FOR CSECT 


ICLR * 
















********************************* * 


ICLR 


002 ICYC 228 
















ICLR 


009 ICLR Oil 
















ICLR 


012 ICLR 008 
















ICLR 


025 ICLR 014 
















ICLR 


027 ICLR 025 
















ICLR 


028 ICLR 026 

















AD OR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 
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ICMP 


001 


T 


1400 


COMPARE 


OP KRAGER 








ICMP 


002 


♦ 


B FIELD COMPARED TO A FIELD CHAR 


BY CHAR. ON CMND CHAINE! 






ICMP 


003 


* 


CODE IS NOT CHANGED IF THE FIELDS 


ARE EQUAL, 4BIT=HI 5BIT 






ICMP 


004 


♦ 


6BIT = 


sLOW 7 BIT 


= EQUAL 




26E0 


7F71 


ICMP 


005 


CONTIN 






Hi*Hi-DH-l 


COMPARE CHAR 


26E2 


C4ED 


ICMP 


006 




Oil 


COMPAR 


BR IF Z=0 


BR IF CHAR EQUAL 


26E4 


F4EB 


ICMP 


007 




010 


HI GHCD 


BR IF A0=1 




26E6 


2E63 


ICMP 


008 








HO=0$K06 


SET B LESS THAN A 


26E8 


A6EC 


ICMP 


009 




Oil 


COMPAR 


BR 




26EA 


2EC3 


ICMP 


010 


HIGHCD 






HO=G$KOC 


SET B MORE THAN A 


26EC 


57 1A 


ICMP 


Oil 


COMPAR 






RDB Dl U-l 


READ A FIELD CHAR 


26 EE 


5F3A 


ICMP 


012 








RDB HI V-l 


READ B FIELD CHAR 


261=0 


D74E 


ICMP 


013 




021 


CKBFWM 


BR IF Di BIT 1=0 


BCH ON A FLD WM 


26F2 


DF61 


ICMP 


014 




005 


CONTIN 


BR IF HI BIT 1=1 


BCH IF NO B FLD WM 


26F4 


3F45 


ICMP 


015 








H1=H1$K40 


INSURE NO B WM 


26F6 


7F71 


ICMP 


016 


BFLDWM 






H1»HI-D1*1 


COMPARE CHAR 


26F8 


C4D3 


ICMP 


017 




023 


COMPEQ 


BR IF ZxO' 


BR IF CHAR EQUAL 


26FA 


F4D1 


ICMP 


018 




022 


SETHGH 


BR IF AC=1 




26FC 


2E63 


ICMP 


019 








H0=0$K06 


SET B LESS THAN A 


26FE 


A6D8 


ICMP 


020 




034 


SETNEW 


BR 




26CE 


DF76 


ICMP 


021 


CKBFWM 


016 


BFLDWM 


BR IF HI BIT 1=0 


BCH ON B WM 


2600 


2EC3 


ICMP 


022 


SETHGH 






HO=0$KOC 


SET B MORE THAN A 


26D2 


DA59 


ICMP 


023 


COMPEQ 


034 


SETNEW 


BR IF HO BIT5=1 


BR IF UNEQUAL 


26D4 


F25F 


ICMP 


024 




038 


ENDOFC 


BR IF 00 BIT7=1 


BR IF CHAINED COMP 


2606 


2E13 


ICMP 


02 5 








H0=0$K01 


SET EQUAL COMPARE 


26D8 


5A82 


ICMP 


034 


SETNEW 






RDH T DA, A8 


READ OLD COND CODE 


26DA 


4EB3 


ICMP 


035 








T1=H0XH«-T1L 


SET NEW COND CODE 


26DC 


7A82 


ICMP 


036 








STH T DA f A8 


STORE NEW COND CODE 


26DE 


8D7C 


ICMP 


038 


ENDOFC 


ICYC 037 


HISTRT 


BR 


RETURN TO I CYCLES 














******************^:^************* 














* CROSS 


REFERENCE FOR CSECT 


ICMP * 














********************************** 


ICMP 


005 ICMP 014 














ICMP 


010 ICMP 007 














ICMP 


Oil ICMP 006 


ICMP 


009 I CVC 


283 








ICMP 


016 ICMf 


► 021 














ICMP 


021 ICMP 


► 013 














ICMP 


022 ICMF 


►018 














ICMP 


023 ICMP 


► 017 














ICMP 


034 ICMP 


' 020 


ICMP 


023 










ICMP 


038 ICMP 


* 024 















AD OR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLA8EL STATEMENT 






I COM 001 


T 


1400 


COMMON ROUTINES 


0118 


0A61 


ICON 002 


UNPACK 




£=T0+K06 


01 1A 


EG94 


ICON 003 




006 


ATOF M IF HZNZ 


one 


2AFD 


ICOM 004 






TO^TO+KFO 


one 


128E 


ICON 005 






RTN 


0114 


2A7F 


ICOM 006 


ATOP 




TQ=T0+K77 


0116 


128E 


ICON 007 






RTN 
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TAYLOR 



ADD 6 TO DIGIT 

TEST FOR A THRU F 

0-9 ADD F 

RETURN 

A-F ADD 77 

RETURN 



ICOM 002 
ICOM 006 



ISTP 015 
ICOM 0C3 



ISTP 018 ISTP 021 



********************************** 
* CROSS REFERENCE FOR CSECT ICOM * 

********************************** 

ISTP 024 JTYP 508 
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ICTO DESCRIPTIVE TEXT 



OBJECTIVES 

THIS ROUTINE IS USED FOR 14QO-SERIES OPERATIONS THAT REQUIRE 



STORAGE CLEARS TO THE NEXT HUNDREDS POSITION* OTHER OPER- 
ATIONS THAT USE THIS ROUTINE ARE DISPLAY MESSAGE, STORE A- 
OR B-STAR, AND INSTRUCTION STEP* 
REFERENCE TO UNIQUE DECIMAL VALUES* FOR EXAMPLE, CLEAR 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 






ICTD 


001 


T 






ICTD 


002 


♦ 






ICTD 


003 


* 






ICTD 


004 


* 






ICTD 


005 


* 






ICTD 


006 


* 






ICTD 


007 


* 


2300 


54A2 


ICTD 


019 


LQWRAP 


2302 


35F7 


ICTD 


020 




2304 


5A02 


ICTD 


021 


CYTDEC 


2306 


2C07 


ICTD 


022 




2308 


2E25 


ICTD 


023 




230A 


2002 


ICTD 


025 




230C 


75B9 


ICTD 


026 




2306 


74A9 


ICTD 


027 




2310 


F580 


ICTD 


028 




2312 


6443 


ICTD 


029 




2314 


5409 


ICTD 


030 




2316 


6443 


ICTD 


031 




2318 


6D4B 


ICTD 


032 




231A 


6D53 


ICTD 


033 




23 1C 


F4A4 


ICTD 


034 




23 IE 


244B 


ICTD 


035 


CARY 


2320 


2D68 


ICTD 


036 




2322 


F49F 


ICTD 


037 




2324 


F5AC 


ICTD 


038 


NOCARY 


23 26 


244B 


ICTD 


039 


CARRYO 


2328 


2D6B 


ICTD 


040 




23 2A 


F4A7 


ICTD 


041 




232C 


5DF5 


ICTD 


042 


N0S3 


232E 


2FBD 


ICTD 


043 




23 30 


55E0 


ICTD 


044 




2332 


1G02 


ICTD 


045 




2334 


2F07 


ICTD 


046 




2336 


5FE9 


ICTD 


047 




2338 


D03E 


ICTD 


048 




233A 


2F55 


ICTD 


049 




233C 


2E23 


ICTD 


050 




233E 


CD42 


ICTO 


051 


N250 


2340 


2E1B 


ICTD 


052 





NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



1401 COMPATIBILITY FEAT CONVERT ADDR BACK TO DEC* 1/12/67 R.C.HUANG 

THIS IS A BAL ROUTINE WHICH CONVERTS THE HEX EQUIVALENT OF A 1401 ADDR 
SACK TO DECIMAL. THE REGISTERS USED IN THIS ROUTINE ARE T,GtP,AND H. 
UPON ENTRY, THE ADDR TO BE CONVERTED SHOULD BE IN G REG. CONV. ANSWER 
IN H REGISTERS UPON RETURN WITH Hl-LG AS UNITES, Hl-HI AS TEN'S, HO-LO 
AS HUNDRED'S, AND HO-HI AS THOUSAND'S. ONLY THOUSAND'S IS IN BINARY, 
THE REST ARE ALL IN DECIMAL* 



019 LOWRAP 



038 NOCARY 



035 
042 



CARY 
N0S3 



039 CARRYO 



051 N250 



053 NADD1 



RDH G DA, AC 

Gl=Gi$KFF 

RDH T DA, 88 

P0=0 

H0=0$K20 

SET S3 

GlC^Gl-Tl+C 

GOC=GO-TO+C 

BR IF S3=0 

GO=GO+GO 

Pl=GG 

GO=GO*GO 

P1C=P1+G0 

Pi=PH-Gl 

BR IF AOO 

GO=G0+K04 

P1=P1*K06 

BR IF AO=l 

BR IF S3=0 

G0=G0+K04 

P1=P1*K06 

BR IF AC=1 

H1=P1XL 

Hl=Hi*KBO 

ROB Gl AS,H 

RST S K=90 

Hl=0 

HO=Hi 

BR IF GO 

Hl=0$K50 

HO=0$KO2 

BR IF PI 



GET HIGHEST ADDRESS 

READ BIAS CONSTANT 
INITIALIZE TO ZERO 



SUBT BIAS LOW 
SUBT BIAS HIGH 
ADDRESS LESS THAN BIAS 
2 TIMES 

STORE 2X IN PI 
4 TIMES - QUOTIENT 
6 TIMES, CARRY IN S3 
♦♦ADD 6XHI TO LO - REMAINDER 
BR IF NO CARRY OUT 

**CARRY OUT, ADD 1 TO QUOTIENT 
ADD 6 TO REMAINDER 
BR IF CARRY OUT 
♦♦BR IF NO CARRY WHEN X 6 

♦♦CARRY OUT, ADD 1 TO QUOTIENT 
ADD 6 TO REMAINDER 
BR IF CARRY OUT 
TAKE REMAINDER HI 

♦♦SET UP H TO ADDR AUX 1 TABLE 
X'LATE REM. HI TO DEC* 

RESET SO, S3 
ZERO OUT RESULT REGS 



BIT5=0 



BR IF NOT TO ADO 
GO 5=1 ADD 0250 



0250 



BIT 0=0 



BR IF REMAINDER a 128 



HO=H0+KOi ♦♦REMAINDER a OR = 128, ADD 100 



AODR 



WORD SEQUENCE NO, LABEL 



NEXTSEQ NEXTLA8EL STATEMENT 
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2342 




F148 


ICTO 053 


NAD01 


2344 




2E18 


ICTO 054 
ICTO 055 
ICTO 056 
ICTO 057 


* 

* 
* 


2346 




2002 


ICTO 058 




2348 




C04C 


ICTO 059 


TA80K 


234A 




2E58 


ICTD 060 
ICTO 061 

ICTD 062 
ICTD 063 
ICTO 064 


* 

* 
* 


234C 




C952 


ICTO 065 


N500 


234E 




2F88 


ICTO 066 




23 50 




1083 


ICTO 067 




2352 




5000 


ICTO 068 


LESS8 


2354 




7FDF 


ICTO 069 
ICTO 070 


# 


2356 




7F5F 


ICTO 071 




2358 




7ECF 


ICTO 078 




235A 




544B 


ICTD 080 




235C 




6E43 


ICTD 081 




235E 




128E 


ICTO 082 




ICTO 


019 


ICTD 


i 028 




ICTO 


021 


ICLR 


, 003 IOIS 


021 IOIS 025 


ICTO 


035 


ICTD 


• 037 




ICTD 


038 


ICTO 


' 034 




ICTO 


039 


ICTO 


• 041 




ICTO 


042 


ICTD 


i 038 




ICTO 


051 


ICTO 


048 




ICTD 


053 


ICTD 


051 




ICTO 


059 


ICTO 


' 053 




ICTO 


065 


ICTD 


059 




ICTO 


068 


ICTD 


0£5 





059 TA80K BR IF Gi BIT7*0 BR IF TABLE VALUE OK 

H0=H0*K01 **TABLE VALUE IS 101 LESS 
THE TRANSLATION TABLE OF REMAINDER-HI IS SET UP WITH VALUES AS 11 FOR 
112, 07 FOR 208, 23 FOR 224,AN0 39 FOR 240* SO THEY ARE 101 LESS OR 
201 LESS. THESE ARE THE ONLY VALUES IN THE TABLE WITH BIT 7 ON. 
SET S3 

BR IF NOT TO ADD 500 
G04=l, ADO 500 



065 N500 



BR IF GO BIT4*0 
H0=H0*KO5 

REG. GO (REMAINDER! BITS 4,5*00 .- ADD OOCO 

01 ■- ADO 0250 

10 - ADO 0500 

11 - AOD 0750 

068 LESS8 BR IF Pi BIT4=0 BR IF REM.LG Q 8 

HUH1+K08 **REM.LO n OR =8. ADO 8 TO TOTAL 
P!=P1*-K08 STRIP BIT 4 - WEIGHTS 

Pl^PlL TAKE REMAINDER LO 

HlC=HliPl*C **ADD IT TO TOTAL. CAN'T HAVE 

CARRY - OUT 
H1C=H13GH-C **ADD REM. HI VALUE FROM TABLE 
H0C=H03P0*C **PROPAGATE CARRY TO HI,P0=00 
GO^GOH **TAKE THOUSANDS ONLY FROM QUOTIENT 
HO=HO*GO ADO IN BINARY TO HIGH 

RTN DONE 

****** ********************** ****** 

* CROSS REFERENCE FOR CSECT ICTD * 
********************************** 

I SAB 041 ISTP 009 
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I-CYCLES OBJECTIVES 



I-CYCLE OBJECTIVES VARY ACCORDING TO INSTRUCTION LENGTH 
AND TYPE. THERE ARE 6 VALID INSTRUCTION LENGTHS- li COPER- 
ATION ALONE), 12, 14, 15, 17, AND 18. INSTRUCTION LENGTH AND 
OP CODE VALIDITY ARE INDICATED BY WORD MARKS U-BIT OFF!. 



18 OBJECTIVES 

1. NORMAL I-CYCLE ENTRY POINT I HI STRT J , READ OPERATION 
CODE, CHECK FOR MM. USE TABLE IN AUXILIARY STORAGE TO CONVERT 
1400-SERIES OP CODE TO BIT SIGNIFICANT OP CODE AND PLACE IT IN 
LOCAL STORAGE ZONE 0, Gl REGISTER. 

2. READ II CHARACTER. CHECK FOR Q-OP CODE, INITIALIZE STATUS 
REGISTER. USE II CHARACTER TO LOOK UP AUXILIARY STORAGE POS- 
ITION. VALUE READ FROM TABLE INCLUDES HUNO, THQUt AND BIAS. 
THIS IS THE FIRST STEP IN DEVELOPING THE ACTUAL ADDRESS. 

3. READ 12 CHARACTER. CHECK FOR SPECIAL CHARACTER, INVALID 
DIGIT, ETC. IF THERE ARE TENS ZONES, BRANCH TO THE INDEXING 
ROUTINE UNDX), PERFORM THE INDEXING OPERATION AND RETURN AT 
THE SETTO LABEL WITH COMPLETE INDEXED A-ADORESS. 

4. IF THERE ARE NO TENS ZONES, READ 13 CHARACTER AND COMPLETE 
TRANSLATION OF A-ADORESS INCLUDING THOUSANDS ZONES. 

5. READ 14 CHARACTER. TRANSFER A-ADDRESS TO A-SFAR IU-REG), 
AND SET STATLS. EXAMINE AND CLASSIFY 14 CHARACTER (BRANCH, 
I/O OP, ETC.) TRANSLATE 14 ADDRESS FROM AUXILIARY STORAGE. 



6. READ 15 CHARACTER. 
SUBSTITUTED FOR 12. 



THIS IS A REPETITION OF STEP 3 WITH 15 



17 OBJECTIVES 

i - 7. SAME AS FOR 18 OBJECTIVES. 

8. READ 17 CHARACTER IWITH WML TRANSFER B-ADDRESS TO B-STAR 
CV-REGI. BRANCH TO 0PI478. DECODE OPERATION CODE AND BRANCH 
TO APPROPRIATE ROUTINE FOR EXECUTION. 



15 OBJECTIVES 

1-5. SAME AS FOR 18 OBJECTIVES. 

6. READ 15 CHARACTER IWITH WM). BRANCH TO I250P. SET MOD- 
IFIER U4 CHARACTER) INTO Dl-REG AND SET STATUS. DECODE THE 
OPERATION AND BRANCH TO THE APPROPRIATE ROUTINE FOR EXECUTION. 



14 OBJECTIVES 

1-4. SAME AS FOR 18 OBJECTIVES. 

5. READ 14 IWITH WM ) , TRANSFER A-ADDRESS TO A-STAR AND SET 
STATUS. DECODE THE OPERATION AND BRANCH TO THE APPROPRIATE 
ROUTINE FOR EXECUTION. 



12 OBJECTIVES 

I AND 2. SAME AS FOR 18 OBJECTIVES. 

3. READ 12 CHARACTER IWITH WMI. BRANCH TO I250P. SET THE 
MODIFIER CHARACTER INTO Dl-REG. SET STATUS. DECODE THE OPER- 
ATION AND BRANCH TO THE APPROPRIATE ROUTINE FOR EXECUTION. 



REPEAT STEP 4 I IF APPLICABLE! WITH 16 SUBSTITUTED FOR 13. 



II OBJECTIVES 



8. READ 17 CHARACTER ♦ TRANSFER B-ADDRESS TO B-STAR IV-REG). 
SET MODIFIER CHARACTER INTO Dl-REG. 

9. READ 18 CHARACTER CWITH WMI AND SET STATUS. DECODE THE 
OPERATION AND BRANCH TO THE APPROPRIATE ROUTINE FOR EXECUTION. 



1. SAME AS STEP 1 OF 18 OBJECTIVES. 

2. READ THE II CHARACTER. WORD MARK INDICATES OPERATION 
ALONE III OP I. SET STATUS AND DECODE THE OPERATION. BRANCH 
TO THE APPROPRIATE ROUTINE FOR EXECUTION. 



ADOR 



WORD SEQUENCE NO- 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 
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ODE2 
007C 
0O7E 
0080 
0082 
0084 
0086 
0088 
008A 
008C 
008E 
0090 
0092 
0094 
0096 
0098 
009A 
009C 
009E 
ODEO 
OOAO 
00A2 
0DA4 
00A6 
00A8 



9682 
2F43 

4FFF 
F1E2 
5F98 
2E25 
0F6I 
16C5 
16F3 
3F45 
CF17 
FC94 
2FF7 
3F85 
55E0 
5058 
0D21 
3613 
8CAC 
8178 
D52A 
4206 
1615 
E62A 
3615 



I CYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 



001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
027 
02 8 
036 
037 
038 
039 
041 
047 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
067 
069 
070 
071 
072 
073 



T 

* 

* 

* 

* 

* 

* 

* 

* 
* 

* 
* 

* 
* 
* 



INTRPT 
HISTRT 



ICYC 
EXTRA 



OPSPEC 

NO SPEC 
ROHUNO 



OPNGWM 
HUNOWM 



1401 COMPATIBILITY FEATURE I-CYCLE 12/7/66 R. C. HUANG 

********************************************************************** 

* 

IN COMPATIBILITY MOOE LOCAL STORAGE ZONE REGISTERS HAVE THE * 

FOLLOWING MEANING. * 

U= A STAR (IF 10 OP UO=TENS Ui=UNITS) * 

B STAR * 

I STAR * 

A ADDRESS HUNDREDS POSITION * 

OP CGOE * 

STATUS ANO FLAG REGISTER * 

A REGISTER ( D MODIFIER ) * 

MUST BE 00 ON ENTERING I CYCLES * 

USED * 

AS * 

WORKING REGISTERS * 

* 
THE STATUS REGISTER 100) BITS WHEN ON MEAN * 

BIT 0= DURING I CYCLES=B AOOR BEING COMPUTED, AT END OF I CYCLES = I5 OP 
BIT 1*= HUNDREDS OR TENS DIGIT IS INVALID * 

BIT 2= A STAR ADDRESS IS INVALID * 

IS INVALID * 

* 

* 

* 

* 

********************************************************************** 



V- 
1 = 

G0= 

Gl = 

00 = 

01 = 
P0= 
T = 
H= 

Pl = 



BIT 3= B STAR ADDRESS 

BIT 4= 12 OP 

BIT 5= 14 OP 

BIT 6= 18 OP 

BIT 7= M%AAABBBD OP OR CHAINED CMND. 



INRU 009 ENTER 



036 INTRPT 



GO TO INTERRUPT ROUTINE 

SET UP CONSTANT FROM I/O OPS 

ENABLE MACH CHK MASK,RESET WAIT 

READ OP CODE 



067 OPNGWM 



057 
056 



NOSPEC 
OPSPEC 



BR 

H1=0$K04 

MW=H1 

BR IF S7=0 

ROB HI 1+1 

H0=0$K20 

BR IF HI BIT 1=1 BR ON OP WM 

DO=DO*-K€0 **RESET STAT REG EXCEPT BITS2,3 

DO=DO*-KOF **RESET STAT REG EXCEPT BITS2,3 

H1=H1$K40 FORCE WM TO ADDR AUX STORAGE 

BR IF HI BIT0=1 8R ON NON-SPECIAL CH 



069 HUNOWM 



195 
I ERR 032 

074 



0PI478 
OPNGWM 
AADRVD 



074 AADRVO 



BR IF LZNZ 

H1=0$KFF 

Hl=Hi$K80 

ROB Gl AS,H 

RDB PI I + i 

8R IF PI BIT 1=1 

D0=D0$K01 

BR 

BR 

BR IF Gl BIT 1=0 

V=U 

D0=D0*HU0 

BR IF 00 BIT 2=0 



SPEC CH. BR ON NGN ROW OPS 
INVALID GP»S,B,6; f 0R - 
FORCE BIT TO ADDR AUX STORAGE 
**READ OP TABLE IN AUX STORE 
READ HUNDREDS 
BR ON NO WM 

SET CHAIN CMND FLAG ON 
OP ALONE 
OP WITH NO WM 
BR IF NOT Q OP 
Q OP- TRANSFER A * TO B * 
B AOOR VALID 
BR IF A ADDR VALIO 



00=D0$K10 **SET B AOOR INVALID STAT-D03 
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AODR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 


OUAA 


1625 


IOC 


074 


AADRVD 








D0=D0*-K20 


A ADDR VALID 


ODAC 


5DFI 


ICYC 


075 


BRHUSP 








H1=P1X 


CROSS HUNDREDS 


OOAE 


CD45 


ICYC 


076 






110 


NOSPCH 


BR IF PI BIT0=1 


BR IF NOT SPCL CHAR 


ODBO 


00 IB 


ICYC 


077 










Z=PiaK01 **SPECIAL CH, MASK FOR / 


0082 


FOCT 


ICYC 


078 






111 


SLASH 


BR IF LZ=0 


BR IF SLASH 


QDB4 


C664 


ICYC 


079 






086 


TSTMLU 


BR IF 00 BITO~0 


BR IF A HUNDRED f S 


0086 


0040 


ICYC 


€80 










Z=P lnK40 **B HUNDRED* St MASK FOR BLANK 


00B8 


C4C2 


ICYC 


081 






109 


IVDHUN 


BR IF ZNZ 


BR IF NOT BLANK 


00 BA 


05BB 


ICYC 


082 










Z=GiaK08 **BLANK 


IN 1-4, MASK FOR BR OP 


ODBC 


C4C2 


ICYC 


083 






109 


IVDHUN 


BR IF ZNZ 


BR IF NOT BR OP 


ODBE 


5886 


ICYC 


84 










1=1-1 


DECREMENT I-STAR 


OOCO 


9E?2 


ICYC 


085 




IUBR 


002 


UNCOBR 


BR **UNC0NDITI0NAL BRANCH, BXXXB 


0DE4 


5559 


ICYC 


086 


TSTMLU 








Gl^Gi 


PUT Gl ON Z BUS 


0DE6 


F0C2 


ICYC 


087 






109 


IVDHUN 


BR IF LZNZ 


BR IF NOT M L U OP 


00E8 


ODCB 


ICYC 


088 










Z^PlaKOC 




ODEA 


F0C2 


ICYC 


089 






109 


IVDHUN 


BR IF LZNZ 


BR IF NOT % f a,a,OR X 


OOEC 


E042 


ICYC 


090 






109 


IVDHUN 


BR IF PI BIT2=0 


BR IF NOT % OR 3 


OOEE 


5551 


ICYC 


097 










G1=G1X 


SET UP 


GDFO 


3525 


ICYC 


098 










G1^=G1$K20 


G FOR 


0DF2 


35C3 


ICYC 


100 










G1=G1$K0C 


I/O OPS 


0DF4 


5D49 


ICYC 


102 










G0=P1 **SAVE 


HUNDRED'S OF A ADDR 


GDF6 


3635 


ICYC 


103 










D0=D0$K30 


MAKE A AND B INVALID 


0DF8 


5198 


ICYC 


104 










ROB Ul 1*1 


READ TENS 


ODFA 


5109 


ICYC 


105 










UO^Ul 




ODFC 


5198 


ICYC 


106 










ROB Ul 1*1 


READ UNITS 


ODFE 


5098 


ICYC 


107 










ROB Pi 1*1 


READ 1-4 


OEOO 


8C92 


ICYC 


108 






177 


RDI4 


BR **CONTINUE COMPUTE B AOOR 


00C2 


3645 


ICYC 


109 


IVDHUN 








D0=00$K40 ** INVALID HUNDRED'S, SET 001 


0DC4 


6FFF 


ICYC 


110 


NOSPCH 








H1C=H1L+H1*C 


SHIFT LOW BY 1 BIT 


0DC6 


5AE0 


ICYC 


111 


SLASH 








RDH T AS,H ** XLATE HNDS+BIAS FOR AUX STG 


0DC8 


5F98 


ICYC 


112 










ROB Hi 1*1 


READ TEN f S 


OOCA 


0F4F 


ICYC 


113 






115 


TENOWM 


BR IF HI BIT 1=1 


BR IF NO WM 


ODCC 


8C36 


ICYC 


114 






197 


I250P 


BR 


I- 2, OR 1-5 OP 


OOCE 


CF5F 


ICYC 


115 


TENOWM 




122 


TENSPC 


BR IF HI BITO*i 


BR IF TEN'S NOT SPoCH 


ODOO 


OFAB 


ICYC 


116 










Z=HiaK0A **SP*.CH 


1, MASK FOR SUBSTITUTE B 


0DD2 


FOOD 


ICYC 


117 






123 


SUBSBK 


BR IF LZ=0 


BR IF SUBSTITUTE B 


0D04 


OF 40 


ICYC 


118 










Z=HlnK40 


MASK FOR BLANK 


0DD6 


C4DE 


ICYC 


119 






122 


TENSPC 


BR IF ZNZ 


BR IF NOT BLANK 


0DO8 


3645 


ICYC 


120 










00=00$K40 


SET INVALID HUNDREDS 


OOOA 


8CC6 


ICYC 


121 






127 


TENZON 3 


BR 




ODDE 


8F09 


ICYC 


122 


TENSPC 




124 


TENZON N 


N=H1 BITS 23 


BR ON TEN'S ZONE 


ODOC 


8718 


ICYC 


123 


SUBSBK 


INOX 


003 


INOXIN 


BR **SUBSTITUTE B, INDEXED 


OCOO 


8718 


ICYC 


124 


TENZON 


INOX 


003 


I NOX IN 


BR 


A f B ZONE, INDEXED 


0C02 


8718 


ICYC 


125 


TENZON 1 


INOX 


003 


I NOX I N 


BR 


B ZONE, INDEXED 


0C04 


8718 


ICYC 


126 


TENZON 2 


1 NOX 


003 


INOXIN 


BR 


A ZONE, INDEXED 


0C06 


5798 


ICYC 


127 


TENZON 3 








ROB 01 1*1 **NG 


INDEXING, READ UNIT'S 


0C08 


0721 


ICYC 


128 






140 


UNOWM 


BR IF 01 BIT 1-1 


BR IF NO WM 


OCOA 


5F79 


ICYC 


129 


XI3I6 








Dl=Hi **I-3,0R I- 


6 OPS»A REG EQUALS TEN'S 


OCOC 


5F29 


ICYC 


130 










V0=H1 **B* TEN* 


S POSITION EQUALS TEN'S 


OCOE 


2345 


ICYC 


131 










V1=0$K40 


BLANK OUT B* LOW 


OCiO 


C640 


ICYC 


132 






202 


13 


BR IF 000=0 


BR IF I-LENGTH OF 3 


0C12 


1685 


ICYC 


133 










D0=D0*-K80 


CLEAR 15 IND 


0C14 


8C44 


ICYC 


134 






204 


15 


BR 


GO TO 15 ROUTINE 



ADDR 

0C16 
0C18 
0C1A 
OC1C 
OC1E 
OC20 
0C22 
0C24 
0C26 
0C28 
0C2A 
GC2C 
OC 2E 
0C30 
0C32 
0C34 
OC80 
OCCE 

ocoo 

OCD2 
OCD4 
0C82 
0530 
0532 
0534 
0C84 
020A 
02 OC 
020E 
0C86 
0C88 
0C8A 
0C8C 
0C8E 
0C90 
0C92 
0C94 
0C96 
0C98 
OCBO 
0CB2 
0CB4 
0CB6 
0CB8 
0C9A 
0C9C 
0C9E 
OCAO 
0CA2 
OCA 4 
0CA6 
0CA8 
OCA A 



WORD SEQUENCE NO. 



C610 
3625 
8C32 
3615 
8C32 
5FFD 
5FE0 
6BFB 
6AC0 
FB17 
0617 
C733 
07 IB 
FC96 
57F0 
8719 
8CCE 
2FE0 
20E3 
2020 
8C88 
8530 
2F 40 
3DE9 
8C88 
820A 
2FA0 
20F3 
8C88 
20C7 
6BFB 
6A0D 
5D98 
C61B 
40A6 
DD30 
3685 
1655 
80 AC 
3643 
C520 
4206 
1615 
8CAC 
42A6 
1685 
DD2C 
0553 
C4A0 
50 7 9 
5098 
0D25 
3623 



ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
iCYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
IC YC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
IC YC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 



135 

136 
137 
138 
139 
140 
141 
142 
149 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 



LABEL 

INVALO 

SETBER 

UNOWM 



UNOSPC 

UNZONE 
TWELVE 



UNZONE 1 
EIGHT 



UNZONE 2 
FOUR 



UNZONE 3 

SUMUP 

SETTO 



R0I4 



I40P 



BADCMP 



NOROWO 



NEXTSEQ 
138 
156 

156 



135 
135 
156 



NEXTLABEL STATEMENT 



CLOAD=*E40, EC LEVEL=1282U 
COMMENTS 
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158 
159 



172 
164 



172 
168 



186 
181 

075 
195 



195 
195 



SETBER 

UNOSPC 
UNOSPC 



INVALD 
I NVALD 
UNOSPC 



135 INVALO 



UNZCNE N 
TWELVE 



SUMUP 
EIGHT 



SUMUP 
FOUR 



172 SUMUP 



BAOCMP 
1 4 OP 

BRHUSP 
0PI478 



195 0PI478 



0PI478 
0PI478 



SET A INVALID 

SET B INVALID 

USE TEN'S NUMERIC 

XL ATE TEN'S 

ADD TEN'S TO HUNDREDS 

ADD CARRY, PG=00 

BR ON INVALID TENS 

BR ON INVALID HUNDREDS 

BR IF UNITS NOT SP CH 

SP.CH, MASK FOR / 

BR IF NOT / 

TAKE UNIT'S NUMERIC 

BR ON UNITS ZONE 



191 NOROWO 



BR IF DO 8IT0=i 

D0=D0$K20 

BR 

D0=D0$K10 

BR 

H1=H1L 

ROB HI AStH 

T1C=T1*H1 

T0C=TG+PQ+C 

BR IF HI BIT7=1 

m IF DO BIT 1=1 

BR IF 01 BIT0=1 

Z=01nKGl 

BR IF LZNZ 

H1=D1L 

N=Dl BITS23 

BR **12,000 ADD 2EE0 TO UNIT'S 

H1=H1*KE0 

P1=O$K0E 

P1=P1*K20 

BR 

BR ** 8 f 000 ADD 1F40 TO UNIT'S 

HI=HH-K40 

P1=0-KE0 

BR 

BR ** 4,000 ADD OFAO TO UNIT'S 

H1=H1+KA0 

P1=0$K0F 

BR 

Pi=0 ** THOUSAND, ZERO OUT PI 

T1C=T1+H1 ADD UNIT'S TO TOTAL 

T0C=T0*P1*C TOTAL ADDR IN HEX 

ROB PI 1*1 READ 1-4 OR 1-7 

BR IF DO BIT0=i BR IF B ADDR COMPUTE 

U=T **A ADDR, TRANSFER ADDR TO A* 

BR IF PI BIT 1=0 BR IF 14 WM 

D0=DO$K80 **SET B ADDR COMPUTATION STAT 

D0=D0*-K50 RST INV HNDRDS-SET B VALID 

BR **G0 BACK TO COMPUTE B ADDR 

D0=D0$K04 SET 1-4 OP STAT 

BR IF Gl BIT0=1 BR IF M L Q OR H OP 

V=U B* EQUALS A* 

D0=D0*-K10 SET 8 STAR VALID 

BR I-40P 

V=T **B ADDR COMPUTED, TRANSFER ADDR TO B* 

D0=D0*-K80 RESET B ADDR COMP 

BR IF PI BIT 1=0 BR ON 1-7 WM 

Z=G1*-K05 MASK FOR ,0R / OP 

BR IF Z=0 BR ON , OR / OP 

D1=P1 **I-8 OP,PUT MODIFIER IN Dl-A REG. 

RDB PI 1 + 1 READ 1-8 CH. 

BR IF PI BIT 1=1 BR IF NO 1-8 WM 

D0=D0$K02 SET 1-8 OP STAT 



ADDR 

OCAC 
OCAE 
0C36 
0C38 
OC3A 
0C3C 
0C3E 
0C40 
GC42 
0C44 
0C46 
0C48 
0020 
0022 
0024 
0026 
ODOO 
0002 
0004 
0006 
0008 
OOOA 



0860 
OB 64 
0868 
0B6A 
0B6C 
0B76 
08 7C 
0B7E 
0C60 
0C64 
0C66 
0C68 
0C6A 
0C6C 
0C6E 
0C70 
0C72 
0C74 
0C76 
0C78 
GC7A 
0C7C 
0C7E 
OCEO 
0CE2 
0CE4 
0CE6 



WORD SEQUENCE NO* 



5886 
862B 
5D79 
2245 
2345 
C645 
3683 
3625 
4026 
3615 
5886 
862B 
850B 
8515 
8515 
8515 
B167 
B169 
B179 
010B 
914E 
A06C 



9C8 8 
A062 
8C50 
A108 
807C 
934C 
8100 
840A 
9C9C 
A0A6 
A DA 6 
9B7C 
8C50 
9578 
A26E 
9704 
9702 
85F4 
864E 
A204 
A204 
AE6C 
A6EC 
8D7C 
A57C 
999C 
999C 



ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
IC YC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 



195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
220 
221 
222 
223 
225 
226 
227 
228 
229 
235 
23 7 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
282 
283 
284 
287 
288 
289 



LABEL 
OP I 47 8 
I25QP 

BLKBU 

13 

15 

BRONMK 
VLOAOR 
VLOAOR 1 
VLOAOR 2 
VLOAOR 3 
OPROW 
OPROW 1 
OPROW 2 
OPROW 3 

OPINVO 



NEXTSEQ NEXTLABEL STATEMENT 



OPROWO 
OPROWO 2 
OPROWO 4 
OPROWO 5 
OPROWO 6 
OPROWO 8 



OPROWO 
OPROWO 
OPROWi 
0PR0W1 
OPROWI 
OPROWI 
OPROWI 
OPROWI 
OPROWI 
OPROWI 8 
OPROWI 9 
OPROWi A 
OPROWI B 
OPROWI C 
OPROWI 
OPROWI E 
OPROWI F 
0PR0W2 
0PR0W2 1 
OPR0W2 2 
0PR0W2 3 



207 VLOAOR N 



204 15 



207 
211 

I ERR 002 

I ERR 002 

I ERR 002 

225 

239 

284 

216 

ISAB 039 

I ERR 028 

******* 



VLDADR N 
OPROW N 
OPROW N 
OPROW N 
OPROW N 
OPROWO N 
OPROWI N 
0PROW2 N 
OPINVO 
STAR 
INVOOP 



1=1-1 

N=DG BITS23 

D1=P1 **I-2 OR I 

V0=0$K40 

V1=0$K40 

BR IF 00 BITO=l 

D0=D0$K08 

00= 00$ K 20 

u=v 

DG=D0$K10 **S 

1=1-1 

N=00 BITS 23 

N=G1 BITS23 **A £ 

N=G1 B1TS23 

N=G1 BITS23 

N=G1 BITS23 ** A £ 

N=G1L 

N=G1L 

N=G1L 

BR IF Gl BIT5=1 

BR 

BR 



CLGAD=*E40, EC L£VEL=12821l 

COMMENTS 

BACK-DATE I* 

BR ON ADDR VALIDITY 
-5.MGDIFIER IN Di-A REG* 

BLANK OUT B* HI 

BLANK OUT B* LO 

BR IF 1-5 

SET 1-2 OP STAT 

12 OR 3, SET INVD A ADOR STAT 

A* EQUALS B* 
ET B ADDR INVALID STAT 

BACKDATE I* 

BR ON ADDR VALIDITY 
B ADDR VALID, START DECO 

B AODR INVALID 

A AODR INVALID 
B ADDR BOTH INVALID 

OP ROW 1 DECODE 

OP ROW 2 DECODE 

OP ROW 3 DECODE 

OP ROW 4 DECODE 

H, Q, OR COL BIN 

INVALID OPS 
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*************************************************************** 
NORMAL OP CODE TABLE 



IMVE 028 
IERR 055 
ISWM 004 
ICLR 002 
ICYC 037 
IBCH 002 
IZWM 002 
IZWM 009 
IMVE 014 
IMVZ 004 
IMVZ 004 
I MAD 002 
ISWM 004 
IEOT 028 
IMZS 004 
I ADD 005 
I ADD 004 
IMPY 010 
I DVD 014 
I RAD 005 
I RAD 005 
IMRC 005 
ICMP Oil 
ICYC 037 
LOPD 012 
MPRT 033 
MPRT 033 



MOVEOP 

HALT 

SETWM 

CLRSTR 

HISTRT 

BRANCH 

ZNWMBT 

BRIBIT 

LOADOP 

MVZONE 

MVZONE 

MDFADR 

SETWM 

START 

ZEROSP 

ADDOP 

SUBTOP 

MULTPY 

DIVIDE 

RSTADD 

RSTADD 

RECORD 

COMPAR 

HISTRT 

RDRPCH 

PRTCMO 

PRTCMO 



BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 



M 


- MOVE OP 


. 


- HALT OP 


t 


- SET WM OP 


/ 


- CLEAR STORAGE OP 


NO 


1 OP, 8, OR 9 OP 


B 


- BRANCH OP 


V 


- BR ON ZONE OR WM 


W 


- BR IF BIT EQUAL 


L 


- LOAD OP 





- MOVE NUMERIC 


Y 


- MOVE ZONE 


n 


- MODIFY ADDR 


n 


- CLEAR WM 


E 


- EDIT 


Z 


-MOVE ZERO SUPPRESS 


A 


- ADD 


S 


- SUBTRACT 


a 


- MULTIPLY 


% 


- DIVIDE 




- RESET ADD 




- RESET SUBTRACT 


p 


- MOVE RECORD 


c 


- COMPARE 


u 


- 


1 


- READ A CARD 


2 


- PRINT 


3 


- PRINT.READ 



AD OR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ NEXTLA8EL STATEMENT 



CL0AD^*E40, EC 
COMMENTS 



LEVEL=1282 11 PAGE 42 



OCEB 
OCEA 
OCEC 
OCEE 
OCFO 
0CF2 
OCF4 
0CF8 
QCFA 
OCFC 



A57C 
A57C 
999C 
999C 
8D7C 
AE40 
A874 
3613 
91CA 
9 ICC 



ICVC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 
ICYC 



290 
291 
2 92 
2 93 
294 
295 
307 
308 
309 
310 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 



* 
* 

* 

* 

* 

* 

* 

* 
* 

* 
* 

* 
* 



0PRGW2 4 
0PRQW2 5 
GPR0K2 6 
QPR0W2 7 
0PR0W2 8 
0PR0W2 9 
GPR0W2 A 
GPRQW2 C 
0PR0W2 
GPR0W2 E 



LOPD 
LOPD 
MPRT 
MPRT 
ICYC 
LSSQ 
MPPP 



012 
012 
033 
033 
037 
002 
003 



IOCM 002 
IOCM 003 



RORPCH 
RORPCH 
PRTCMD 
PRTCND 
HISTRT 
STKSEL 
FORMS 

LOAD 
UOP 



BR 

BR 

BR 

BR 

BR 

BR 

BR 

D0=D0$K01 

BR 

BR 



4 - PUNCH 

5 - READ,PUNCH 

6 - PRINT,PUNCH 

7 - PRINT,READ, PUNCH 
PFR 

K - STACKER SELECT 

F CONTROL CARRIAGE 
M - MOVE I/O 
L - LOAO I/O 
U - CONTROL UNIT 



************************************ 
** * 

* * 30D HALFWORD BIAS CONSTANT * 

* . FOR EACH MEMORY SIZE* * 

* • * 

* # ***************************** 

* 1400.* 16,384 * 32,768 * 49,152 * 
************************************ 

* 16K * 0180 * 4180 * 8180 * 

* — , * 

* 12K * 1120 * 5120 * 9120 * 

* _ , , * 

* 8K * 20C0 * 60C0 * AOCO * 

* 4K * 3060 * 7060 * B060 * 



*~ 

* 
* — 



2K * 3830 



7830 



* B830 * 

, — * 

* 1.4K * 3A88 * 7A88 * BA88 * 
************************************ 

********************************** 

* CROSS REFERENCE FOR CSECT ICYC * 
********************************** 



ICYC 


036 


ICYC 


039 














































ICYC 


037 


IADD 


060 


IADO 


107 


IAOO 


124 


IAOO 


158 


IBCH 


012 


IBCH 


034 


IBCH 


035 


IBCH 


036 


IBCH 


037 


IBCH 


039 


IBCH 


057 


IBCH 


066 






I8CH 


093 


IBCH 


095 


IBCH 


114 


IBCH 


116 


ICLR 


027 


ICMP 


038 


ICYC 


229 


ICYC 


284 


ICYC 


294 


I DVD 


167 


IE DT 


075 


IEDT 


153 






IEDT 


197 


IERR 


010 


I MAO 


052 


IMPY 


170 


IMRC 


019 


IMVE 


012 


IMVE 


019 


IMVE 


072 


IMVZ 


020 


IMZS 


054 


IRAD 


029 


ISAB 


020 






ISfcM 


Oil 


IUBR 


014 


IZWM 


004 


IZWM 


018 


IZWM 


021 


J OTA 


067 


J END 


135 


J END 


145 


JTPE 


042 


JTYP 


140 


KEND 


029 


LERR 


009 






LOPO 


039 


MBBB 


082 


MNNN 


006 


MPRT 


160 


MPRT 


363 


MPRT 


368 


MPRT 


375 


MPRT 


393 


MPRT 


412 


MQQQ 


Oil 


MQQQ 


018 


MQQQ 


024 






MQQQ 


033 














































ICYC 


041 


INRU 


049 














































ICYC 


056 


ICYC 


054 














































ICYC 


057 


ICYC 


053 














































ICYC 


067 


ICYC 


049 














































ICYC 


069 


ICYC 


059 














































ICYC 


074 


ICYC 


069 


ICYC 


072 










































ICYC 


075 


ICYC 


180 














































ICYC 


086 


ICYC 


079 














































ICYC 


109 


ICYC 


081 


ICYC 


083 


ICYC 


087 


ICYC 


089 


ICYC 


090 






























ICYC 


110 


ICYC 


076 














































ICYC 


111 


ICYC 


078 














































ICYC 


115 


ICYC 


113 
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********************************** 

* CROSS REFERENCE FOR CSECT ICYC * 
********************************** 



ICYC 


122 


ICYC 


115 


ICYC 


119 








ICYC 


123 


ICYC 


117 












ICYC 


124 


ICYC 


122 












ICYC 


127 


ICYC 


121 


INDX 


023 








ICYC 


135 


ICYC 


151 


ICYC 


152 


ICYC 


155 




ICYC 


138 


ICYC 


135 












ICYC 


140 


ICYC 


128 












ICYC 


156 


ICYC 


137 


ICYC 


139 


ICYC 


153 




ICYC 


158 


ICYC 


157 












ICYC 


159 


ICYC 


158 












ICYC 


164 


ICYC 


163 












ICYC 


168 


ICYC 


167 












ICYC 


172 


ICYC 


162 


ICYC 


166 


ICYC 


170 




ICYC 


173 


INOX 


076 












ICYC 


177 


ICYC 


108 












ICYC 


181 


ICYC 


177 












ICYC 


186 


ICYC 


175 












ICYC 


191 


ICYC 


193 












ICYC 


195 


ICYC 


061 


ICYC 


182 


ICYC 


185 ICYC 


188 ICYC 190 


ICYC 


197 


ICYC 


114 












ICYC 


202 


ICYC 


132 












ICYC 


204 


ICYC 


134 


ICYC 


200 








ICYC 


207 


ICYC 


196 


ICYC 


206 


MPRT 


165 




ICYC 


211 


ICYC 


207 


I ERR 


041 








ICYC 


213 


I ERR 


004 


MLLL 


059 








ICYC 


214 


I ERR 


054 












ICYC 


216 


ICYC 


214 












ICYC 


225 


ICYC 


211 












ICYC 


239 


ICYC 


212 












ICYC 


284 


ICYC 


213 













ADOR 



WORD SEQUENCE NO* LA8EL 



ICYD 


OOI 


T 


IC YD 


002 


* 


ICYD 


003 


* 


ICYO 


004 


* 


ICYD 


005 


* 


ICYD 


006 


* 


ICYD 


OOT 


* 


ICYD 


008 


♦ 


ICYD 


009 


* 


ICYD 


010 


# 


ICYD 


Oil 


* 


ICYD 


012 


* 


ICYD 


013 


4c 


ICYD 


014 


* 


ICYD 


015 


* 


ICYD 


016 


4< 


ICYD 


017 


* 


ICYD 


018 


4c 


ICYD 


019 


* 


ICYD 


020 


* 


ICYD 


021 


# 


ICYD 


022 


* 


ICYD 


02 3 


* 


ICYD 


024 


4c 


ICYD 


025 


* 


ICYD 


026 


* 


ICYD 


027 


4c 


ICYD 


028 


* 


ICYD 


029 


* 


ICYD 


030 


* 


ICYD 


031 


* 


ICYD 


032 


4c 


ICYD 


033 


* 


ICYD 


034 


* 


ICYD 


035 


4c 


ICYD 


036 


* 


ICYD 


037 


4c 



NEXTSEQ NEXTLABEL STATEMENT 

OP CODE AND BIAS TABLE -AUX STG ZONE 2 



CL0AD=*E40, EC LEVEL=128211 PAGE 44 
COMMENTS 



KRAGER 



BITS 4-7= 
0123456789ABCDEF 

****************************************************************** 

0* 00 OA 14 IE 28 32 3C 46 50 5A 01 01 01 01 01 01 * 

* . . * 

1* 8*0059 ( A IND REG AODR) B*044C B+GBB8 B*07D0 B+G3E8 B*0000 * 

* , : . * 

2* B*0G5E I B IND REG ADDR) Bf-OCIC B*0834 B*G44C B*0064 * 

3* 8*0063 <AB IND REG ADDR I 8*CC80 B*0898 8*0480 B*00C8 * 

B 4* B+0CE4 B*08FC 8*0514 B*012C *' 

I 5* B*0D48 B*0960 8*0578 B*0190 * 

T 6* CB= HALFWQRD BIAS CONSTANT) B+ODAC B*09C4 B*05DC B*01F4 * 

S=74c { FR0 M KO AUX STG ZONE ) B + 0E10 B*0A28 B*0640 B*0258 * 

8* B*0E74 B*0A8C B*06A4 B+02BC * 

9* B*0ED8 8*0AF0 B*0708 B*0320 * 

- A* B+0F3C B+0B54 B*076C 8*0384 * 



3 B* 00 16 32 48 64 80 96 11 



* — 



2A 



28 44 60 76 92 07 23 39 * 

, * 

Bl 02 15 * 

IE Fl * 

, * 

13 17 04 IB * 

21 22 23 24 25 26 27 06 06 14 1A * 



C* IC 18 OB IF 12 16 

D* ID 29 90 80 06 

E* 05 19 20 OE OF 

F4c 



****************************************************************** 



ADDR 



2044 
2046 
2048 
204A 
204C 
2046 
2050 
2CBC 
2CBE 
2CC0 
2CC2 
2CC4 
2CC6 
2CC8 
2CCA 
2CCC 
2CC6 
2C00 
2C02 
2CD4 
2CD6 
2C08 
2C0A 
2CDC 

2coe 

2CE0 
2CE2 
2CE4 
2CE6 
2CE8 
2CEA 
2CEC 
2CEE 
2CF0 
2CF2 



IOIS 
IOIS 
IDIS 

IDIS 
IDIS 

lots 

IDIS 
IDIS 
IDIS 
IDIS 



WORD SEQUENCE NO* LABEL 



NEXTSEQ NEXTLA8EL STATEMENT 



CL0AD=*E40, EC LEVEL=12821l PAGE 45 

COMMENTS 



3404 
5CF2 
5E82 
1E13 
5ED9 
7CF2 
AC8E 
3404 
74E2 
2CF7 
5CD9 
E648 
7C42 
F65G 
7C52 
E65F 
F657 
4426 
A304 
7E52 
E65F 
4406 
A304 
7E42 
CC80 
3633 
1643 
0040 
FFF2 
0F02 
54E2 
C170 
7252 
5222 
ABCE 



IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 
IDIS 



003 
010 
Oil 
016 
020 
023 
027 
028 
036 
037 



IERR 035 

JTYP 113 

IDIS 0C9 

IOIS 014 

IDIS 016 

IDIS 019 

IDIS 018 

IRST 145 

IDIS 034 

IDIS 031 



001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
027 
028 
029 
030 
031 
032 
033 
034 
035 
036 
037 
038 



INRU 
LRDR 



IDIS 
ITRP 



1400 COMP STOP ROUTINE R TAYLOR 

SET UP FOR 16 CHARACTER DISPLAY MESSAGE 



STOPPP 



Oil GO 



STOP 

GO 



STOPAB 
TRY8 

AROUND 
TRYA 



CGNVI 
CONVA 



016 

020 

027 
023 

ICTD 021 

027 

ICTD 021 



DECBST 
GOTB 



057 JCHL 
02 7 MMMM 



TRYB 



AROUND 

CONVI 
TRYA 

CYTDEC 

CONVI 
CYTDEC 



SET MODE K=A0 

RDH P DA, BE 

RDH H DA,A8 

H0-H0*-K01 

Pl = HO 

STH P DA, BE 

BR 

SET MODE K=AG 

STH G DA, BC 

PO=0$KFF 

Pl^PO 

00 BIT 2=0 

DA, 98 

00 BIT3*=0 

DA, 9 A 

DO BIT2=1 

DO BIT3=1 



CPU ZONE AND 1052 MODE 

GET STOP CODE AND ZERO LOWER 

GET SENSE BYTE 

INSURE BIT 7 IS OFF FOR DISPLAY 

PUT SWITCHES IN FOR DISPLAY 

STORE IT BACK 

CONTINUE SET UP 

SET 1052 MODE AND CPU ZONERT 

STORE G REG DURING CONVERT 



CONV 
STORE 



PUT A 
CONV 
STORE 
RESET 



ISTP 006 



106 JTPE 
042 MPRT 



BR IF 

STH P 

BR IF 

STH P 

BR IF 

BR IF 

G=V 

BAL 

STH H DA,9A 

BR IF DO BIT2=i 

G=U 

BAL 

STH H 0A,98 

RST S4 

D0=D0$K03 

D0=D0*-K04 

RST S5 

BR IF TU3=0 

RST TA K=10 

RDH G DA, BC 

BR IF Gl B1T4=0 

STH V DA,9A 

RDH V DA, 8C 

STOPCD BR 

IN ISTP I* IS PUT IN G REG DEC EQUIV 
**************** ##<t##+ ************ 

* CROSS REFERENCE FOR CSECT IDIS * 
********************************** 

007 JTYP 112 KEND 016 LPCH 025 MPRT 
251 



INVALID ADD MESSAGE FFFF 

A STAR OK 

STORE IN K4 

B STAR GOOD 

STORE B STAR FOR DSPY 

BR IF A IS BAD 

BR IF B IS BAD 

PUT B INTO G HEX-DEC 



VALID IN K5 



INTO G HEX-DEC 



VALID A IN K4 

S4 FOR ALLMESSAGES HERE 
SET STATS FOR 16 CHAR MESSAGE 
RST BIT 5 



037 GOTB 



036 DECBST 



B STAR OK 

RESET ALTER DISPLAY ACTIVE IF ON 
CHECK FOR AUX OR CONTROL A/D OP 
NOT AUX OR CONTROL A/D OP 
OVERRIDE B STAR DECIMAL ADDRESS 
RESTORE ORIGINAL B STAR 



IN H REG FOR UNPACK, 



346 



023 
058 



ITRP 057 



CL0AD=*E40, EC LEVEL=128211 PAGE 46 



AUDR 


WURC 


SEQUENCE NO. 


LABEL 


NEXTSEO 


NEXTLABEL 


STATEMENT 


COMMENTS 






IDVD 


001 


T 


1400 


DIVIDE 


KRAGER 








IDVO 


002 


* 


THE DO REGISTER 


IS USEO AS A FLAG REGISTER FOR DIVIDE. THE 






IDVD 


003 


* 


MEAN 


THE FOLLOWING. 








IOVO 


004 


* 


BIT 1 = 


THE B FIELD WAS MINUS. 








IOVD 


005 


* 


4= 


THE A FIELD WM WAS DETECTED. 








IDVD 


006 


* 


5 = 


THE X POSITION OF THE QUOTIENT 


HAS BEEN DONE. 






IDVD 


007 


* 


6= 


AN OVERFLOW HAS OCCURED. 








IDVD 


008 


* 


7 = 


8 FIELD SIGN POSITION DETECTED 


. 






IDVD 


009 


* 


THE S 


REG BITS 


ARE 








IDVD 


010 


* 


BIT 0<= 


SUBTRACT 


DIVISOR. 








IDVD 


Oil 


* 


3= 


CARRY BIT 


ON 








IDVD 


012 


* 


5 = 


TRIAL SUBTRACT ON 








IDVO 


013 


* 


DIVIDE PREPERATION AND A CYCLE LOOP* 




064t 


16C5 


IDVD 


014 


DIVIDE 






00=DO*-KCO 


RESET AND i BIT 


0650 


16F3 


IDVD 


015 








D0=D0*-K0F 


RESET ALL LOW BITS 


0652 


3042 


IDVO 


016 








SET S K=94 


SET SO S3 AND S5 


0o54 


7032 


IDVD 


022 








STH U DA,8E 


SET A AUX REG 


0656 


4426 


IDVD 


024 








G=V 


SET B AUX REG 


0o58 


501A 


IDVD 


025 


READAF 






ROB Pi U-l 


READ A FIELD 


06 5A 


CD5F 


IDVD 


026 




035 


AFLOOK 


BR IF PI BITO^l 


BR IF A NOT A SP CHR 


06 5C 


8442 


IDVD 


033 




I ADD 160 


CORCHR 


BAL 


GO CORRECT CHAR 


06 5E 


D063 


IDVD 


035 


AFLOOK 


037 


NOAWM 


BR IF PI BIT 1=1 


BR IF NO WORO MARK 


0660 


36 83 


IDVD 


036 








D0=00$K08 


SET A WM FLAG 


0662 


50F0 


IDVD 


037 


NOAWM 






H1=P1L 


SAVE NUMERIC CHAR 






IDVD 


038 


* 


B CYCLE LCOP 






0664 


5D30 


IDVD 


039 


SHIP 






ROB PI V+O 


READ B FIELD 


0666 


CD6B 


IDVD 


040 




049 


BFLDOK 


BR IF PI BIT 0*1 


BR IF NOT SP CHAR 


066S 


8442 


IDVD 


047 




IAOD 160 


CORCHR 


BAL 


GO CORRECT CHAR 


066A 


5DA0 


IDVO 


049 


BFLOOK 






TO^PIL 


SETUP FOR ADO SUBT 


06 6C 


C5F1 


IDVD 


050 




052 


SUBT 


BR IF S0=1 


BR IF SUBT 


066E 


3A95 


IOVD 


051 








T0=T0$K90 


SET UP FOR AOD 


0670 


7AFF 


IDVD 


52 


SUBF 






TOC^TOSHl+C 


ADD, SUBT 


06 72 


OIF 7 


IDVD 


053 




055 


SKIP 


BR IF S5*l 


BR IF TRIAL SUBT 


0674 


4ADD 


IDVD 


054 








P1=T0L*P1H 


PUT ORIG ZONES ON CHR 


0676 


6D43 


IDVO 


055 


SKIP 


058 


CKSLSH 


BR IF PI BIT2=l 


BR IF NON STD SIGN 


06 78 


F035 


IOVD 


056 




064 


SETMIN 


8R IF PI BIT3=1 


BR IF STO MINUS SIGN 


06 7A 


8636 


IDVD 


057 




065 


SETSGN 


BR 


STQ PLUS SIGN 


06 42 


OOEO 


IDVO 


058 


CKSLSH 






Z=PlnKE0 




0644 


E0B8 


IDVD 


059 




066 


STORES 


BR IF HZNZ 


BR IF NOT SLASH 


0646 


00 IB 


IOVD 


060 








Z=PlnK01 




0648 


FC88 


IDVO 


061 




066 


STOREB 


BR IF LZNZ 


BR IF NOT SLASH 


064A 


1085 


IOVO 


062 








P1^P1*~K80 


REMOVE BIT 


06 4C 


8638 


IOVD 


063 




066 


STOREB 


BR 




0634 


3645 


IDVD 


064 


SE TMI N 






D0=00$K40 


SET B MINUS FLAG 


0636 


3613 


IDVD 


065 


SETSGN 






D0=D0$K01 


SET SIGN POS FLAG 


0638 


D1BD 


IOVO 


066 


STOREB 


068 


OK 


BR IF S5=l 


BR IF TRIAL SUBT 


063A 


7030 


IDVO 


067 








STB PI V+0 


STORE NEW RESULT 


063C 


5226 


IDVD 


068 


OK 






V=V-1 


B STAR -I 


063.E 


C22D 


IOVO 


069 


CKTLEO 


071 


NOTAWM 


BR IF 00 BIT4=l 


BR IF A WM FLAG ON 


0640 


8658 


IOVO 


070 




025 


READAF 


BR 


GO FOR A CYCLE 


0o2C 


0270 


IDVD 


071 


NOTAWM 


075 


CKCARY 


BR IF 00 8IT5=l 


BR IF X POS FLAG ON 


062E 


3643 


IDVD 


072 








DQ=D0$K04 


SET X POS FLAG 


0630 


2FC7 


IDVO 


073 








Hi=0 


RESET HI 



















CL0AD=*E40, i 


ADQrt 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 


06 32 


8664 


I0VD 


074 




039 


SHIP 


BR 




067C 


16C3 


10 VD 


075 


CKCARY 






DO=DO*-KOC 


RESET AWM AND XPOS 


067E 


F583 


IDVO 


076 




078 


HAOCRY 


BR IF S3=l 




0o80 


8 69E 


IDVD 


077 




098 


STAUX 


BR 


GO START AUX CYCLES 


0682 


0187 


IDVO 


078 


HAOCRY 


080 


TRLSUB 


BR IF S5=l 


BR IF TRIAL SUBT 


0684 


86F0 


IDVO 


079 




112 


QUOADO 


BR 


GO INCREMENT QUOTIENT 


06 86 


0040 


IDVO 


080 


TRLSUB 






RST S5 


RSI TRIAL SUBT 


0688 


5032 


IDVO 


086 


SETAUX 






RDH U DA, 8E 


SET A - A AUX 


0&8A 


C591 


IDVO 


088 




091 


SISCK 


BR IF S0=1 


BR IF SUBT 


06 8C 


3000 


10 VO 


089 


INCBAX 






SET SO 


SET SUBT ON 


068E 


5444 


IDVO 


090 








G=G+1 


B AUX REG +i 


0690 


F595 


IDVO 


091 


SI SGK 


093 


SETBAX 


BR IF S3=l 


BR IF CARRY 


0692 


2002 


IOVO 


092 








SET S3 




0694 


4246 


IOVO 


093 


SETBAX 






V^G 


B STAR = B AUX 


0b96 


C59A 


IDVO 


094 




096 


RSTCRY 


BR IF S0=0 


BR IF ADO 


0698 


8658 


IOVO 


095 




025 


REAOAF 


BR 


GO FOR A CYCLE 


069A 


0002 


IOVO 


096 


R STORY 






RST S3 




06 9C 


86 5 8 


IOVO 


097 




025 


REAOAF 


BR 


GO FOR A CYCLE 


069E 


£212 


IDVO 


098 


STAUX 


105 


CONTIN 


BR IF 00 BIT6=0 


BR IF NOT QVFLO CYCLE 


06A0 


8 6CC 


IOVO 


099 




141 


OVFLON 


BR 




06A2 


5032 


IDVD 


105 


CONTIN 






RDH U DA, 8E 


SET A = A AUX 


06A4 


1000 


IOVO 


107 








RST SO 


RSI SUBT 


06A6 


0194 


IDVO 


108 




093 


SETBAX 


BR IF S5=0 


BR IF NOT TRIAL SUBT 


06A8 


F2CC 


IOVO 


109 




089 


INCBAX 


BR IF DO BIT7^0 


BR IF NOT SIGN POS 


06AA 


86D2 


IOVO 


110 


SGNPOS 


149 


SIGNLP 


BR 


GO INC B AUX REG 






IDVD 


111 


# 


QUOTIENT ADO LOOP 




06F0 


C5AD 


IDVO 


112 


QUOADD 


116 


0KA001 


BR IF S0=1 


BR IF SUBT ON 


06F2 


2040 


IOVO 


113 


CKEND 






SET S5 


SET TRIAL SUBT ON 


06 F 4 


F22B 


IDVO 


114 




110 


SGNPOS 


BR IF DO BIT7=l 


BR IF SIGN POS FLAG ON 


06F6 


8688 


IDVO 


115 




086 


SETAUX 


BR 


GO TAKE AUX CYCLES 


06AC 


1000 


IOVO 


116 


0KA001 






RST S K=80 


RESET SUBT 


06AE 


5030 


IDVO 


117 








ROB PI V*0 


READ QUOTIENT 


06B0 


3085 


IDVD 


118 








Pl=Pl$KBO 


INSURE ZONE BITS ON 


0682 


2A95 


IOVO 


119 








T0=0$K90 




0684 


5DFD 


IOVO 


120 








H1=PIL 




06B6 


7FAF 


IDVD 


121 








H1C=H13T0*C 


ADO 1 TO QUO 


0688 


40FB 


IOVO 


122 








H1=P1H+H1L 




06BA 


7F3A 


IDVD 


123 








STB Hi V-l 


STORE NEW QUOTIENT 


068C 


F5C3 


IDVD 


124 




135 


OVFLER 


BR IF S3=i 


BR IF OVERFLOW 


0686 


3042 


IDVD 


125 








SET S K=94 




06C0 


8688 


IOVO 


126 




086 


SETAUX 


BR 




06C2 


5A82 


IOVO 


135 


OVFLER 






RDH T DA, A8 




06C4 


3B43 


IOVO 


136 








T1^T1$K04 


SET OVERFLOW BIT ON 


06C6 


7A82 


IDVD 


137 








STH T 0A,A8 




06C8 


3623 


IOVO 


13 9 








00=00$K02 


SET OVFLO FLAG ON 


06CA 


2B33 


IDVD 


140 








Ti=0$K03 


SET COUNTER 


06CC 


2BFF 


IDVD 


141 


OVFLON 






Tl*Tl+KFF 


COUNTER - 1 


06CE 


€403 


IOVO 


142 




149 


SIGNLP 


BR IF Z=0 




0600 


86A2 


IOVO 


143 




105 


CONTIN 


BR 




0602 


5A32 


IDVO 


149 


SIGNLP 






ROH T 0A,8E 




06D4 


5DB0 


IDVO 


151 








ROB PI T+G 




0606 


CD5B 


IOVO 


152 




161 


NOSPEC 


BR IF PI BIT0=1 


BR IF NOT SPC CHAR 


06D8 


8442 


IDVO 


159 




IAOO 160 


CORCHR 


BAL 





EC LEVEL=1282 11 PAGE 47 



AOOR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



06DA 


5B30 


IDVD 


161 


NO SPEC 






06DC 


ED61 


IDVO 


■162 




164 


NOTMIN 


06DE 


FD69 


IOVO 


163 




170 


AHASB 


06EO 


0660 


IDVD 


164 


NO THIN 


168 


FIX 


06E2 


1B30 


IDVO 


165 


INVRT3 






Q6E4 


7B3A 


IDVO 


166 


ST SIGN 






06E6 


807G 


IDVD 


167 




ICYC 037 


HISTRT 


06EC 


IB20 


IOVO 


168 


FIX 






06EE 


86E4 


IOVO 


169 




166 


STSIGN 


06E8 


0663 


IOVD 


170 


AHA SB 


165 


INVRT3 


06EA 


86EC 


IDVO 


171 




168 


FIX 



RD8 Tl V+0 

BR IF PI BIT2*i 

BR IF PI BIT3=i 

BR IF 00 BIT 1=1 

Tl=TlnK30 

STB Tl V-l 

BR 

Tl=TlaK20 

BR 

BR IF 00 BIT 1=1 

BR 

********************************** 

* CROSS REFERENCE FOR CSECT IOVD * 
********************************** 



CL0A0=*E40, EC LEV£L=1282 1i PAGE 48 
COMMENTS 

READ QUO SIGN 
CK A FIELD 

FOR MINUS SIGN 
BR IF B MINUS 
INVERT SIGN 
STORE SIGN POSITION 



INVERT SIGN 
BR IF B MINUS 



IDVO 


014 


ICYC 


249 






IDVO 


025 


IDVD 


070 


IOVD 


095 


IDVD 


035 


IOVD 


026 






IDVD 


037 


IOVO 


035 






IDVO 


39 


IDVD 


074 






IOVO 


049 


IDVD 


040 






IDVO 


052 


IOVO 


050 






IDVO 


055 


IOVD 


053 






IDVD 


058 


IOVD 


055 






IDVD 


064 


IDVO 


056 






IDVO 


065 


IDVO 


057 






IDVD 


066 


IDVD 


059 


IDVD 


061 


IDVO 


068 


IDVO 


066 






IDVD 


071 


IDVD 


069 






IDVD 


075 


IDVO 


071 






IOVD 


078 


IDVD 


076 






IDVD 


080 


IOVD 


078 






IDVD 


086 


IDVD 


115 


IOVD 


126 


IDVD 


089 


IDVD 


1C9 






IDVD 


091 


IDVO 


088 






IDVD 


093 


IOVO 


091 


IDVO 


1C8 


IDVD 


096 


IOVD 


094 






IDVD 


098 


IDVO 


077 






IDVO 


105 


IOVO 


OS 8 


IOVD 


143 


IDVD 


110 


IOVD 


114 






IDVD 


112 


IDVO 


079 






IDVO 


116 


IOVD 


112 






IDVD 


135 


IDVD 


124 






IDVD 


141 


IDVO 


099 






IDVO 


149 


IOVD 


110 


IDVO 


142 


IDVD 


161 


IDVD 


152 






IDVO 


164 


IOVO 


162 






IDVD 


165 


IOVD 


170 






IDVD 


166 


IOVO 


169 






IDVD 


168 


IOVO 


164 


IOVD 


171 


IDVD 


170 


IOVO 


163 







ADDR 


WORD 


SEQUENCE NO. 


LABEL 






IEOT 


001 


T 






IEDT 


002 


* 






IEOT 


003 


* 






IEOT 


004 


* 






IEDT 


005 


* 






IEDT 


006 


* 






IEOT 


007 


* 






IEOT 


008 


* 






IEDT 


009 


* 






IEOT 


010 


* 






IEOT 


Oil 


* 






IEDT 


012 


♦ 






IEOT 


013 


* 






IEOT 


014 


* 






IEOT 


015 


* 






IEOT 


016 


* 






IEDI 


017 


* 






IEOT 


018 


* 






IEOT 


019 


* 






IEDT 


020 


* 


1578 


5EC2 


IEDT 


028 


START 


157A 


571A 


IEOT 


030 


STARTE 


157C 


57D9 


IEDT 


031 




15 7E 


3045 


IEDT 


032 




1580 


C519 


IEDT 


033 




1582 


2585 


IEDT 


034 




1584 


5DCO 


IEDT 


035 




1586 


EOOC 


IEDT 


036 




15B3 


FDOD 


IEDT 


037 




158A 


3545 


IEOT 


038 




158C 


50DD 


IEDT 


039 


PLUS 


1586 


5DC0 


IEOT 


040 




1590 


FE14 


IEOT 


046 




1592 


3613 


IEDT 


048 




1594 


EE18 


IEDT 


049 


PU 


1596 


3513 


IEDT 


050 




1598 


5F30 


IEDT 


051 


NO UNI T 


159A 


5FB9 


IEDT 


052 




159C 


3B45 


IEDT 


053 




159E 


CB50 


IEDT 


054 




15A0 


F007 


IEOT 


055 




15A2 


C151 


IEDI 


056 




15A4 


2A33 


IEDT 


057 




15A6 


3AC5 


IEOT 


058 




15A8 


6AB1 


IEDT 


059 




I5AA 


C4CD 


IEDT 


060 




15AC 


2A93 


IEOT 


061 




15AE 


3A05 


IEDT 


062 




15B0 


6AB1 


IEOT 


063 




15B2 


C4CD 


IEDT 


064 




15B4 


2AB3 


IEDT 


065 




15B6 


3A65 


IEDT 


066 




15B8 


F23C 


IEDT 


067 





NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E40 f EC LEVEL=128211 
COMMENTS 
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1400 EDIT OP. 
THE FOLLOWING BITS 
Gl REG BIT IF I 

1 IF 1 

2 IF 1 

3 IF 1 

4 IF 1 

5 IF 1 

6 IF 1 

7 IF 1 
ON THE FIRST 



KRAGER 

ARE USED AS FLAG BITS IN THE EDIT ROUTINE. 

= UNITS CHAR TRANSFER ED. 

= A FLO IS MINUS. 

= FLOATING $ ON. 

= * FILL ON- 

= BODY PORTION OF CONTROL WORD* 

= ZERO SUPPRESS ON. 

= DECIMAL CONTROL ON. 

= EXP EDIT FEATURE ON. 



FORWARD PASS THE FOLLOWING CHARACTERS HAVE SPECIAL 
MEANING. ALL OTHERS ARE REPLACED IN THE CONTROL WORD. 
& REPLACE WITH BLANK 

C,R,QR - REPLACE IN CONTROL WORD IF BODY FLAG ON OR STATUS AND A FLO 

MINUS FLAG ON. 
BLANK TURN ON BODY AND TRANSFER A FLO CHAR. 
SAME AS . TURN ON ZERO SUPPRESS IN ADDITION. 

* IF EXP EOIT AND NOT FLOATING S SET * FILL ON. 

$ IF EXP EDIT ANO NOT * FILL SET FLOATING $. 

REVERSE SCAN ONLY-SET DECIMAL CTRL IF €KP EOIT FEATURE. 

GET CONTROL INFO INTO HO 
READ A FIELD 

INSURE NO WM BIT 

BR IF NOT UNITS CHAR 

SET UNITS FLAG CLEAR REST 

CONVERT TO BCD 

BR ON NO B BIT 

BR ON A BIT 

SET A FLO MINUS FLAG 

REMOVE ZONES 

CONVERT TO EBDCIC 

BR IF NO PI BIT 

SET PI FLAG ON 

BR IF NO EXP EOIT BIT 

SET FLAG 

REAO 8 FIELD 

INSURE NO WM BIT 

TEST CHAR 

BR IF t - BK 

BR IF BODY 

BUILD 

MASK 
TEST CHAR 
BR IF C 
BUILD 

MASK 
TEST CHAR 
BR IF R 
BUILD 

MASK 
BR IF NO PI FLAG 







RDH H 0A f 88 






ROB 01 U-l 






P1 = D1 






P1=P1$K40 


051 


NOUNIT 


BR IF Gl BIT 0-1 

G1=0$K80 
RDB PI AS,P 


039 


PLUS 


BR IF PI BIT2=0 


039 


PLUS 


BR IF PI BIT3=1 

Gl=Gi$K40 

P1=P1L 

ROB PI AS,P 


049 


PU 


BR IF HO BIT3=0 
00=00$ KOI 


051 


NOUNIT 


BR IF HO BIT2=0 

G1=G1$K01 

RDB Hi V 

Ti=Hi 

T1=T1$K40 

Z=TlnK50 


090 


TESTHI 


BR IF LZ=0 


079 


BODY ON 


BR IF Gl BIT 4=1 
T0=0$K03 
T0=T0$KC0 
TO=TOnTl 


077 


CR 


BR IF Z=0 
T0=0$K09 
T0=T0$KD0 
T0=T0aTl 


077 


CR 


BR IF Z=0 

T0=0$K0B 

T0=T0$K60 


069 


PI2 


BR IF DO BIT7=0 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


15BA 


1A25 


IEOT 


068 








T0=T0*-K20 


lbBC 


6AB1 


IEOT 


069 


PI2 






TO=TOnTl 


15BE 


C4C2 


IEDT 


070 




072 


STOREB 


BR IF ZNZ 


15CQ 


2B45 


IEOT 


071 


BLANK1 






T1=0$K40 


ncz 


7B3A 


IEDT 


072 


STORE B 






STB Tl V-l 


15C4 


DF19 


IEDT 


073 




051 


NOUNIT 


BR IF HI BIT 1=1 


15C6 


014B 


IEOT 


074 


TEST2 


076 


SUPP 


BR IF Gl BIT5=1 


15C8 


80 7C 


IEOT 


075 




ICYC 037 


HISTRT 


BR 


15CA 


A67C 


IEDT 


076 


SUPP 


138 


REVSCN 


BR 


15CC 


0543 


IEOT 


077 


CR 


072 


STOREB 


BR IF Gi BIT 1=1 


i5ce 


95C0 


IEDT 


078 




071 


BLANK 1 


BR 


15GO 


F142 


IEOT 


079 


BOD YON 


072 


STOREB 


BR IF Gl BIT 7=0 


1302 


£C£E 


IEDT 


080 




082 


TESTll 


BR IF HZNZ 


15D4 


AS7E 


IEOT 


081 




102 


TEST1 


BR 


15EE 


2A45 


IEOT 


082 


TESTll 






T0=0$K40 


15FG 


3AB3 


IEDT 


083 








T0=TG$K08 


15F2 


F276 


IEDT 


084 




086 


PI3 


BR IF 00 BIT7=0 


15F4 


3A25 


IEOT 


085 








T0=T0$K20 


15F6 


6AB1 


IEDT 


086 


PI 3 






TO=TOaTl 


1SF8 


C4C2 


IEOT 


087 




072 


STOREB 


BR IF ZNZ 


it>FA 


1525 


IEDT 


088 








G1=G1*~K20 


15FC 


95C2 


IEOT 


089 




072 


STOREB 


BR 


1506 


E0C1 


IEOT 


090 


TESTHI 


071 


BLANK! 


BR IF HZ=0 


1508 


OBFD 


IEOT 


091 








Z=TlaKF0 


15DA 


C4DE 


IEDT 


092 




094 


NQZERO 


BR IF ZNZ 


15DC 


A996 


IEDT 


093 




120 


ZERO 


BR 


15DE 


OB 60 


IEDT 


094 


NQZERO 






Z=TlnK60 


15E0 


C4E6 


IEDT 


095 




098 


NOD ASH 


BR IF ZNZ 


15E2 


C14C 


IEDT 


096 




077 


CR 


BR IF Gl BIT 4=0 


15E4 


95C2 


IEDT 


097 




072 


STOREB 


BR 


1566 


OB40 


IEDT 


098 


NQDASH 






Z=TlaK40 


15E8 


C4C2 


IEDT 


099 




072 


STOREB 


BR IF ZNZ 


15EA 


E 143 


IEDT 


100 




072 


STOREB 


BR IF Gl BIT6=1 


15EC 


A99E 


IEDT 


101 




124 


SET BOY 


BR 


297E 


OBCB 


IEDT 


102 


TEST1 






Z=T1QK0C 


2980 


FOAA 


IEOT 


103 




109 


TRYDLR 


BR IF LZNZ 


29 82 


0B5O 


IEDT 


104 








Z=TlaK50 


2984 


EOAA 


IEOT 


105 




109 


TRYDLR 


BR IF HZNZ 


2986 


E515 


IEDT 


106 




137 


WAVE 


8R IF Gl BIT2=I 


2988 


3515 


IEDT 


107 








Gl=Gl$K10 


29 8A 


A9A0 


IEDT 


108 




125 


SKIP1 


BR 


29AA 


GBBB 


IEDT 


109 


TRYDLR 






Z=TlnK08 


29AC 


FC94 


IEDT 


110 




137 


WAVE 


BR IF LZNZ 


29AE 


0B5D 


IEDT 


ill 








Z=TlaK50 


29B0 


EC94 


IEOT 


112 




137 


WAVE 


BR IF HZNZ 


2982 


D73C 


IEOT 


113 




118 


RSTDLR 


BR IF 01 BIT 1=0 


29B4 


C13C 


IEOT 


114 




118 


RSTDLR 


BR IF Gl BIT4=0 


29 B6 


F515 


IEDT 


115 




137 


WAVE 


BR IF Gl BIT3=1 


29B8 


3525 


IEDT 


116 








Gl=Gl$K20 


29BA 


A9A0 


IEDT 


117 




125 


SKI PI 


BR 


29 BC 


1525 


IEDT 


118 


RSTDLR 






Gl=Gl*-K20 


2 9 BE 


A9A0 


IEOT 


119 




125 


SKI PI 


BR 


2996 


E10D 


IEDT 


120 


ZERO 


133 


SPEC1 


BR IF Gl BIT6=1 



CLOAD=*E40, EC LEVEL=1282 11 
COMMENTS 

CHANGE MASK 
TEST CHAR 
BR IF NOT , 
FORCE BLANK CHAR 
STORE CHAR BACK 
BR IF NO B FLO WM 
BR IF ZERO SUPP ON 



BR IF A FLO MINUS 

CLEAR CHAR 

BR IF NO EXP EDIT 

GO TEST FOR * OR $ 
BUILD 
MASK 
BR IF NO PI FLAG 
CHANGE MASK 
TEST CHAR 
BR IF NOT • 
RESET FLOATING $ 

BR IF £ 

TEST CHAR 

BR IF NOT 

CHAR IS 

TEST CHAR 

BR IF NOT - 

BR IF STATUS 

CHAR IS - 

TEST CHAR 

BR IF NOT BK 

BR IF A FLO TERMINATED 

CHAR IS BK 

TEST LO BITS 

NOT * 

TEST Hi BITS 

NOT * 

FLOATING $ ON 

SET * FILL ON 

TEST LO BITS 

N0T $ 

TEST HI BITS 

NOT $ 

BR IF A FLO WM 

BR IF STATUS 

BR IF * FILL ON 

SET FLOATING $ ON 

RESET FLOATING DLR 

BR IF A FIELO TERMINATED 
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AODR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 




COMMENTS 


2998 


0121 


IEOT 


121 




125 


SKIP1 


BR IF Gi BIT5= 


1 


BR IF ZERO SUPP ON 


29 9A 


1045 


IEOT 


122 








P1=P1*-K40 




SET TEMP WM 


29 9C 


3543 


£EOT 


123 








Gl=Gi$K04 




SET SUPPRESS ON 


299E 


3583 


IEOT 


124 


SETBDY 






G1=G1$K08 




SET BODY ON 


29A0 


703A 


IEOT 


125 


SKI PI 






STB PI V-l 




STORE A FLO CHAR IN B FLO 


29A2 


DF27 


IEOT 


126 




128 


NOBEND 


BR IF Hi BIT1= 


I 


BR IF NO B FLO WM 


29A4 


95C6 


IEOT 


127 




074 


TEST2 


BR 






29A6 


D740 


IEOT 


128 


NOBEND 


130 


AEND 


BR IF 01 BIT 1= 





BR IF A FIELD WM 


29A8 


957A 


IEOT 


129 




030 


STARTE 


BR 






29CO 


158 3 


IEOT 


130 


AEND 






G1=G1*-K08 




RESET BODY 


29€2 


3523 


IEOT 


131 








G1=G1$K02 




SET A FLO TERMINATED 


29C4 


9598 


IEOT 


132 




051 


NOUNIT 


BR 






29 8C 


OF 14 


IEOT 


133 


SPEC1 


137 


WAVE 


BR IF HI BIT1= 





BR IF WM WITH 


298E 


DU5 


IEOT 


134 




137 


WAVE 


BR IF Gl BIT5= 


1 


BR IF ZERO SUPP ON 


2990 


3543 


IEOT 


135 








G1=GI$K04 




SET SUPP ON 


29 9 2 


1B45 


IEOT 


136 








T1=T1*-K40 




SET TEMP WM 


2994 


95C2 


IEOT 


137 


WAVE 


072 


STORES 


BR 






26 7C 


1523 


IEDT 


138 


REVSCN 






G1=G1*-K02 






267E 


5224 


IEOT 


139 








V=V + 1 






2680 


5E30 


IEOT 


140 


BREAD 






ROB HI V 




READ B FIELD 


2682 


5f89 


IEDT 


141 








T1=H1 






2684 


3B45 


IEDT 


142 








T1=T1$K40 




INSURE NO WM 


2686 


OBFO 


IEDT 


143 








Z=TlnKF0 






2688 


EOBB 


IEDT 


144 




169 


NUMRIC 


BR IF HZ=0 




BR IF 0-9 


268A 


0B4D 


IEOT 


145 








Z=T1QK40 






268C 


C4C3 


IEDT 


146 




173 


ZRO 


BR IF Z=0 




BR IF BLANK 


268E 


OBBB 


IEOT 


147 








Z=T1QK0B 






2690 


FGA3 


IEDT 


148 




157 


PROCMA 


BR IF LZ=0 




BR IF , . 


2692 


3543 


IEDT 


149 


ZON 






G1=G1$K04 




SET SUPP ON 


2694 


7B38 


IEDT 


150 


B STORE 






STB Tl V«-l 




STORE CHAR BACK 


2696 


DF01 


IEOT 


151 




140 


BREAO 


BR IF HI BIT1= 


-1 


BR IF NO B FLD WM 


2698 


FtlD 


IEDT 


152 




154 


EX EOT 


BR IF Gi BIT 7= 


1 


BR IF EXP EOT ON 


269A 


807C 


IEDT 


153 


OUT 


I CYC 037 


HISTRT 


BR 






269C 


05D7 


IEDT 


154 


EXEDT 






Z=G1*-KDD 




TEST FLOAT $ AND DEC CTRL 


2696 


C49B 


IEDT 


155 




153 


OUT 


BR IF Z=0 




BR IF BOTH OFF 


26A0 


A79E 


IEDT 


156 




179 


FORAGN 


BR 






26A2 


CB60 


IEDT 


157 


PROCMA 






Z=TlnK60 






26A4 


F228 


IEOT 


158 




160 


PI4 


BR IF 00 BIT7* 


= 


BR IF NO PI FLAG 


26A6 


OB40 


IEDT 


159 








Z=T1QK40 




TEST CHAR 


26A8 


E0C3 


IEOT 


160 


PI4 


173 


ZRO 


BR IF HZ=Q 




BR IF f 


26AA 


OB40 


IEDT 


161 








Z=TlnK40 






2 6AC 


F230 


IEDT 


162 




164 


PI5 


BR IF 00 BIT7* 


= 


BR IF NO PI FALG 


26 A E 


C860 


IEDT 


163 








Z=T1QK60 




TEST CHAR 


26B0 


£092 


IEOT 


164 


PI5 


149 


ZON 


BR IF HZNZ 




BR IF NOT • 


26B2 


0114 


IEDT 


165 




150 


BSTORE 


BR IF Gl BIT5= 


= 


BR IF SUPPRESS OFF 


2684 


F13E 


IEOT 


166 




171 


RSTZ 


BR IF Gl BIT 7= 


= 


BR IF NO EXP EDIT 


26B6 


3523 


IEOT 


167 








Gl=Gi$K02 




SET DEC CTRL 


26B8 


A6BE 


IEOT 


168 




171 


RSTZ 


BR 






26BA 


F0C3 


IEDT 


169 


NUMRIC 


173 


ZRO 


BR IF LZ-0 




BR IF 


26BC 


1523 


IEDT 


170 








G1*G1*-K02 




RESET DEC CTRL 


26BE 


1543 


IEOT 


171 


RSTZ 






G1^G1*-K04 




RESET SUPPRESS 


26C0 


A694 


IEOT 


172 




150 


BSTORE 


BR 






26C2 


D114 


IEDT 


173 


ZRO 


150 


BSTORE 


BR IF Gi BIT5=Q 


BR IF SUPPRESS OFF 



AODR 



WORD SEQUENCE NO. LABEL 



NEXT5EQ 



NEXTLABEL STATEMENT 



CL0AD=*E40, EC LEVEL=1282U 
COMMENTS 
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26C4 


2B45 


IEDT 


174 








T i=Q$K40 


SET BLANK CHAR 


26C6 


F514 


IEDT 


175 




150 


BSTORE 


BR IF Gl BIT 3=0 


8R IF * FILL OFF 


26C8 


2BC3 


IEDT 


176 








ri*0$KOC 


FORCE 


26CA 


3B55 


IEDT 


177 








T1=T1$K50 


CHAR TO * 


26CC 


A694 


IEDT 


178 




150 


BSTORE 


BR 




279E 


5226 


IEDT 


179 


FORAGN 






V=V-1 




27AO 


5F30 


IEDT 


180 


XREADB 






ROB HI V 


READ B FIELD 


27A2 


0F4D 


IEDT 


181 








Z=H in K40 


TEST CHAR 


27A4 


C4C5 


IEDT 


182 




213 


BK2 


BR IF Z=0 


BR IF BLANK 


27A6 


EliE 


IEDT 


183 




179 


FORAGN 


BR IF Gl BIT6*0 


BR IF DEC CTRL OFF 


27A8 


2AB3 


IEDT 


184 








T0=0$K08 


BUILD 


27AA 


3A45 


IEDT 


185 








T0=T0$K40 


MASK 


27AC 


F230 


IEDT 


186 




188 


PI 6 


BR IF 00 BIT7=0 


BR IF NO PI FLAG 


27AE 


3A25 


IEDT 


187 








T0=T0$K20 


CHANGE MASK 


27B0 


6AFi 


IEDT 


188 


PI6 






T0=T03H1 


TEST CHAR 


27B2 


C499 


IEDT 


189 




205 


PRD2 


BR IF Z=0 


BR IF ♦ 


27B4 


FC8F 


IEDT 


190 




208 


CMA2 


BR IF LZ=0 


MA* 8E * 


27B6 


OFFO 


IEDT 


191 


NOPE 






Z=HlaKFO 




27B8 


E09E 


IEDT 


192 




179 


FORAGN 


BR IF HZNZ 


NOT 0-9 


27BA 


C481 


IEDT 


193 




198 


ZERQ2 


BR IF Z=0 


BR IF 


27BC 


7F3A 


IEDT 


194 








STB HI V-i 


STORE CHAR 


27BE 


1523 


IEDT 


195 








Gl=Gl*-K02 


RESET DEC CTRL 


27C0 


£521 


IEDT 


196 




180 


XREADB 


BR IF Gi 8IT2=1 


BR IF FLOATING $ ON 


27C2 


8D7C 


IEOT 


197 


ENDIT 


ICYC 037 


HISTRT 


BR 




2780 


2F45 


IEDT 


198 


ZERQ2 






H1=0$K40 


FORCE BLANK CHAR 


2782 


F5C8 


IEOT 


199 




202 


XTRE 


BR IF Gl BIT3=0 


BR IF * FILL OFF 


2784 


2FC3 


IEDT 


200 








Hl=0$KOC 


BUILD 


2786 


3F55 


IEDT 


201 


CMP 






Hl=Hl$K50 


CHAR 


2788 


7F3A 


IEDT 


2 02 


XTRE 






STB HI V-l 


STORE CHAR 


2 78A 


F142 


IEDT 


203 




197 


ENDIT 


BR IF Gl BIT7=0 


BR IF DONE 


278C 


A7A0 


IEOT 


204 




180 


XREADB 


BR 




2798 


1513 


IEDT 


205 


PRD2 






G1=G1*-K01 




279A 


1525 


IEDT 


206 








Gl=Gl*-K20 




279C 


A780 


IEDT 


207 




198 


ZER02 


BR 




2?8E 


0F60 


IEDT 


208 


CMA2 






Z=HlaK60 


TEST CHAR 


2790 


F214 


IEDT 


209 




211 


PI7 


BR IF DO BIT7=0 


BR IF NO PI FLAG 


2 792 


CF40 


IEDT 


210 








Z=HlaK40 


TEST CHAR 


2 794 


E0B6 


IEDT 


211 


PI7 


191 


NOPE 


BR IF HZNZ 


BR IF NOT , 


2 796 


A780 


IEDT 


212 




198 


ZER02 


BR 




27C4 


E101 


IEDT 


213 


BK2 


198 


ZER02 


BR IF Gl BIT6*=1 


BR IF DEC CTRL ON 


27C6 


1537 


IEDT 


214 








Gi=Gl*-K33 


RESET FLAGS 


2 7C8 


2FB3 


IEDT 


215 








H1=0$K0B 




27CA 


A786 


IEDT 


216 




201 


CMP 


BR 
















********************************** 














* CROSS 


REFERENCE FOR CSECT 


IEDT * 














********************************** 


I EOT 


028 ICVC 244 














IEOT 


030 IEDT 129 














IEDT 


039 IEOT 036 


IEDT 


037 










I6DT 


049 IEOT 046 














IEOT 


051 IEDT 033 


IEDT 


049 IEDT 


073 IEDT 


132 






ItDT 


069 IEDT 067 














IEOT 


071 IEDT 078 


IEDT 


090 











IEDT 
I EOT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEOT 
IEOT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEOT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 



072 
074 
076 
077 
079 
082 
086 
090 
094 
098 
102 
109 
118 
120 
124 
125 
128 
130 
133 
137 
138 
140 
149 
150 
153 
154 
157 
160 
164 
169 
171 
173 
179 
180 
188 
191 
197 
198 
201 
202 
20 5 
208 
211 
213 



IEDT 

IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IED? 
IEDT 
IEOT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEOT 
IEDT 
IEDT 
IEDT 
IEOT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 
IEDT 



070 
127 
074 
060 
056 
080 
084 
55 
092 
095 
081 
103 
113 
093 
1 01 
1C8 
126 
128 
120 
1C6 
076 
151 
164 
165 
155 
152 
148 
158 
162 
144 
166 
146 
156 
196 
186 
211 
203 
193 
216 
199 
189 
190 
209 
182 
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********************************** 

* CROSS REFERENCE FOR CSECT IEDT * 
********************************** 

EOT 077 IEDT 079 IEDT 087 IEDT 089 IEDT 097 IEDT 099 IEDT 100 IEDT 137 



IEDT 064 IEDT 096 



EOT 105 
EDT 114 



IEDT 117 IEDT 119 IEDT 121 



IEDT 110 IEDT 112 IEDT 115 IEDT 133 IEDT 134 



IEDT 172 IEDT 173 IEDT 175 IEDT 178 



IEDT 168 

IEDT 160 IEDT 169 

IEDT 183 IEDT 192 

IEDT 204 



IEDT 207 IEDT 212 IEDT 213 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLOAD=*E40, EC LEVEL=1282 11 
COMMENTS 
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IERR 


001 


T 




i 


A AND 


B INVALID 


ADDRESS CK ROUTINE 


• KRAGER 


0A80 


B159 


IERR 


002 


OPROW 







006 


OPROWO N 


N=G1L 




OP ROW DECODE 


0A82 


8 IDA 


IERR 


003 


OPROW 


I 




036 


CKAORB 


BR 




GO CK BOTH ASB ADDR 


0A84 


8DC4 


IERR 


004 


OPROW 


2 


ICYC 


213 


OPROW 2 


QR 




GO CHECK LENGTH 


0A86 


9378 


IERR 


005 


OPROW 


3 




053 


AINVLD 


BR 




GO CK A ADDR 


OCCO 


8 IDA 


IERR 


006 


OPROWO 







036 


CKAORB 


BR 




MOVE OP 


QCC4 


A 06 2 


IERR 


007 


OPROWO 


2 




055 


HALT 


BR 




HALT OP 


0CC8 


81DA 


IERR 


008 


OPROWO 


4 




036 


CKAORB 


BR 




SET WM 


OCCA 


936C 


IERR 


009 


OPROWO 


5 




061 


CKB 


BR 




CLEAR OP 


OCCC 


8D7C 


IERR 


010 


OPROWO 


6 


ICYC 


037 


HISTRT 


BR 




NO OP 


0C06 


934C 


IERR 


016 


OPROWO 


B 


I8CH 


002 


BRANCH 


BR 




BRANCH OP 


OCDC 


8 IDA 


IERR 


018 


OPROWO 


E 




036 


CKAORB 


BR 




V OP 


OCOE 


81DA 


IERR 


019 


OPROWO 


F 




036 


CKAORB 


BR 




W OP 


20 6C 


2A43 


IERR 


02 8 


INVOOP 










T0=0$K04 




SET STOP CODE =04 


iote 


817C 


IERR 


029 








034 


STCODE 


BR 






11CC 


2A13 


IERR 


030 


BHADER 










TO=0$K01 






UOE 


AC68 


IERR 


031 








059 


CKOP 


BR 






0178 


2A25 


IERR 


032 


OPNOWM 










T0=0*K20 




SET STOP CODE-21 


017A 


3A13 


IERR 


033 


AD01 








* 


T0=T0$K01 


L- 




017C . 


7AF2 


IERR 


034 


STCOOE 










STH T DA, 


BE 


STORE STOP CODE 


017E 


A 044 


IERR 


035 






IDIS 


003 


STOPPP 


BR 






010A 


56A5 


IERR 


036 


CKAORB 










TO=DOXL 






01 DC 


1AC3 


IERR 


037 


CLER45 










TO=TO*-KOC 


CLEAR 4 £ 5 BITS 


oioe 


AC68 


IERR 


038 








059 


CKOP 


BR 






1374 


£671 


IERR 


039 


CKAADD 






051 


AHASER 


BR IF DO 


BIT2=1 


BR IF A ADD INVALID 


1376 


8DC0 


IERR 


041 


BOK 




ICYC 


211 


OPROW 


BR 






13 70 


2A23 


IERR 


051 


AHASER 










T0=0$K02 






1372 


AC68 


IERR 


052 








059 


CKOP 


BR 






1378 


£671 


IERR 


053 


AINVLD 






051 


AHASER 


BR IF DO 


BIT2=1 


BR IF A STAR INVALD 


13 7A 


8DC6 


IERR 


054 






ICYC 


214 


OPROW 3 


BR 






2062 


2AF5 


IERR 


055 


HALT 










TO=0$KFO 




SET NORMAL HALT -FO- 


2064 


D268 


IERR 


056 








059 


CKOP 


BR IF DO 


8 IT 5=0 


BR IF NOT 14 


2066 


2AF7 


IERR 


057 


HLTBR 










TO=0$KFF 




SET HALT £ BR 


2068 


E56D 


IERR 


059 


CKOP 






028 


I NVDOP 


8R IF Gl 


BIT 2*1 


BR IF INVALID OP 


206A 


817C 


IERR 


060 








034 


STCODE 


BR 






136C 


F676 


IERR 


061 


CKB 






041 


BOK 


BR IF DO 


BIT 3^=0 


BR IF B ADDR VALID 


136E 


91DC 


IERR 


067 








030 


BHADER 


BR 






















********************************** 


















* CROSS REFERENCE FOR CSECT 


IERR * 


















********************************** 



IERR 


002 


ICYC 


2C8 


ICYC 


209 


ICYC 


210 










IERR 


006 


IERR 


0C2 


















IERR 


028 


ICYC 


216 


IERR 


059 














IERR 


030 


IERR 


067 


















IERR 


032 


ICYC 


06? 


















IERR 


033 


IOCM 


0C8 


















IERR 


034 


IERR 


029 


IERR 


060 


IOCM 


010 


IOCM 


017 


IUBR 009 


MAAA 097 


IERR 


036 


IBCH 


0G7 


IERR 


003 


IERR 


006 


IERR 


008 


IERR 018 


IERR 019 


IERR 


041 


IERR 


0€1 


















IERR 


051 


IERR 


39 


IERR 


053 














IERR 


053 


IERR 


005 


















IERR 


055 


ICYC 


226 


IERR 


007 














IERR 


059 


IERR 


031 


IERR 


038 


IERR 


052 


IERR 


056 
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********************************** 

* CROSS REFERENCE FOR CSECT I ERR * 
********************************** 



IERR 061 



1ERR CC9 



AD OR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


. STATEMENT 






IMAD 


OOi 


T 


MODIFY ADDRESS 


KRAGER 


137C 


16F3 


I MAD 


002 


MDFADR 






D0=D0*-K0F 


18 ?E 


1002 


IMAD 


003 








RST S K=90 


1680 


5D1A 


IMAD 


004 


RDAFLO 






RDB PI U-l 


1682 


3D45 


IMAD 


005 








P1=P1$K4Q 


1884 


CD09 


IMAD 


006 




015 


AFLDOK 


BR IF PI SITQ=l 


1686 


8442 


IMAD 


013 




IADD 160 


CORCHR 


BAL 


1688 


5079 


IMAD 


015 


AFLDOK 






Dl=Pl 


1B8A 


1613 


I MAO 


016 








DO=DO*-KOl 


16 8C 


5D30 


IMAD 


017 








RDB PI V*0 


1B8E 


DD13 


IMAD 


018 




020 


NOBWM 


BR IF PI BIT 1=1 


1890 


3613 


IMAD 


019 








D0=D0$K01 


1892 


CD17 


IMAD 


020 


NGBWM 


029 


BFLDOK 


8R IF PI BITO=l 


1B94 


8442 


IMAD 


027 




IADD 160 


CORCHR 


BAL 


1B96 


2A95 


IMAD 


02 9 


BFLDOK 






T0=0$K90 


1898 


3045 


IMAD 


030 








Pl=Pl$K40 


189A 


4DA0 


IMAD 


031 








T0=P1L*T0H 


1B9C 


57BD 


IMAD 


032 








TI=D1L 


1896 


7BAF 


IMAD 


033 








TlC=TiaTO*C 


18 AO 


E229 


IMAD 


034 




038 


UNITS 


BR IF 00 BIT6=1 


1BA2 


3623 


IMAD 


035 








D0=O0$K02 


18A4 


86F8 


IMAD 


036 




070 


ZONEAD 


BAL 


18A6 


9BB6 


IMAD 


037 




045 


SLASH 


BR 


18A8 


D230 


IMAD 


038 


UNITS 


042 


TENS 


BR IF 00 BIT 5=0 


16AA 


3683 


IMAD 


039 








D0=D0$K08 


IB AC 


66F8 


IMAD 


040 




070 


ZONEAD 


BAL 


1BAE 


9BB6 


IMAD 


041 




045 


SLASH 


BR 


1BB0 


4DBB 


IMAD 


042 


TENS 






TI=P1H+T1L 


1BB2 


3B85 


IMAD 


043 








T1=T1$K80 


1BB4 


3643 


IMAD 


044 


GOOD 






DO- DO $K 04 


1BB6 


GB1B 


IMAD 


045 


SLASH 






Z=TlaKOl 


1888 


F0C7 


IMAD 


046 




053 


MAYBE 


BR IF LZ=0 


lbBA 


F23E 


IMAD 


047 


CKWM 


049 


LEAVE 


BR IF DO 8IT7=0 


1B8C 


1B45 


IMAD 


048 








T1=T1*-K40 


1BBE 


783A 


IMAD 


04 9 


LEAVE 






STB Tl V-t 


18C0 


C200 


IMAD 


050 




004 


RDAFLD 


BR IF DO BIT4=0 


1BC2 


E24F 


IMAD 


051 




057 


CORUTS 


BR IF DO BIT 6* I 


1BC4 


80 7C 


IMAD 


052 


ICYCLE 


ICYC 037 


HISTRT 


BR 


18C6 


QBfcO 


IMAD 


053 


MAYBE 






Z=TlnKEO 


18C8 


E08A 


IMAD 


054 




047 


CKWM 


BR IF HZNZ 


1BCA 


1B8D 


IMAD 


055 








Tl=TlaK80 


1BCC 


9BBA 


IMAD 


056 




047 


CKWM 


BR 


18CE 


DF44 


IMAD 


057 


CORUTS 


052 


ICYCLE 


BR IF HI BIT 1=0 


1BD0 


6224 


IMAD 


058 








V=V+2 


1802 


5224 


IMAD 


059 








V=V + 1 


1BD4 


5B30 


IMAD 


060 








RDB Tl V*0 


1BD6 


1613 


IMAD 


061 








DO=D0*-K0l 


1808 


5B79 


IMAD 


062 








Dl=Tl 


18 CA 


2DF5 


IMAD 


063 








Pl=OSKFO 


18DC 


2002 


IMAD 


064 








SET S3 


180E 


D76 3 


IMAD 


065 




067 


PTCH 


BR IF 01 BIT 1=1 


18E0 


3613 


IMAD 


066 








D0=D0$K0i 


1BE2 


66F8 


IMAD 


067 


PTCH 


070 


ZONEAD 


BAL 



CL0AD=*E40» EC LEVEL=128211 
COMMENTS 



RESET FLAG BITS 

RESET CARRY IN AND COMP 

READ A FIELD 

INSURE NO MM 

BR IF NOT A SPECIAL CHARACTER 

GO CORRECT CHAR 

SET A REG 

RESET B WM FLAG BIT 

READ B FIELD 

BR IF NO B FLD WM 

SET WM FLAG 

BR IF NOT A SPECIAL CHARACTER 

GO CORRECT CHAR 



SET UP FOR ADD 

ADO NUMERICS 

BR IF UNITS POSITION DONE 

SET UNITS DONE 

GO ADD ZONE BITS 

BR IF TENS NOT DONE 

SET HNDRDS 

GO ADD ZONE BITS 

GO CHECK RSLT FOR SLASH 

USE B FLO ZONE BITS 

FORCE BIT ON 

SET TENS DONE 

CHECK LOW BITS 

BR IF LOW BITS=1 

BR IF B WM FLAG OFF 

ADD WM TO CHAR 

STORE CHAR 

BR IF HNDRDS NOT DONE 



CHECK HIGH BITS 

BR IF HIGH BITS NOT E 

REMOVE BIT 

BR IF UNITS RSLT OK 

RE ADDRESS UNITS POSITION 

READ CHARACTER 
RESET WM FLAG 



BR IF NO WM WITH CHAR 
SET WM FLAG ON 
GO ADD ZONE BITS 
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ADOR 



fcORD SEQUENCE NO. 



IBE4 


1623 


IMAD 


068 


18E6 


9886 


I MAD 


069 


06F8 


57AB 


IMAD 


070 


06FA 


50FB 


IMAD 


071 


06FC 


1AFD 


iMAD 


072 


Q6FE 


1FFD 


IMAD 


073 


0700 


6FA3 


IMAD 


074 


0702 


02C8 


IMAD 


075 


07G4 


F588 


IMAD 


076 


0706 


2F1D 


IMAD 


077 


0708 


1F80 


IMAD 


078 


07GA 


4FBB 


IMAD 


079 


070C 


3BC5 


IMAD 


080 


070E 


128E 


IMAD 


081 






IMAD 


082 



LABEL 



ZONEAD 



NEXTSEQ 



NEXTLABEL STATEMENT 



045 SLASH 



078 
078 



NOCRY 
NOCRY 



NOCRY 



AEND 



D0=D0*-K02 

BR 

TQ=01H 

H1=P1H 

T0=T0nKF0 

HL=H1QKF0 

H1=H1*T0 

BR IF DO BIT5=0 

BR IF S3*=0 

H1=H1+K10 

H1=H1QKB0 

T1 = H1H+T1L 

T1=T1$KC0 

RTN 



CLQAD=*E40, EC LEVEL=128211 
COMMENTS 

RESET UNITS FLAG BIT 
GO CHECK FOR SLASH 



INVERT ZONE BITS 

INVERT ZONE BITS 

ADD BITS 

BR IF NOT HNDRDS CHAR 

BR IF NO NUMERIC CARRY 

ADD 1 TO ZONES 

INVERT ZONES 

FORM NEW CHARACTER 

FORCE AND 1 BITS ON 
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********************************** 

* CROSS REFERENCE FOR CSECT IMAD * 
********************** ************ 



IMAD 


002 


ICYC 


242 








IMAD 


004 


IMAD 


050 








IMAD 


015 


IMAD 


0C6 








IMAO 


020 


IMAD 


018 








IMAD 


029 


IMAD 


020 








IMAD 


038 


IMAD 


034 








IMAD 


042 


I MAO 


C38 








HAD 


045 


IMAD 


037 


IMAD 


041 


IMAD 069 


IMAD 


047 


IMAD 


054 


IMAD 


056 




IMAD 


049 


IMAD 


047 








IMAD 


052 


IMAD 


057 








IMAD 


053 


IMAD 


046 








IMAD 


057 


IMAD 


051 








IMAD 


067 


IMAD 


0*5 








IMAD 


070 


IMAD 


036 


IMAD 


040 


IMAD 067 


IMAD 


078 


IMAD 


075 


IMAD 


076 
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I MEM DESCRIPTIVE TEXT 



OBJECTIVES 



ENTRY POINT 



SET 8F INTO 1400 PROGRAM STORAGE POSITION 0000-1 
STORAGE WRAP DETECTION). 



(FOR LOW 



SCAN ENTIRE 1400-ASSIGNED PROGRAM STORAGE AREA AND REPLACE 
ANY INVALID 14C0 CHARACTER WITH BLANKS (401. 



IPLS 



THIS IS THE EXCLUSIVE ENTRY POINT FROM THE INITIAL 
PROGRAM LOAD PROCEDURE. MEMORY SCAN IS DONE EACH 
TIME AN OBJECT PROGRAM IS LOADED. 



A DDK 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXT LABEL STATEMENT 



COMMENTS 







IMEM 


001 


2ua4 


2400 


IMEM 


002 


?066 


3779 


IMEM 


003 


2.088 


2E07 


IMEM 


004 


208A 


5A02 


IMEM 


005 


208C 


5AA6 


IMEM 


006 


2ii8fc 


7788 


I MEM 


007 


2D90 


2745 


IMEM 


008 


2092 


5DA2 


IMEM 


009 


20 94 


7DAI 


IMEM 


010 


2u9b 


F4A2 


IMEM 


Oil 


2D98 


5FB8 


IMEM 


012 


2Q9A 


3F45 


IMEM 


013 


2D9C 


55E0 


IMEM 


014 


id 9E 


D5QD 


IMEM 


015 


20A0 


D512 


IMEM 


016 


2UA2 


3400 


IMEM 


017 


2DA4 


128E 


IMfcM 


018 



IMEM 002 

IMEM 006 

IMEM 009 

IMEM 017 



IPLS 0C5 
IMEM 015 
IMEM 016 
IMEM Oil 



SCAN 



BACK 



AGA I N 



END 



** 1400 MEMORY SCAN R TAYLOR 

SET MODE K=00 

D1=G-K70 

H0 = 

RDH T DA, 88 

T=T-1 

STB Dl T*l 

D1=0$K40 

RDB PI DA, AC 

PI=P1-T0+1 
017 END BR IF AC=0 

RDB Hi T+l 

H1=H1$K40 

RDB Gl AS,H 
BACK BR IF Gll^l 

AGAIN BR IF G11=0 

SET MODE K=80 

RT N 

********************************** 

* CROSS REFERENCE FOR CSECT IMEM * 
****** ****** ********************** 



006 
009 



SET NPL CPU MODE TO SCAN 
BUILD 8F CHARACTER 

GET BIAS CONSTANT 

GET 1400 0000-1 ORBACKUP TO FIX 

STORE 8F OR 40 

GET HI MEMORY ADDRESS 

TRIAL SUBTRACT 

SCAN DONE 

GET CHARACTER TO TABLE LOOKUP 

TEST FOR VALID 1400 CHARACTER 
ERROR STORE 40 FOR INVALID 
CHARACTER OK GET NEXT 



A DDK 



WORD SEQUENCE NQ. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 







IMPY 


001 


T 






IMPY 


002 


# 


5F4 


7222 


IMPY 


010 


MULTPY 


05F6 


2C07 


IMPY 


012 




05F8 


1020 


IMPY 


013 




05FA 


4426 


IMPY 


014 




05FC 


7032 


IMPY 


02 




05FE 


5D1A 


IMPY 


022 




0600 


CD05 


IMPY 


023 


CKSPCL 


0602 


8442 


IMPY 


030 




06 04 


EDOB 


IMPY 


032 


NOSPEC 


06 06 


FDOA 


IMPY 


033 




0608 


16 IB 


IMPY 


034 




06 OA 


5DF9 


IMPY 


035 


SIGNOK 


060C 


CC18 


IMPY 


036 




OdOE 


94FC 


IMPY 


037 




0618 


5D30 


IMPY 


038 


NQAFWM 


061 A 


50DB 


IMPY 


039 




061C 


30B5 


IMPY 


040 




061E 


70 3A 


IMPY 


041 




0620 


CC15 


IMPY 


042 




0622 


OF 10 


IMPY 


043 




0624 


5F1A 


IMPY 


044 




06 26 


8618 


IMPY 


045 




0610 


3C85 


IMPY 


046 


AFLOWM 


0612 


8618 


IMPY 


047 




0614 


5D30 


IMPY 


048 


AFLGON 


06 16 


86G0 


IMPY 


049 




14FC 


5050 


IMPY 


05 


AHADWM 


14FE 


50DD 


IMPY 


051 




1500 


F204 


IMPY 


052 




1502 


3D15 


IMPY 


053 




1504 


30C5 


IMPY 


054 


TRUADD 


1506 


7D50 


IMPY 


055 




1508 


5032 


IMPY 


063 


SETAUX 


150A 


1CF3 


IMPY 


064 




150C 


5422 


IMPY 


065 




ioOt 


5D30 


IMPY 


067 




1510 


DD15 


IMPY 


068 




1512 


3C45 


IMPY 


069 




1514 


50BB 


IMPY 


070 


NOBWM 


1516 


5D79 


IMPY 


071 




1518 


3BB5 


IMPY 


072 




151A 


7B3A 


IMPY 


073 




151C 


C021 


IMPY 


074 




151E 


8442 


IMPY 


081 




1520 


1DF5 


IMPY 


083 


NOTSPC 


1522 


F0A6 


IMPY 


084 




1524 


S01C 


IMPY 


085 




1?26 


5DE9 


IMPY 


086 


NONZRO 






IMPY 


087 


♦ 


1528 


5D1A 


IMPY 


088 




152A 


CD2F 


IMPY 


089 





1400 MULTIPLY 
MULTIPLY SIGN 



032 NOSPEC 

I ADD 160 COftCHR 

035 SIGNOK 

035 SIGNOK 



038 NOAFWM 
050 AHADWM 



048 AFLGON 

046 AFLDWM 

038 NOAFWM 

038 NOAFWM 

023 CKSPCL 

054 TRUADD 



070 NOBWM 



083 NOTSPC 
IADD 160 CGRCHR 

086 NONZRO 
118 EXIT 

MULTIPLY MAIN 

098 CHAROK 



KRAGER 
ANALYSIS AND B FIELD 

STH V DA,8C 

P0=0 

RST S K=82 

G=V 

STH U DA,8E 

RDB PI U-l 

BR IF PI BITO=i 

BAL 

BR IF PI BIT2=1 

BR IF PI BIT3=0 

O0=D0QK0i 

Hl«Pi 

BR IF PO BITO^O 

BR 

RDB Pi V+0 

P1=P1H 

P1=P1$KB0 

STB PI V-l 

BR IF PO BIT0=1 

BR IF HI BIT 1=0 

ROB HI U-l 

BR 

P0=P0$K80 

BR 

RDB PI V+0 

BR 

RDB PI G+0 

P1=P1L 

BR IF 00 BIT7=0 

Pl=Pl$KiO 

P1=P1$KC0 

STB PI G+0 

RDH U DA,8E 

PQ= P0*-K0F 

RDH G DA,8C 

RDB PI V*0 

BR IF PI BIT 1=1 

P0=PG$K40 

T1=P1H 

D1=P1 

Tl=Ti$KBO 

STB Tl V-l 

BR IF PI BIT0=1 

BAL 

P1=P1*-KF0 

BR IF LZNZ 

BR 

H0=P1 
LOOP* 

RDB PI U-l 

BR IF PI BITO=l 



CL0AD=*E40, EC LEVEL=128211 
COMMENTS 



CLEAR LOOP, 

SET B AUX REG 
CLEAR FLAG BITS 

RESET SO AND S6 
SET AUX B STAR 
SET AUX A STAR 
READ A FIELD 



BCH IF CHAR IS PLUS 
BCH IF CHAR IS PLUS 
INVERT SIGN CTRL BIT 

BCH IF A WM FLAG OFF 

READ B FIELD 

SET TO ZERO 
STORE CHAR BACK 
BCH IF A WM FLAG ON 
BCH IF A FLD WM 
READ A FIELD 

SET A WM FLAG 

READ MLPR 

READ PRODUCT POS 

BR IF ADD 

SET UP PLUS OR MINUS 
STORE UNITS OF PROD 
SET A=AUX 

READ B AUX REG 
READ MLPR 

BCH IF NO B FLD WM 
SET B WM FLAG 

ZERO CHAR 

BCH IF NOT SPC CHAR 

BCH ON NON MLPR 
SET MLPR 

BCH IF NOT SPC CHAR 
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A DDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 


152C 


8442 


IMPY 


C96 




IADD 160 


CQRCHR 


BAL 




152E 


00C2 


IMP* 


098 


CHAROK 






RST S K-LQ 


RESET S3 


1530 


4DE8 


IMPY 


099 








H0=P1H+H0L 


SAVE ZONE BITS 


1532 


1E7B 


IMPY 


100 








H0=H0QK07 


CORRECT MLPR 


1534 


5DDD 


IMPY 


101 








P1=P1L 




1336 


5DFD 


IMPY 


102 








Hl^PlL 


STRIP ZONE 8 ITS 


1538 


9AC1 


IMPY 


103 




104 


ADDER N 


N=HO BITS 567 




1000 


7DFF 


IMPY 


104 


ADDER 






P1C=P13H1*C 




1002 


7DFF 


IMPY 


105 


ADDER 1 






PlC«P13Hl+C 




1004 


7DFF 


IMPY 


106 


ADDER 2 






P1C-P13HUC 


MP-LV CNAD 


1006 


7DFF 


IMPY 


107 


ADDER 3 






P1C=P13H1*C 




1008 


70FF 


IMPY 


108 


ADDER 4 






P1C=P13HI*C 




100A 


7DFF 


IMPY 


109 


ADDER 5 






P1D=P13H1*C 




100C 


9016 


IMPY 


110 


ADDER 6 


115 


CKBII4 


BR 




100E 


CA1C 


IMPY 


111 


ADDER 7 


118 


EXIT 


BR IF HO BIT4=0 


BCH IF MLPR NOT 8 


1010 


1E83 


IMPY 


112 


CGNTIN 






HQ=H0*-K0 8 


REMOVE 4 BIT 


1012 


7DFF 


IMPY 


113 








P1C=P13H1«X 




1014 


9000 


IMPY 


114 




104 


ADDER 


BR 




1016 


CA1C 


IMPY 


115 


CKBIT4 


118 


EXIT 


BR IF HO BIT4=0 


BCH IF MLPR NOT 9 


1018 


7DFF 


IMPY 


116 








P1C=P13H1*C 




101A 


9010 


IMPY 


117 




112 


CONTIN 


BR 




10 1C 


5CAD 


IMPY 


118 


EXIF 






TO=POL 




ioie 


7CAF 


IMPY 


119 








P1C=P13T0*C 


ADD ANY CAND CARRY 


1020 


4DC5 


IMPY 


12 








P0=P1XL$P0H 


SAVE THIS CARRY 


1022 


5B50 


IMPY 


121 








ROB Tl G+0 


READ PROD POS 


1024 


E1AA 


IMPY 


122 




125 


NQCARY 


BR IF S6=0 


BCH IF NO PROD CARRY 


1026 


20C2 


IMPY 


123 








SET S K=10 


SET S3 


1028 


0G20 


IMPY 


124 








RST S K=:02 


RST S6 


102A 


5DDD 


IMPY 


125 


NQCARY 






P1=P1L 


RSLT FIELD 


102C 


5BAD 


IMPY 


126 








T0=T1L 


PROD FIELD 


102 E 


7CAF 


IMPY 


127 








pic=pi3T0«-c 




1030 


ECB5 


IMPY 


128 




130 


NOPRCY 


BR IF HZ=0 


BCH IF NO PROD CARRY 


1032 


202G 


IMPY 


129 








SET S K=0 2 


SET S6 


1034 


40BD 


IMPY 


130 


NOPRCY 






T1=P1L+T1H 


ADD PROD ZONES 


1036 


57D9 


IMPY 


131 








P1=D1 




1038 


7B5A 


IMPY 


132 








STB Tl G-l 


STORE RESULT 


103A 


DE44 


IMPY 


133 




136 


AEND 


BR IF HO BIT1=0 


BCH8IF A FLD WM 


10 3C 


9526 


IMPY 


134 




086 


NONZRG 


BR 








IMPY 


135 


* 


MULTIPLY, ENDING 


ROUTINE. 




1044 


0GC2 


IMPY 


136 


AEND 




■' 


RST S K=10 


RSF S3 


1046 


5B50 


IMPY 


137 








RDB Tl G+0 


READ PRODUCT 


1U48 


EICE 


IMPY 


138 




141 


FINISH 


BR IF S6=0 


BCH IF NO PROD CARRY 


104 A 


2002 


IMPY 


139 








SET S K=10 


SET S3 


104C 


0020 


IMPY 


140 








RST S K=02 


RST S6 


104E 


5BAD 


IMPY 


141 


FINISH 






TO^TIL 




1050 


5CDD 


IMPY 


142 








P1=P0L 




1052 


7DAF 


IMPY 


143 








P1C=P13T0+C 


ADD FIELDS 


1054 


4DBD 


IMPY 


144 








T1=P1L+T1H 


INSERT ZONES 


1056 


7B5A 


IMPY 


145 








STB Tl G-l 


STORE RESULT 


1058 


DC3F 


IMPY 


156 




167 


MPYEND 


BR IF PO BITi^l 


BCH IF B FLD WM FLG 


105A 


5422 


IMPY 


157 








RDH G DA, 8C 


READ B AUX REG 


105C 


5446 


IMPY 


158 








G=G-1 


DECREMENT BAUX -1 


105E 


7422 


IMPY 


159 








STH G DA,8C 


STORE B AUX REG 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


1060 


95C8 


IMPY 161 




063 


SETAUX 


BR 


103E 


2CC7 


IMPY 167 


MPYENO 






P0=0 


1040 


2607 


IMPY 169 








00=0 


1042 


8D7C 


IMPY 170 




I CYC 037 


HISTRT 


BR 
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COMMENTS 



********************************** 

* CROSS REFERENCE FOR CSECT IMPY * 
********************************** 



IMPY 


010 


ICYC 


248 






IMPY 


023 


IMPY 


049 






IMPY 


032 


IMPY 


023 






IMPY 


035 


IMPY 


032 


IMPY 


033 


IMPY 


038 


IMPY 


036 


IMPY 


045 IMPY 047 


IMPY 


046 


IMPY 


043 






IMPY 


048 


IMPY 


042 






IMPY 


050 


IMPY 


037 






IMPY 


054 


IMPY 


052 






IMPY 


063 


IMPY 


161 






IMPY 


070 


IMPY 


068 






IMPY 


083 


IMPY 


074 






IMPY 


086 


IMPY 


084 


IMPY 


134 


IMPY 


098 


IMPY 


089 






IMPY 


104 


IMPY 


1C3 


IMPY 


114 


IMPY 


112 


IMPY 


117 






IMPY 


115 


IMPY 


110 






IMPY 


118 


IMPY 


085 


IMPY 


111 IMPY 115 


IMPY 


125 


IMPY 


122 






IMPY 


130 


IMPY 


128 






IMPV 


136 


CMPY 


133 






IMPY 


141 


IMPY 


138 






IMPY 


167 


IMPY 


156 







AD OR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLGAD=*E4Qt EC LEVEL=1282U 
COMMENTS 



PAGE 62 







IMRC 


OOi 


T 


1400 


MGVE RE 






IMRC 


002 


* 


DATA 


MOVED F 






IMRC 


003 


* 


AFTER 


; FIRST 


2E6A 


7738 


IMRC 


004 


STORE 






2E6C 


5718 


IMRC 


005 


RECORD 






2t6fc" 


5F30 


IMRC 


006 








2E70 


07FB 


IMRC 


007 








2E72 


C4E1 


IMRC 


008 




015 


GMWMRM 


2E74 


3 74 5 


IMRC 


009 








2E76 


07EO 


IMRC 


010 








2E78 


C4E1 


IMRC 


Oil 




015 


GMWMRM 


2E7A 


DF6B 


IMRC 


012 




004 


STORE 


2E7C 


1745 


IMRC 


013 








2E7E 


AE6A 


IMRC 


014 




004 


STORE 


2E60 


3745 


IMRC 


015 


GMWMRM 






2E62 


DF67 


IMRC 


016 




018 


CHAROK 


2E64 


1745 


IMRC 


017 








2E66 


7738 


IMRC 


018 


CHAROK 






2668 


8D7C 


IMRC 


019 




ICYC 037 


HISTRT 



RECORD. KRAGER 

A FLD TO B FLD, WORD MARKS ARE NOT CHANGED. OP ENDS 



IMRC 004 

IMRC 005 

IMRC 015 

IMRC 018 



IMRC 012 

ICYC 282 

IMRC CC8 

IMRC 016 



IMRC 014 



IMRC Oil 



STB Di V*l 
RDB Dl U*l 
RDB Hi V+0 
Z=01QK0F 
BR IF 2=0 
01=D1$K40 
Z=DlnKEO 
BR IF Z=0 
BR IF HI BIT 1=1 
D1=D1*-K40 
BR 

D1=D1$K40 
BR IF HI BIT 1=1 
D1=D1*-K40 
STB Dl V+l 
BR 
********************************** 

* CROSS REFERENCE FOR CSECT IMRC * 
********************************** 



STORE CHAR 
READ A FIELD 
READ B FIELD 

BR IF GMWM 
ADD WM BIT 

BR IF RECORD MARK 
BR IF NO B FIELD WM 
ADD WM TO CHAR 



REMOVE WM BIT 
BR IF NO B FLD 
ADD WM TO CHAR 
STORE CHAR 



WM 



AOOR 



ICA8 
1CAA 
1CAC 
1CAE 
1L80 
1CB2 
1CB4 
1CB6 
1C9A 
1C9C 
1C9E 
1CAO 
LCA2 
1CA4 
1CA6 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLA8EL STATEMENT 



CLQAD=*E40, EC LEVEL=1282 1i 

COMMENTS 
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1CBB 
1CBA 
LCBC 
1CBE 
ICCO 
1CC2 
1CC4 
1CC6 
1CC8 
1CCA 
1CCC 
1CCE 
1COO 
1CD2 
1CD4 
ICD6 
1CD8 
1COA 
ICDC 
1COE 
IC80 
1C82 
1CEO 
1CE2 
1CE4 
1CE6 



773A 
571A 
5F30 
DF22 
0729 
3745 
773A 
8D7C 
773A 
571A 
5F3G 
071B 
1745 
773A 
807C 



E22A 
5FC2 
C62A 
2865 
2B3B 
3 7CD 
C485 
07 IB 
C4AA 
3000 
57 1A 
5F30 
QF60 
0700 
7730 
73BD 
72C0 
C5CA 
1002 
SCCC 
3745 
SCE2 
1745 
7730 
73BD 
72C0 



IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
I M VE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 
IMVE 



001 
002 
003 
004 
005 
006 
007 
00 8 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
027 
028 
034 
035 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
055 
057 
05 8 
059 
060 
061 
062 
063 
064 
070 



STORE 
MOVE 



AFLOWM 



LOAD 
LOADOP 



BFLDWM 



* 

* 

# 

* 



MOVE OP 



MBOP 
ROAFLO 



AWM 

BWM 
ENOOP 



1400 MOVE AND LOAD OPS • KRAGER 

DATA MOVED A TO B FIELD. A WM IN EITHER FLO WILL END THE MOVE UP. 
WM'S ARE NOT MOVED OR CHANGED. ON A LOAD OP ONLY A WM • S WILL END 
THE OP AND IT WILL BE MOVED TO THE B FIELD. 



THE 



017 
005 



BFLDWM 
STORE 



ICYC 037 HISTRT 



013 LOAD 



ICYC 037 HISTRT 



STB 01 V-l 

RDB DI U-l 

ROB HI V+0 

BR IF HI BIT 1=0 

BR IF Dl BIT 1=1 

D1=D1$K40 

STB 01 V-l 

BR 

STB 01 V-l 

RDB Dl U-l 

RDB HI V+0 

BR IF 01 BIT1=1 

Dl=Dl*-K40 

STB Dl V-l 

BR 



STORE CHAR 

READ A FIELD 

READ B FIELD 

BR IF B FIELD WM 

BR IF NO A FIELD WM 

REMOVE A FIELD WM 

STORE CHAR 

STORE CHAR 

READ A FIELD 

READ B FIELD 

BR IF NO A FIELD WM 

ADO WM TO A FIELD CHAR 

STORE CHAR 



THIS SECTION TEST FOR THE FORM MAAABBBIDI, WHERE D CAN BE A OR B. 
OTHER FORMS OF THE OP, NO COL BIN FEATURE, AND D NOT A-B WILL BE 
PERFORMED AS A NORMAL MOVE OP. 

MOVE! A) -OECODE-MOVE BINARY DATA FROM READ AREA* 501-580,401-480) 
SUCCESSIVE LOCATIONS IN MAIN STORAGE. F0RMAT-N580XXXA 
OPERATION-580 TO XXX, 480 TO XXX-l t 579 TO XXX-2 f ETC. TO WM. 
MOVE IB) -ENCODE-OPPOSITE SEQUENCE OF MOVEIAI. FORMAT-MXXX580B 
OPERATION-XXX TO 580, XXX-1 TO 480, XXX-2 TO 579, ETC. TO WM. 



TO 



006 MOVE 



006 MOVE 



073 MAOP 



006 MOVE 



062 
060 



BWM 
AWM 



043 MBOP 



044 RDAFLD 



063 ENDOP 



BR IF DO BIT6=0 

R08 HI DA,B8 

BR IF HI BIT 4=0 

T1=0$K60 

T1=T1+K03 

Dl=Dl-KCO 

BR IF Z=0 

Z=D1QK01 

BR IF ZNZ 

SET SO 

ROB 01 U-l 

RDB Hi V+0 

BR IF Hi BIT 1=0 

BR IF Dl BIT 1=0 

STB 01 V+0 

vic=vmi+c 

VQC=VOSPO+C 

BR IF S0=0 

RST S K=90 

BR 

D1=D1$K40 

BR 

Di=Dl*-K40 

STB Dl V+0 

ViC=Vi%Tl+C 

VOC=VO%PO+C 



BR TO NORMAL MOVE IF NOT IB 
READ CONTROL BYTE 
BR TO NORMAL MOVE IF NO COL BIN 
SET Tl TO OEC 99 

FOR USE IN MOVE! A-B) ROUTINES 
TEST FOR IA) 

BR IF I A) TO I A! ROUTINE 
TEST FOR <B1 

BR IF NOT (B) TO NORMAL MOVE OP 
M0VE1B10P-SET SO ON 
READ A-FIELO CHAR 
READ B- FIELD CHAR 
BR IF B-FIELD WM 
BR IF A-FIELO WM 
STORE A CHARACTER IN B-FIELD 
UPDATE B ADDR REG 

BY -100 OR +99 
BR TO SET SO IF EVEN CYCLE 
RESET SO a S3 ON 000 CYCLE 
BR TO READ NEW A-FIELD CHAR 
A-ViM BUT NO B WM-CLEAR WM ANO 

BR TO STORE CHAR IN B-FIELO 
B-WM, SET WM IN A-CHAR ANO 

STORE IN B-FIELD 
UPDATE B AOOR REG 

BY -100 OR +99 



ADDR 



WORD SEQUENCE NO. 



LABEL 



1CE8 


807C 


IMVE 


072 




1C84 


3000 


IMVE 


073 


MAOP 


1C86 


5710 


IMVE 


074 


REAOA 


1C88 


71B0 


IMVE 


075 




1C8A 


70C0 


IMVE 


081 




1C8C 


5F30 


IMVE 


083 




1C8E 


0F22 


IMVE 


084 




IC90 


D732 


IMVE 


085 




1C92 


7 73A 


IMVE 


086 




1C94 


C584 


IMVE 


087 




1C96 


1002 


IMVE 


088 




1C98 


9C86 


IMVE 


089 





NEXTSEQ NEXTLABEL STATEMENT 

ICYC 037 HISTRT BR 

SET SO 
ROB 01 U+0 

uiouixri+c 

U0C=U0SP0*C 

ROB HI V+0 

BR IF HI BIT1-0 

BR IF 01 BIT 1=0 

STB 01 V-i 

BR IF S0=0 

RST S K=90 

BR 
********************************** 

* CROSS REFERENCE FOR CSECT IMVE * 
********************************** 



017 


BFLDWM 


010 


AFLDWM 


073 


MAOP 


074 


READA 



CL0AD=*E40 f EC LEVEL* 1282 11 

COMMENTS 

RETURN TO I-CYCLE 
MOVE! A I ROUTINE 
READ A-FIELD CHAR 
UPDATE A ADORE SS REG 

BV -100 OR +99 
READ B-FIELD CHAR 
BR IF B-FIELD WM 

A-FIELD WM 

A CHAR IN B-FIELD 

SET SO IF EVEN CYCLE 

SO € S3 ON ODD CYCLE 

READ NEW A FIELD CHAR 



PAGE 64 



BR IF 
STORE 
BR TO 
RESET 
BR TO 



IM VE 


005 


IMVE 


0C9 






IMVE 


006 


IMVE 


028 


IMVE 


035 IMVE 042 


IMVE 


010 


IMVE 


085 






IMVE 


013 


IMVE 


016 






IMVE 


014 


ICYC 


239 






IMVE 


017 


IMVE 


008 


IMVE 


084 


IMVE 


028 


ICYC 


225 






IMVE 


043 


IMVE 


057 






IMVE 


044 


IMVE 


059 






IMVE 


060 


IMVE 


047 






IMVE 


062 


IMVE 


046 






IMVE 


063 


IMVE 


061 






IMVE 


073 


IMVE 


040 


IMVE 


087 


IMVE 


074 


IMVE 


089 







AODR 



WORD SEQUENCE NO* LASEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLGAD=*£40, EC LEVEL=128211 
COMMENTS 
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IMVZ 


001 


T 






IMVZ 


002 


* 






IMVZ 


003 


♦ 


20A6 


5D1A 


IMVZ 


004 


MVZQNE 


2DA8 


5079 


IMVZ 


005 




20 AA 


3045 


IMVZ 


006 




20AC 


5BC0 


IMVZ 


007 




2DAE 


5030 


IMVZ 


008 




20B0 


5049 


IMVZ 


009 




20B2 


3D45 


IMVZ 


010 




2D B4 


50C0 


IMVZ 


Oil 




2DB6 


F13C 


IMVZ 


012 




2D88 


4BDB 


IMVZ 


013 




2DBA 


ADBE 


IMVZ 


014 




2DBC 


4B00 


IMVZ 


015 


OIGIT 


2DBE 


5BC0 


IMVZ 


016 


XLATE 


20C0 


0445 


IMVZ 


017 




20 C 2 


1B45 


IMVZ 


018 




2DC4 


7B3A 


IMVZ 


019 


STORE 


20C6 


8D7C 


IMVZ 


020 





MOVE ZONE OR DIGITGPS. KRAGER 

THE ZONE OR DIGIT BITS ARE MOVED FROM THE A FIELD 

WM»S ARE NOT CHANGED* 

RD8 PI U-i 

DUPi 

Pi=Pl$K40 

ROB Tl AStP 

RDB PI V*Q 

GO=Pi 

P1=P1$K40 

ROB PI AS.P 

BR IF Gl BIT 7=0 

P1=T1H*P1L 

BR 

P1=T1L+P1H 

ROB Tl AS,P 

BR IF GO BIT 1=1 

Ti=Tl*-K40 

STB Tl V~l 

BR 
********************************** 

* CROSS REFERENCE FOR CSECT IMVZ * 
********************************** 



TO THE B FIELD* 



015 DIGIT 



016 XLATE 



019 STORE 



ICYC 037 HISTRT 



READ A FIELD 
SET CHAR TO A REG 
INSURE I BIT ON 
CONVERT CHAR TO BCD 
READ B FIELD 
SAVE B FLO WM 
INSURE 1 BIT ON 
CONVERT CHAR TO BCD 
BR IF MOVE DIGIT OP 
MOVE BITS 

MOVE DIGIT BITS 
CONVERT TO NPL 
BR IF WM FLAG OFF 
SET WM IN CHAR 
STORE CHAR 
RTN TO I CYCLE 



IMVZ 004 

IMVZ 015 

IMVZ 016 

IMVZ 019 



ICVC 240 
IMVZ 012 
IMVZ 014 
IMVZ 017 



ICYC 241 
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ADDR 


WORD 


SEQUENCE NO, 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 






IMZS 


001 


T 


MOVE 


WITH ZERO : 


SUPPRESS. KRAGER 






IMZS 


002 


* 


A FIELD DATA IS 


MOVED TO B FIELD, 


, THE A WM ENDS THE OP, ZONE 81 TJ 






IHZS 


003 


* 


REMOVED FROM THE UNITS POSITION. 


HIGHO» S AND ,S ARE SUPPRESSED. 


22 6fc 


5 71A 


IMZS 


004 


ZEROS? 






ROB Di U-l 


READ A FIELD 


2270 


5709 


IMZS 


005 








P1=D1 




2212 


3045 


IMZS 


006 








Pl=Pl$K40 


INSURE NO WM BIT 


221<* 


50C0 


IMZS 


007 








ROB PI AStP 


CONVERT TO BCD 


221b 


5DDD 


IMZS 


008 








P1=P1L 


REMOVE ZONES 


2278 


50C0 


IMZS 


009 








ROB PI AS,P 


CONVERT TO E8DCIC 


227A 


1045 


IMZS 


010 








P1=P1*-K40 


SET TEMPORARY WM 


22 7C 


7D3A 


IMZS 


Oil 








STB Pi V-l 




227E 


5EC2 


IMZS 


020 








ROH H DA,B8 


READ CONTROL BYTE 


2280 


FE04 


IMZS 


021 




024 


PI2 


BR IF HO BIT 3=0 


BR IF NO PI BIT 


2282 


3613 


IMZS 


023 








00=00$KOl 


SET PI FLAG 


2284 


D712 


IMZS 


024 


PI 2 


031 


INC 


BR IF Dl 8IT1=0 


BR IF A FLD WM 


2286 


A28A 


IMZS 


025 




027 


XX 


BR 




2288 


7D3A 


IMZS 


026 


STORE 






STB Pi V-l 


STORE DATA 


228A 


501A 


IMZS 


027 


XX 






RDB PI U-l 


READ A FIELD 


228C 


DD09 


IMZS 


028 




026 


STORE 


BR IF Pi BIT 1=1 


BR IF NO A FIELD WM 


228E 


3045 


IMZS 


029 


AFLQWM 






Pl=Pi$K40 


REMOVE WM 


2290 


70 3 A 


IMZS 


030 








STB Pi V-l 


STORE DATA 


2292 


5224 


IMZS 


031 


INC 






v=v+i 




2294 


C145 


IMZS 


032 


TEST 


054 


END 


BR IF Gl BIT4=i 


BR IF END OF RVC SCAN 


2296 


5F30 


IMZS 


033 








ROB HI V 


READ B FIELD 


2298 


DFiF 


IMZS 


034 




037 


NoewM 


BR IF HI BIT 1=1 


BR IF NO B FIELD WM 


229A 


3F45 


IMZS 


035 








Hl=Hi$K40 


REMOVE WM BIT 


229C 


3 583 


IMZS 


036 








Gi=Gl$K08 


SET B END FLAG 


229E 


OFFO 


IMZS 


037 


NOBWM 






Z=HlnKFO 


TEST CHARACTER 


22A0 


C4C7 


IMZS 


038 




055 


ZERO 


BR IF Z=0 


BR IF CHAR WAS A 


22A2 


ECCi 


IMZS 


039 




059 


SIGDGT 


BR IF HZ=0 


BR IF CHAR WAS 1-9 


22A4 


CF3B 


IMZS 


040 




051 


SETSUP 


BR IF HI BITO=I 


BR IF NOT A SPECIAL CHAR 


22A6 


FCAC 


IMZS 


041 




044 


TSTFAP 


BR IF LZNZ 


BR IF CHAR NOT £ - OR BLANK 


22 A 8 


CF5D 


IMZS 


042 








Z=H1QK50 


TEST CHAR 


22AA 


EOBB 


IMZS 


043 




051 


SETSUP 


BR IF HZ=0 


BR IF CHAR IS A € 


22AC 


GFBB 


IMZS 


044 


TSTFAP 






Z=HinK08 


TEST CHAR 


22 AE 


FOBC 


IMZS 


045 




052 


NOT APS 


BR IF LZNZ 


BR IF NOT A , 


22B0 


GF6D 


IMZS 


046 








Z=HlaK60 


TEST CHAR 


2282 


F238 


IMZS 


047 




050 


PU 


BR IF DO BIT 7=0 


BR IF NO PI FLAG 


22B4 


OF 40 


IMZS 


048 








Z=HlaK40 


TEST CHAR 


2286 


A2B8 


IMZS 


049 




050 


PI1 


BR 




22B8 


ECG7 


IMZS 


050 


PI1 


055 


ZERO 


BR IF HZ=0 


BR IF , 


2 2BA 


3515 


IMZS 


051 


SET SUP 






Gi=Gi$Kl0 


SET ZERO SUPPRESS ON 


22BC 


7F38 


IMZS 


052 


NO TAPS 






STB Hi V*l 


PUT 8 FLD CHAR BACK 


22BE 


A294 


IMZS 


053 




032 


TEST 


BR 




22C4 


8D7G 


IMZS 


054 


END 


ICYC 037 


HISTRT 


BR 


RETURN TO I CYCLES 


22C6 


F53C 


IMZS 


055 


ZERO 


052 


NOTAPS 


BR IF Gl BIT3=0 


BR IF ZERO SUPP IS OFF 


22C8 


2F45 


IMZS 


056 








H1=0$K40 


FORCE BLANK CHAR 


22CA 


7F38 


IMZS 


057 








STB HI V*l 


STORE DATA 


22CC 


A294 


IMZS 


058 




032 


TEST 


BR 




22C0 


1515 


IMZS 


059 


SIGDGT 






G1=G1*-K10 


RESET ZERO SUPPRESS 


22C2 


A2BC 


IMZS 


060 




052 


NOTAPS 


BR 
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********************************** 

* CROSS REFERENCE FOR CSECT IMZS * 
********************** ************ 



IMZS 


004 


ICYC 


245 






IMZS 


024 


IMZS 


021 






imzs 


026 


IMZS 


028 






IMZS 


027 


IMZS 


025 






IMZS 


031 


IMZS 


024 






IMZS 


032 


IMZS 


053 


IMZS 


058 


IMZS 


037 


IMZS 


034 






IMZS 


044 


IMZS 


041 






IMZS 


050 


IMZS 


047 


IMZS 


049 


IMZS 


051 


IMZS 


040 


IMZS 


04 3 


IMZS 


052 


IMZS 


045 


IMZS 


055 IMZS 060 


IMZS 


054 


IMZS 


032 






IMZS 


055 


IMZS 


038 


IMZS 


050 


IMZS 


059 


IMZS 


039 
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INDX DESCRIPTIVE TEXT 



ENTRY POINT 



INDXIN 



THIS ROUTINE IS ENTERED ONLY FROM I-CYCLES. THIS IS 
THE EXCLUSIVE ENTRY POINT* IT IS ENTERED FROM 
A- AND/OR B-ADORESS. 



OBJECTIVES 

1. SELECT THE CORRECT INDEX REGISTER. 

2. GENERATE AN ADDRESS CONSISTING OF TOTAL OF BASE ADDRESS , 
INDEX REGISTER VALUE, AND THE BIAS FACTOR, 

3. RETURN TO I-CYCLES AND READ REMAINDER OF INSTRUCTION. 



ADDR 



0718 
071A 
071C 
071E 
0720 
0722 
0724 
0726 
0728 
072A 
072C 
07 2E 
0730 
0732 
0734 
0736 
0738 
073A 
073C 
073E 
0740 
0742 
0744 
0746 
0748 
074A 
074C 
074E 
0750 
0752 
0754 
0756 
0758 



WORD SEQUENCE NO. 



1002 
CD23 
57C0 
1783 
8726 
5079 
17FD 
CF31 
5FD9 
5FC0 
1F83 
8732 
1FFD 
5F43 
5FFB 
5AE0 
5098 
DD43 
6886 
5F98 
8CC6 
C04B 
5DC0 
1D83 
8 74C 
1DFD 
4D4D 
5DFB 
5DBA 
3D45 
CD5D 
5DC0 
1D83 



INOX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INOX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 
INDX 



001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
02 7 
02 8 
02 9 
030 
031 
032 
033 
034 
035 



LABEL 

T 

ASEQ 
INDXIN 



HDINVT 
TENS 



NOSPEC 
SAVEH1 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



1401 COMPATIBILITY INDEXING ROUTINE 12/19/66 R. C* HUANG 



AL07=18 



NGUNWM 



ZONINV 
TENUNT 



008 HDINVT 



010 TENS 



015 NOSPEC 



016 SAVEH1 



024 NOUNWM 



ICYC 127 TENZON 
028 ZONINV 



029 TENUNT 



037 NONSP 



RST S K=90 

BR IF PI BIT0=1 

RDB Dl AS,P 

Di=Dl*-K08 

BR 

D1=P1 

D1=D1QKF0 

BR IF HI BIT0=l 

Pi=Hi 

RDB HI AS,P 

Hi=Hl*-K08 

BR 

Hl=HlOKF0 

G0=H1XH 

H1=HIH 

RDH T AS,H 

RDB PI 1*1 

BR IF PI BIT 1=1 

1=1-2 

RDB HI !♦! 

BR 

BR IF PI BIT0=1 

RDB PI AStP 

Pl=Pl*-K08 

BR 

Pl=PlaKFO 

G0=P1L*G0H 

H1=P1H 

RDB PI T-l 

Pi=Pl$K40 

BR IF PI BIT0=l 

RDB PI AS,P 

P1=P1*-K08 



INSURE SO AND S3 OFF 

BR IF NO SPECIAL CHAR 

READ HUNO BCD CHAR FROM TABLE 

SP CHAR-STRIP BIT 4-WEIGHT 8 

PUT HUND IN Dl 

INVERT HUND ZONES 

BR IF TENS NOT A SPECIAL CHAR 

SP CHAR-PUT TENS IN PI FOR TLU 

READ TENS BCD 

STRIP BIT 4- WEIGHT 8 

INVERT ZONES 

SAVE TENS NUMERIC IN GOH 

SET HI FOR TLU 

READ INDEX REGISTER ADDRESS 

READ UNIT'S 

BR IF NO UNIT'S WM 

UNIT'S WM, 13 OR I6-BACKDATE 

REREAD TEN'S 

DO NOT INDEX-RETURN TO I-CYCLE 

BR IF UNITS NOT SP CHAR 

READ UNITS BCD 

STRIP 4-WEIGHT 8 



G0=TENS*UNITS 
UNIT'S ZONE IN HI HI 
READ INDEX REG UNITS 
OR IN WM BIT 
BR IF NOT SP CHAR 
READ UNITS BCD 
STRIP 4 



AODR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



075A 


875E 


1NDX 


036 




07 5C 


LDFD 


INDX 


03 7 


NONSP 


075E 


6F03 


INDX 


038 


UNITS 


0760 


50BA 


INDX 


039 




07 62 


CD6B 


INOX 


040 




0764 


3D45 


INOX 


041 




0766 


5DC0 


INDX 


042 




0768 


1D83 


INOX 


043 




076A 


5BB0 


INDX 


044 


HUNDEO 


07 6G 


5FAB 


INOX 


045 




07 6 E 


40F3 


INDX 


046 




0770 


74FF 


INOX 


047 




0772 


5B09 


INOX 


048 




0774 


3D45 


INDX 


049 




07 76 


C07F 


INOX 


050 




0778 


50C0 


INDX 


051 




077A 


1083 


INDX 


052 




07 7C 


8780 


INOX 


053 




077E 


1DFD 


INOX 


054 


HONOSP 


0780 


?70F 


INOX 


055 


ADDHUN 


0782 


0708 


INDX 


056 




0784 


2A10 


INOX 


057 




0786 


1745 


INOX 


058 




0788 


54F5 


INOX 


059 


NOZOCA 


078A 


5FE0 


INDX 


060 




7 8C 


64FF 


INOX 


061 




07 8£ 


5AF9 


INOX 


062 




0790 


EF2D 


INOX 


063 




0792 


20C7 


INOX 


064 




0794 


FF1E 


INOX 


065 




0796 


2DFB 


INDX 


066 


UNITA 


0798 


24A0 


INOX 


067 




079A 


F49E 


INOX 


068 




079C 


2D1B 


INDX 


069 




079E 


17FD 


INOX 


070 


COMBIN 


07A0 


5 7F1 


INOX 


071 




07A2 


6FFF 


INOX 


072 




07A4 


5AE0 


INOX 


073 




7A6 


6B4B 


INDX 


074 




07A8 


1645 


INDX 


075 




0?AA 


8C8A 


INDX 


076 




07AC 


3DE9 


INDX 


0?7 


UNITB 


07AE 


2440 


INOX 


078 




07B0 


FF17 


INOX 


079 




07B2 


879E 


INDX 


080 








INOX 


081 


AENO 



038 UNITS 



044 HUNOEO 



054 HONOSP 



055 ADOHUN 



059 NOZOCA 



077 UNITB 
070 CGMBIN 

070 COMBIN 



ICYC 173 SETTO 



066 UNITA 
070 COMBIN 



BR 
Pl=PlaKFO 

H1=H1*P1 

ROB Pi T-l 

BR IF PI BITO=i 

P1=P1$K40 

ROB PI AStP 

P1=P1*-KG8 

ROB TIT 

T0=H1H 

H1-P1XH+H1L 

G0C-G03H1+C 

P1=T1 

Pl=Pl$K40 

BR IF PI BIT0=i 

ROB Pi AS,P 

P1=P1*-K08 



CL0AD=*E40, EC LEVEL=1282U 

COMMENTS 



INVERT UNITS ZONE 

AOO UNIT'S ZONE OF 2 FIELDS 

REAO INDEX REG TENS 

BR IF TENS NOT A SP CHAR 

OR IN WM BIT 

READS TENS BCO 

STRIP 4 

READ INDEX REG HUNDREDS 
♦♦TOTAL UNIT'S ZONES NOW IN TO 
♦♦COMBINE INDEX TEN'S £ UNIT 
♦♦ADD THE TWO TENS' £ UNITS' 
♦♦PUT HUNDRED'S IN P 1 TO BAL 

OR IN WM BIT 

BR IF HUNO NOT A SP CHAR 

READ HUNDREOS BCD 

STRIP 4 
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BR 

Pi^PlQKFO INVERT HUNO ZONES 

D10=Di3Pl«-C ADD HUNDREOS 

BR IF 01 BIT 1=0 ♦♦BR IF NO HUNO ZONECARRY 

T0=T0*K10 ♦♦ZONE CARRYtAOO 1 TO UNIT ZONE 

D1=D1^-K40 STRIP 1 SIT OF HUNO. 

Hl^GOXL ♦♦SET TEN'S IN HI TO ADDR AUX ST 

RDB Hi AS,H ♦♦X»LAT£ TEN'S FROM TABLE 

G0C=G0L+HH-C ♦♦ADD TEN'S & UNIT'S IN HEX 

H1=T0 ♦♦MOVE UNIT ZONE TO Hi TO BR 



BR IF HI BIT 2=1 

Pi=0 

BR IF Hi BIT3=0 

P1=P1+K0F 

GG=G0*KA0 

BR IF AC=0 

Pi=PH-K01 

01=DinKF0 

H1=D1X 

H1C=H1L+HH-C 

RDH T AS f H 

T1C=T1*G0 

D0=D0^-K40 

BR 

P1*0-KEO 

G0=G0+K40 

BR IF Hi BIT3=1 

BR 



BR IF UNIT'S B ZONE 
NO B ZONEfZERQ OUT PI 
BR IF NO UNITS A ZONE 

A ZONE, ADD OF A HEX- 4000 DEC 
ADD IT TQ TEN-UNITS' 
BR IF NO CARRY 
CARRY, ADD ONE MORE 
INVERT HUNDREDS'ZONES 
CROSS HUNDRED'S 
SHIFT LO BY 1 BIT 

♦♦X'LATE HUND+BIAS FROM AUX ST 
♦♦ADD TEN-UNITS' TO HUND & BIAS 

♦♦RESET INVALID ADOR DIGITSTAT 
INDEXING COMPLETED 
UNIT'S B ZONE-SET P1=1F 
B ZONE, A001F40 HEX-8000 OEC 
BR IF UNIT'S A ZONE 



INDX 003 

INDX 008 

INDX 010 

INDX 015 



ICYC 123 

INOX 004 

INDX 007 

INDX 010 



ICYC 124 ICYC 125 



********************************** 

♦ CROSS REFERENCE FOR CSECT INOX ♦ 
********************************** 

ICYC 126 



INDX 


016 


INDX 


014 


INUX 


024 


INDX 


020 


INDX 


028 


INDX 


024 


INDX 


029 


INDX 


027 


IIMOX 


037 


INDX 


033 


INDX 


038 


INDX 


036 


INDX 


044 


INDX 


040 


INDX 


054 


INDX 


050 


INDX 


055 


INOX 


053 


INDX 


059 


INDX 


056 


INDX 


066 


INOX 


079 


INDX 


070 


INDX 


065 


INDX 


077 


INDX 


063 
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INDX 068 INOX 080 
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INIZ DESCRIPTIVE TEXT 



OBJECTIVES 

INITIALIZE BIAS CONSTANT INGRMALLYJ DURING ICPL ROUTINE- 
EXAMINE OVERLAY CARD* ANALYZE COLUMNS THAT ARE NOT BLANK. 
ADJUST FOR BIAS FACTOR AND STORE NEW VALUE IN THE APPROP- 
RIATE AUXILIARY STORAGE LOCATION* 

SET STORAGE PROTECT KEYS TO ZERO. 

ON RESET OPERATIONS, THE FILE TABLES THAT ARE LOCATED BELOW 



THE 1400-ZERO EQUIVALENT POSITION, ARE RESTORED. 

ENTRY POINTS 

BEGIN 

NORMAL ENTRY POINT FROM BDIA ROUTINE DURING CON- 
TROL STORAGE LOAD. 



FILETB 



ENTRY POINT USED DURING A RESET OPERATION. 



ADDR 


WORD 


SEQUENCE NO 






INIZ 


001 


2AFA 


2D45 


INIZ 


002 


2AFC 


2A07 


INIZ 


003 


2AF£ 


3B89 


INIZ 


004 


2800 


2C75 


INIZ 


008 


2302 


5AA4 


INIZ 


010 


2BC4 


CD8D 


INIZ 


Oil 


2BQ6 


C493 


INIZ 


012 


2B08 


5FC8 


INIZ 


013 


2B0A 


GF4D 


INIZ 


014 


23GC 


C481 


INIZ 


015 


2B0E 


7FAQ 


INIZ 


016 


2B10 


ABOO 


INIZ 


017 


2B12 


5002 


INIZ 


018 


2B14 


5BA2 


INIZ 


020 


2B16 


6B05 


INIZ 


021 


2B18 


?BA2 


INIZ 


022 


28 1A 


2C25 


INIZ 


029 


23 1C 


2D 15 


INIZ 


030 


2B1E 


7012 


INIZ 


031 


2B20 


58C0 


INIZ 


032 


2B22 


691B 


INIZ 


033 


262** 


68CD 


INIZ 


034 


2B26 


78C8 


INIZ 


035 


2B28 


ODBD 


INIZ 


036 


28 2 A 


C4A0 


INIZ 


037 


2B2C 


26C7 


INIZ 


038 


232E 


81E6 


INIZ 


039 


2830 


2645 


INIZ 


040 


2B32 


2745 


INIZ 


041 


2334 


5DA2 


INIZ 


042 


2B36 


7618 


INIZ 


043 



LABEL 



BEGIN 



NEXT 



NEXTSEQ NEXTLABEL STATEMENT 



018 DONE 

008 NEXT 
008 NEXT 



DONE 



KEEPON 



032 KEEPON 
IRST 109 STRPRO 



BACK 



INITIALIZE BIAS 
P1=0$K40 
T0=0 

Tl=0-K80 
P0=0$K70 
T*T + 1 
Z=PlnK80 
BR IF Z=0 
RDB HI AS,P+1 
Z=HlnK40 
BR IF Z=0 
STB HI AS,T*0 
BR 

RDH U DA, 88 
RDB Tl DA, AC 
T1=T1$UQ 
STB Tl DA, AC 
P0=0$K20 
Pi=0$K10 
STH U 0A,8A 
RDH I AS,P*0 
UC=I1+U1 
IOC«IO*U0*C 
STH I AS,P*2 
Z=PlnKBO 
BR IF ZNZ 
D0=0 
BAL 

D0=0$K40 
D1=0$K40 
RDB PI DA, AC 
STH D U*2 



COMMENTS 

CONSTANT 

SET STARTING ADDRESS 
SELECT MODULE 
START ADDRESS 
LAST MODULE ADDRESS 
ADJUST TO ADDRESS 0080 INITIALLY 
CHECK END OF INITIALIZER 

GET DATA 

CHECK FOR UPDATE 

CONTINUE 

STORE OVERLAY IN MODULE ZERO 

GET NEW BIAS 

GET MAS ASSIGNED HI MEM ADDRESS 

CREATE NEW HI MEM ADDRESS 

STORE NEW VALUE 

DO BIAS INITIALIZATION 

PUT 1400 ADDRESS IN i VIA Ki 



GO SET STACK KEYS TO 
BUILD BLANK AND NO UORDMARK 

GET HI MEMORY ADDRESS 
STORE NO WORDMARK BLANK 



ADDR 

2B38 
2B3A 
2B3C 
2150 
2152 
2154 
2156 
2X58 
215A 
215C 
2I5E 
2160 
2162 
2164 
2166 
2168 
216A 
216C 
2166 
2170 
2172 
2174 



WORD SEQUENCE NO. LABEL 



7001 
F4B5 
8240 
5E02 
3E0D 
2FC3 
76F8 
2 728 
07A8 
C4D6 
2707 
2610 
06AD 
E0D6 
F26D 
2613 
F257 
2623 
76F0 
2607 
27G7 
128E 



INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 
INIZ 



INIZ 002 
INIZ 008 
INIZ 018 
INIZ 032 
INIZ 042 
INIZ 047 
INIZ 050 
INIZ 061 



BDIA 0G4 
INIZ 015 
INIZ 012 
INIZ 037 
INIZ 045 
IRST 068 
INIZ 053 
INIZ 058 



044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
57 
058 
059 
060 
061 
062 
063 
064 
065 



INIZ 017 



FILETB 



STORET 



HUND2 



NEXTSEQ NEXTLABEL STATEMENT 

P1=P1-U0+1 
042 BACK BR IF AC* 1 

BOIA 018 START BR 

ROH H DA, 88 

HO=HO-KOO 

H1*0$K0C 

STH H+2 

DI=D1*K02 

Z*D1QK0A 
050 STORET BR IF ZNZ 

D1*0 

00=: 00 +K 10 

Z*DOnKAO 
050 STORET BR IF HZNZ 

061 HUN02 BR IF 007*1 

DO*0$KOl 
050 STORET 8R IF 007*1 

D0=O$K02 

STH H 

00=0 

01*0 

RTN 

* CROSS REFERENCE FOR CSECT INIZ * 



CLGAD**E40, EC LEVEL*128211 
COMMENTS 

TRIAL SUBTRACT 

HAVENOT OVERSTEPPED MEMORY YET 

GET BIAS CONSTANT 

GO 256 BYTES BELOW FOR TABLE 
ADJUST TO START ADDRESS 
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UNITS POSITION 
UNITS OVERFLOW 
UNITS TEN 



INCREMENT 

CHECK FOR 

BR IF NOT 

MACK UNITS ZERO 

INCREMENT TENS 

CHECK FOR TENS OVERFLOW 

BR IF TENS NOT TEN 

HUNDREDS CARRY 

MAKE HUNDREDS 1 

MACH HUNDREDS 2 



INIZ 057 INIZ 060 
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INRU DESCRIPTIVE TEXT 



OBJECTIVES 



ENTRY POINTS 



HANDLE NATIVE I/O REQUESTS, EXTERNAL I NTERRUPT lONSt CHAN- 
NEL INTERRUPTIONS, SET IC , INSTRUCTION STEP, AND SOFT STOP. 
THESE CONDITIONS ACTIVATE A HARDWARE REQUEST LINE. 



CHECK CONDITIONS, DETERMINE WHETHER REMOTE RESTART, SET IC, 
CONSOLE INTERRUPT, ETC. , AND GO TO APPROPRIATE ROUTINE FOR 
EXECUTION. 



ENTER 



STOPCK 



GOBACK 



ENTER FROM ICYC WHEN AN EXCEPTIONAL CONDITION 
EXISTS FROM THE PREVIOUS OPERATION. 



ENTER HERE FOR HANDLING THE VARIOUS STOP CONDIT- 
IONS. 



ENTER FROM READ REQUEST ROUTINE WHEN VARIOUS 
INTERRUPT CONDITIONS ARE PENDING. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 







INRU 


001 


T 






INRU 


002 


* 






INRU 


003 


* 






INRU 


004 


* 






INRU 


005 


* 






INRU 


006 


* 






INRU 


007 


* 






INRU 


008 


* 


16 82 


2206 


INRU 


009 


ENTER 


1684 


D416 


INRU 


010 




1686 


5EFF 


INRU 


Oil 




1688 


EF17 


INRU 


012 




16 8 A 


0216 


INRU 


013 




168C 


3600 


INRU 


014 




168E 


DB97 


INRU 


015 




1690 


5F90 


INRU 


016 




1692 


0F59 


INRU 


017 




1694 


F4F2 


INRU 


018 




1696 


0216 


INRU 


019 


INTRPT 


1698 


2DC7 


INRU 


020 




169A 


7CF2 


INRU 


021 




169C 


OOAO 


INRU 


022 




169E 


3600 


INRU 


023 




16A0 


5A4F 


INRU 


024 




16A2 


EFE8 


INRU 


02 5 




16A4 


FFE2 


INRU 


026 




16A6 


CBFD 


INRU 


027 




16A8 


0BE1 


INRU 


028 




16AA 


CFDE 


INRU 


029 




16AC 


5EF2 


INRU 


030 


STOPCK 



1400 COMP.SOFT STOP 
THIS ROUTINI PERFORMS THE FOLLOWING 
1. NATIVE I/O REQUESTS 
2. EXTERNAL INTERRUPT 
3. CHANNEL INTERRUPT 
4. SET I C 

5. INSTRUCTION STEP 
6. SOFT STOP 

SET MMSK K=30 
019 INTRPT BR IF GO BIT 1=0 

Hi^RPS 
019 INTRPT BR IF H12=1 

RST MMSK K=3i 
SET BC K=80 
019 INTRPT BR IF BB5=1 

ROB HI I 
Z=H1+K50 
049 ICYRTN BR IF AC=0 

RST MMSK K=31 

P1=0 

STH P DA, BE 

RST S K=0A 

SET BC K=80 

GO=TIM 



,1/0, CONSOLE REQ. 
FUNCTIONS 



R. TAYLOR 



056 


RETURN 


BR IF 


BB2=0 


059 


CONSLE 


BR IF 


BB3=0 


042 


SETIC 


BR IF 


BB4=1 


058 


STEPDY 


BR IF 


BB5=i 


057 


STEPOZ 


BR IF 


BB0=0 






RDH H 


DA, BE 



SET READ MODE £ ZONE 

BR IF READER NOT ACTIVE 

PUT RPS IN Hi FOR BRANCHING 

BR IF NOT 6 MILL I- SEC TIME-OUT 

SET CPU ZONE 6 MODE 

SET INST STEP LATCH-IF INST STEP 

BR TO INTERRUPT IF INST STEP 

READ NEXT OP CODE 

TEST FOR I/O OP 

SET CPU ZONE a MODE 

ZERO OUT STOP CODE 

FROM I-CYCLES,SET STOPCODE TO 00 

RST S4,S6 DISPLAY STATS 

ENA8LE INSTRUCTION STEP LATCH 

RESET TIMER IF ON 

CHANNEL INTRPT, ABORT, BACKUP I* 

CONSOLE INTRPT 

SET INSTRUCTION COUNTER INTRPT 

INST STEP TO BE PERFORMED 

STOP CONDITION SENSED 

READ OUT STOPCODE, GOOD IF S4=l 



ADDR 



WORD SEQUENCE NO* LABEL 



NEXTSEQ NEXTLABEL STATEMENT 
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16AE 
16B0 
15B2 
lbB4 
16B6 
16B8 
16BA 
16BC 
16BE 
16C0 
16FA 
16FC 
16FE 
If 00 
16EA 
16EC 
16EE 
16F0 
I6f2 
16F4 
16F6 
16F8 
16E4 
16E6 

16E8 
16DE 
16E0 
16E2 
16C2 
16C4 
16C6 
16C8 
16CA 
16CC 
IfcCE 
1600 
1602 
1604 
1606 
1608 
160A 
16 DC 



2CC7 
DFC3 
ElAO 
C1FA 
OFFB 
FOFA 
0004 
4FFF 
EFE8 
96AC 
CBEA 
50EF 
5 IFF 
A378 
FFE2 
OBAO 
CFAC 
C1F5 
8082 
OEFF 
C4E4 
9E72 
F0F2 
FE73 

#990 
A 044 
ABC6 
9FDE 
3404 
EAC8 
820A 
EECO 
E1DB 
3406 
EBD3 
E9D4 
9A60 
3482 
FAOA 
9C14 
3400 
96AC 



INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 
INRU 



031 
032 
033 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
59 
060 
061 
062 
063 
064 
065 
066 
067 
069 
077 
078 
079 
080 
081 



060 
030 
041 



NATREQ 
STOPCK 
BYPASS 



BYPASS 
SETIC 



AROUND 



ICYRTN 
TE STRT 



CHEC K 



RETURN 
STEPOZ 
STEPDY 

CGNSLE 
NATREQ 



CKS6 
GONE 



REQEST 
PRINTC 



GOB AC K 



041 BYPASS 



056 

030 
045 



ISIC 008 
059 
030 
030 
050 

ICYC 041 

053 
TUBR 002 

049 
049 

MQQQ 045 
IOIS 003 
ISTP 002 
INTP 006 

063 

JTYP 055 

065 

080 

069 

077 

LREQ 007 

080 
MPRT 265 



RETURN 
STOPCK 

AROUND 



SETIC 

CONSLE 
STOPCK 
STOPCK 
TESTRT 
ICYC 

CHECK 
UNCOBR 
ICYRTN 
ICYRTN 



XXXXXX 
STOPPP 
INSTST 
LABEL 

CKS6 

REQ 

GONE 

GOBACK 

REQEST 
PRINTC 
START 

GOBACK 
SOSTRE 



P0=0 

BR IF 881=1 

BR IF S6=l 

BR IF S4=0 

Z=HU3K0F 

BR IF LZNZ 

RST S-2 

MW=Hi 

BR IF BB2-0 

BR 

BR IF BB4=0 

HO=SWAB 

Hl=SWCO 

BR 



IF 
IF 
IF 
IF 



BB3=0 
B85=I 
B80=0 
S4=l 



BR 

BR 

BR 

BR 

BR 

Z=HOaKFF 

BR IF ZNZ 

BR 

BR 

BR 



IF LZNZ 
IF HO 3=1 



INSURE P0=0 FOR 2 CYCLES RETURN 

NATIVE REQUEST IN SMALLER LOOP 

HONOR TYPEWRITER, WAIT UNTIL DONE 

BYPASS SIXTEEN CHARACTER TEST 

CHECK FOR REMOTE RESTART 

IS NOT REMOTE RESTART 

RESET S2 IF PREVIOUSLY ON 

SET WIAT LATCH, ENABLE MACH.CHECK 

CHANNEL I NTRPT, ABORT, BACKUP I* 

STAY IN ti WO LOOP,DEVICE CLEARS 

BRANCH IF NOT SET IC 

READ SWITCHES 

READ SWITCHES 

GO TYPE OUT NEW INSTRUCTION ADDR 

BRANCH IF CONSOLE INTERRUPT 

WAIT FOR START KEY 

LOOP FOR START KEY 

BRANCH TO TEST 16 CHAR. MESSAGES 

EXECUTE I CYCLES, NO I NTRPT TEST 

MASK FOR HALT AND BRANCH 

TEST INTERVENTION RETURNS 

DO UNCONDITIONAL BRANCH 

NOT INTERVENTION STOP,NEXT INSTR 

DF A/D STOP, GO TO NEXT INSTR* 

8F,4FC42),6F-PRINTER,CHAN INT. 
INSTRUCTION COUNTER IS BACKED UP 
STOP CONDITION DISPLAY 
INSTRUCTION STEP DISPLAY 
DO CONSOLE INTERRUPT 
SET 1052 MODE 
NO 1052 REQUEST UP 
SERVICE 1052 REQUEST 
CLEAR OTHER NATIVE REQUESTS 

GO WAIT 
SET 2540 MODE 

BR IF PUNCH REQUEST IS ACTIVE 
BRANCH IF NOT READER 



INRU 009 

INRU 019 

INRU 030 

INRU 041 

INRU 042 

INRU 045 

INRU 049 



ICYC 036 

INRU 010 
INRU 033 
INRU 034 
INRU 027 
INRU 041 
INRU 018 



INRU 012 INRU 
INRU 040 INRU 
INRU 036 



015 
046 



BR 
BR 
BR 
BR 

SET MODE K=AO 
BR IF TT6=0 
BR 

BR IF TT2=1 
BR IF S6=l 
SET MODE K=BO 
BR IF PS6=l 
BR IF RS6=0 
BR 

SET MODE K=98 
BR IF PRS7=0 
BR 

SET MODE K=80 
BR 
********************************** 

* CROSS REFERENCE FOR CSECT INRU * 
********************************** 



INRU 047 INRU 081 JTYP 050 JTYP 053 JTYP 084 JTYP 101 MPRT 318 



030 STOPCK 



8R IF NOT 1403 
GO TO NAT 1403 
RESTORE CPU MODE 
GO BACK TO WAIT 



INRU 053 INRU 054 
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********************************** 

* CROSS REFERENCE FOR CSECT INRU * 
********************************** 



INRU 050 


INRU 


048 






INRU 053 


INRU 


51 






INRU 056 


INRU 


025 


INRU 


039 


INRU 057 


INRU 


029 






INRU 058 


INRU 


028 






INRU 059 


INRU 


026 


INRU 


045 


INRU 060 


INRU 


032 






INRU 063 


INRU 


061 






INRU 065 


INRU 


063 






INRU 069 


INRU 


066 






INRU 077 


INRU 


067 






INRU 080 


INRU 


064 


INRU 


078 LREQ 023 
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INTP OESCRIPTIVE TEXT 



OBJECTIVES 



SET OR RESET ANY OF THE SENSE SWITCHES IB-G), OR ANY OF THE 
SWITCH TYPE FUNCTIONS SUCH AS STERLING FEATURE, 2540/1442 
EMULATION, ETC. 

SET TAPE ASSIGNMENTS AND TAPE TRACK AND DENSITY. 



ENTRY POINTS 
LABEL 

CRTN 



INITIAL ENTRY FROM THE INTERRUPT ROUTINE. 



RE-ENTRY POINT AFTER FUNCTION CHARACTER IS 
TRANSLATED. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 






INTP 


001 


T 


1400 


CGMP SENSE SW, TAPE DENSITY START RESET INITIALIZE R M TAYLOR 






INTP 


002 


* 




THIS PREFACE INTHE INTERRUPT ROUTINE SHARES REGISTERS IN 






INTP 


003 


* 




THE CPU 


ZONE. PREG IS DEPENDENT TO THIS ROUTINE WHILE H AND 






INTP 


004 


* 




T ARE DEPENDENT TO TRANS 


AND TYPE ROUTINES IN TYYP. DO STATS 






INTP 


005 


* 




5 ANO 7 


CONTROL COMMUNICATIONS TO AND FROM TYYP 


1FDE 


3404 


INTP 


006 


LABEL 






SET MODE K=AO 




1FEG 


3F22 


INTP 


007 








SET TA K=92 




1FE2 


16F3 


INTP 


008 








DO=DO*-KOF 


RST LO 4 BITS 


1FE4 


2080 


INTP 


009 








SET S4 




1FE6 


3643 


INTP 


010 








D0=D0$K04 


TURN ON BITS 


1FE8 


1040 


INTP 


Oil 








RST S K=84 


INSURE S5 AND SO ARE OFF 


IFEA 


A416 


INTP 


012 




JTYP 027 


STORE 


BR 


WAIT FOR REQUEST 






INTP 


013 


*: 




** ENTRY 


AFTER TRANSLATION 


OF CHARACTER 


2494 


F239 


INTP 


014 


CRTN 


058 


OKFRST 


BR IF DO Bir7*l 


SERVICED 1ST CHAR 


2496 


3613 


INTP 


015 








DO*DO$KOi 


TURN ON DO 7 


2498 


2EA5 


INTP 


016 








HO=0$KA0 


BUILD MASK 


249A 


3E13 


INTP 


017 








H0=H01K0i 




249C 


6EF1 


INTP 


018 








HO-HOnHl 


ELIMINATE SET OF SW A, MASK FOR T 


249E 


EGAS 


INTP 


019 




050 


OKSOFR 


BR IF HZ=0 


OK SO FAR 


24A0 


F0A9 


INTP 


020 




040 


ERROR 


BR IF LZ=0 


NOT VALID 


24A2 


2E77 


INTP 


025 








H0*0*K77 




24A4 


6EF9 


INTP 


026 








H0O=H0+Hl*l 


ELIMINATES CHAR, FROM Q3 ,Q2 OV 87 


24A6 


F480 


INTP 


02 7 




054 


SSSET 


BR IF AC=0 


ALTDYE CLEANS UP OTHERS! A2 ,A30K) 


24A8 


8370 


INTP 


040 


ERROR 


JTYP 477 


ALT DYE 


BR 




24AA 


0F3B 


INTP 


050 


OKSOFR 






Z-H1OK03 


COMPLETE TEST FOR T 


24AC 


F0A8 


INTP 


052 




040 


ERROR 


BR IF LZNZ 


NOT A T 


24AE 


3623 


INTP 


053 


TAPE ST 






D0=D0$K02 


SET INDICATOR FOR TAPE 


2460 


5FA3 


INTP 


054 


SSSET 






T0=H1XH 


MEANINGFUL FOR SS SETTINGS ONLY 


24B2 


4FFF 


INTP 


055 


BUSSIT 






TE^Hl 


BUSS OUT &-G,T,OR S IF STERLING 


24B4 


7AE2 


INTP 


056 


BACKAG 






STH T DA,BC 


TEMPORARY STORAGE 


2486 


A416 


INTP 


057 




JTYP 027 


STORE 


BR 




24B8 


5AE2 


INTP 


058 


OKFRST 






RDH T OA, BC 


TEMPORARY STORAGE 


24BA 


OFFD 


INTP 


064 








Z«HlaKF-0- 




24BC 


E0A8 


INTP 


065 




040 


ERROR 


BR IF HZNZ 




24BE 


E24S 


INTP 


066 




089 


TAPECH 


BR IF DO BIT6sL 


TAPE DENSITY SET 



AD OR 


WORO 


SEQUENCE NO. 


LABEL 


24C0 


GFE1 


INTP 


067 




24C2 


F4A9 


INTP 


068 




24C4 


4FFF 


INTP 


069 




24C6 


4FAD 


INTP 


087 


NORMAL 


24C8 


887A 


INTP 


088 




24CA 


C58D 


INTP 


089 


TAPECH 


24CC 


0181 


INTP 


090 




24CE 


F0A9 


INTP 


091 




2400 


GF91 


INTP 


092 




2402 


F4A9 


INTP 


093 




2404 


4FFF 


INTP 


094 




2406 


5FA3 


INTP 


095 




2408 


2040 


INTP 


096 




240A 


A4B4 


INTP 


09? 




2480 


3000 


INTP 


098 


DUCE 


2482 


0FA1 


INTP 


099 




2484 


F4A9 


INTP 


100 




2486 


4FFF 


INTP 


101 




2488 


4FAD 


INTP 


102 




248A 


A4B4 


INTP 


103 




248C 


CF81 


INTP 


104 


TRAY 


2486 


F4A9 


INTP 


105 




2490 


4FFF 


INTP 


106 




2492 


AOFC 


INTP 


107 








INTP 


108 


* 


08 ?A 


5E82 


INTP 


109 


DOSSW 


08 7C 


4A65 


INTP 


110 




087E 


2F23 


INTP 


111 




0880 


9245 


INTP 


112 




0A44 


6FF3 


INTP 


116 


SSBY 2 


0A46 


6FF3 


INTP 


117 


SSBY 3 


0A48 


6FF3 


INTP 


118 


SSBY 4 


0A4A 


6FF3 


INTP 


119 


SSBY 5 


0A4C 


6FF3 


INTP 


12 


SSBY 6 


0A4E 


0A9O 


INTP 


121 


SSBY 7 


0A50 


FOOT 


INTP 


128 




0A52 


6FE5 


INTP 


129 




0A54 


8A5A 


INTP 


130 




0A56 


1FFF 


INTP 


131 


RSTSW 


0A58 


6FET 


INTP 


132 




0A5A 


7F82 


INTP 


138 


STORBT 


0A5C 


1F13 


INTP 


140 




QA5E 


5FB9 


INTP 


141 


EXSTER 


0A60 


8E82 


INTP 


142 




20FC 


2C05 


INTP 


150 


TAPEEX 


20FE 


5AE3 


INTP 


151 




2E00 


E084 


INTP 


152 




2E02 


3E13 


INTP 


153 




2E04 


5AD5 


INTP 


154 


NOTO 


2E06 


3085 


INTP 


155 




2E08 


7CE2 


INTP 


156 




2E0A 


5BC0 


INTP 


157 




2E0C 


0E40 


INTP 


158 





NEXTSEQ NEXTLA8EL STATEMENT 



CL0A0**E40 f 
COMMENTS 
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040 ERROR 



109 
104 
098 
040 



056 
040 
150 



131 
138 



DOSSW 
TRAY 
DUCE 
ERROR 



040 ERROR 



056 BACKAG 



040 ERROR 



BACKAG 

ERROR 

TAPEEX 
EXEC T- 



116 SSBY 



RSTSW 
STORBT 



229 DISPLY 



154 NOTO 



Z=H1*K0E 
BR IF AOl 
TE=H1 

T0=H1L+T0H 

BR 

BR IF SO~i 
BR IF $5=1 
BR IF LZ=0 

Z=Hi*K09 
BR IF AO=l 
T£=H1 
T0=H1XH 
SET $5 
BR 

SET SO 
Z^Hl+KOA 
BR IF AC^i 
TE=Hi 

TG*H1L*T0H 
BR 

Z^H1*K08 
BR IF A0=1 
TE=H1 
BR 
-TOHISYS 0R)»T0L C0$,H1I 
RON H DA, A8 
DO=*TOXL$DOH 
H1=0$K02 
N N=00 BITS567 
H1=H1*H1 
H1=HI«-H1 
H1=H1*HI 
Hl=Hl*Hi 
Hl=Hl*Hl 
Z=T0QK90 
BR IF LZ=0 
Hi=Hi$HO 
BR 

H1=H1QKFF 
H1=H1*H0 
STB HI DA f A8 
H1=H1*-K0i 
T1=H1 
BR 

P0=0$K00 
HQ=TOXH 
BR IF HZNZ 
H0=H0$K01 
Pl^TOXL 
P1=P1$K80 
STH P 0A,BC 
ROB Tl AS,P*0 
Z-H0QK40 



NOT OR 1 ERROR 

BUSS OUT CHARACTER 

2- 7^ SENSE SWITCHES B-G 



ONLY 1 TO 6 ACCEPTABLE 

BUSS OUT 

1ST TAPE CHAR 



0-5 ACCEPTABLE 

BUSS OUT 2ND TAPE 
2ND CHAR FOR TAPE 



ERROR 

BUSS OUT 3R0 

EXECUTE TAPE SET BEFORE EXIT 
1400DRI SS- TOHI SWI *TOL ONOFF 

SS BYTE IN HO 

PREPARE TO SPLIT OUT SWITCHES 
SET UP FOR BIT 7 

ALIGN B TO BIT 1 BY DOUBLING 

ALIGN C TO BIT 2 BY DOUBLING 

ALIGN D TO BIT 3 BY DOUBLING 

ALIGN E TO BIT 4 BY DOUBLING 

ALIGN F TO BIT 5 BY DOUBLING 

CHECK SET OR RESET 

RESET 

OR IN APPROPRIATE BIT 

STORE RESULT 

REVERSE Hi FOR RESET 

AND FOR APPROPRIATE BIT RESET 

STORE NEW SENSE BYTE 

STRIP 7 8IT FOR DISPLAY 

GO STORE STOP MESSAGE 

XO IN HO WHERE X IS DENSITY 0-5 

XI OENSITY IF DENSITY WAS 

SET UP PI TO ADDRESS TAPE BYTE 

ADDRESS BUILT 008X X IS 1-6 

STORE ADDRESS TEMPORARILY 

GET PARTICULAR BYTE 

CK DENSITY 4 ,MEANS DISPLAY ONLY 



AbOR 


WORD 


SEQUENCE NO. 


LABEL 


2EOE 


6092 


INTP 


159 




2E10 


8682 


INTP 


160 




2E12 


4FBD 


INTP 


161 


NOTDY 


2tl4 


2DA3 


INTP 


162 




2616 


3085 


INTP 


163 




2E18 


5FC8 


INTP 


164 




2£1A 


4B6D 


INTP 


165 




2EIC 


8676 


INTP 


166 




0672 


2607 


INTP 


167 


PHASEC 


0E74 


5FC0 


INTP 


168 


PHASE A 


0676 


2A13 


INTP 


169 


MASK 


0E78 


922D 


INTP 


170 




0E20 


6AA3 


INTP 


1?1 


BRK 


QE2 2 


6AA3 


INTP 


172 


BRK 1 


0E24 


6AA3 


INTP 


173 


BRK 2 


0626 


6AA3 


INTP 


174 


BRK 3 


0E28 


6AA3 


INTP 


175 


BRK 4 


0E2A 


6AA3 


INTP 


176 


BRK 5 


0E2C 


6AA3 


INTP 


177 


BRK 6 


0E2E 


0A45 


INTP 


178 


BRK 7 


0E30 


6AF7 


INTP 


179 




0E32 


C4D3 


INTP 


180 








INTP 


181 


* 






INTP 


182 


* 






INTP 


183 


* 






INTP 


184 


* 






INTP 


185 


♦ 






INTP 


186 


* 






INTP 


187 


* 






INTP 


188 


* 






INTP 


189 


* 






INTP 


190 


* 






INTP 


191 


* 






INTP 


192 


♦ 






INTP 


193 


♦ 


0E34 


0673 


INTP 


194 




0636 


FA3C 


INTP 


195 


NINE 


0638 


3BC5 


INTP 


196 


SW12 


0E3A 


86 76 


INTP 


197 




0E3C 


2610 


INTP 


198 


NZERG 


0E3E 


6639 


INTP 


199 




0640 


3643 


INTP 


200 


ALTER9 


0642 


8674 


INTP 


201 




0E44 


FE4A 


INTP 


202 


RE TALT 


0E46 


6FA5 


INTP 


203 




0648 


8646 


INTP 


204 




064A 


1AFF 


INTP 


205 


RST 


0E4C 


6FA7 


INTP 


206 




0646 


7FC0 


INTP 


207 


STPHST 


0E50 


8E38 


INTP 


208 




0E52 


FA7B 


INTP 


209 


SEVEN 


0654 


OEOD 


INTP 


210 




656 


C4B7 


INTP 


211 





NEXTSEQ NEXTLABEL STAT6MENT 

161 NOTDY BR IF HZNZ 

229 DISPLY BR 

T1 = H1L*T1H 

P1=0$K0A 

P1=P1$KB0 

RDB HI AS,P*1 

D0=T1L«-D0H 
169 MASK BR 

H0=0 

RD8 HI AS,P«-0 

TO=0$KOl 
171 BRK N N=DO BITS567 

TO=TO«-TO 

rO=TO+TO 

T0=T0*-T0 

TO=TO*TO 

TO^TO+TO 

TO=TO+TO 

TO=TO+TO 
202 RET ALT BR IF HO BIT5=1 

T0=TG*H1 
209 SEVEN BR IF Z=0 

STA TUS OF HO 

ON VARIOUS ENTRIES 

NOTE**** WHEN BRANCH 

IS SUCCESSFUL 
ALPHAS £ ALTER 

9TRACK DRIVES 
NOTE**** WHEN BRANCH IS 
NOT SUCCESSFUL 

A= PHASE ALTER 



167 
198 

227 

196 

168 
205 



PHASEC 
NZERO 

DONE 

SW12 

PHASE A 
RST 



207 STPHST 



196 
225 



SW12 

SEVDSO 



195 NINE 



BR IF HO BIT 1=1 
BR IF HO BIT7=0 
Ti=Tl$KCO 

BR 

H0=H0+K1Q 

BR IF HO BIT 2*1 

H0=H0$K04 

BR 

BR IF HO BIT 3=0 

Hl^HlSTO 

BR 

TO=T0aKFF 

H1-H1*T0 

STB HI AS»P+0 

BR 

BR IF HO 8IT7=i 

Z-HOaKOO 

BR IF Z=0 



CLOAD=*640t EC L6VEL=1282 11 

COMMENTS 



JUST DISPLAY 

MAK6 NEW DRIVE ASSIGN 300/1400 

BUILD BA ADDRESS TO CK FLAGS 
R6AD 9TK FLAGS, INCR TO PHASE ENC 
USE DO LOW TO ALIGN DRIVE TO BIT 

HO FOR PHASE ENC CHECK 
PHASE ENC IN Hi 
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8 WAY 
AL IGN 
ALIGN 
ALIGN 
ALIGN 
ALIGN 
ALIGN 
ALIGN 
BIT I 



TO CHECK FL AGS OR DRIVES 



DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



TO BIT 
TO BIT 
TO BIT 
TO BIT 
TO BIT 
TO BIT 
TO BIT 



BY DOUBLE 
BY DOUBLE 
BY DOUBLE 
BY DOUBLE 
BY DOUBLE 
BY DOUBLE 
BY DOUBLE 



S UNLESS PHASE ENC ALTER 



7TK DR OR 9TK W/Q PHS 



9TK FLAG CK 50 
9TK FLAG CK 01 
PH ENC CK 00 A 



7TK( 8001 DENS 5 
7TK9/7800DENS 
9TKC800) DENS 5 
2 
i 



9TK FLAG CK 


20 


7TKI556I DENS i 


7TK FLAG CK 


10 


7TKI200) OENS 


9TK FLAG CK 


30 


7TKI 800) DENS 


9TK FLAG CK 


50 


ICK1600) DENS 5 


PH ENC CK 


00 


AI1600) DENS 5 


9TK FLAG CK 


20 


DENS 2 


9TK FLAG CK 


10 


DENS 1 


9TK FLAG CK 


30 


A 18001 DENS 3 


9TK FLAG CK 


01 


7/9CUSE9IDENS 


DENS 5 ,TEST PHASE EN 


NOT DENS 






INSURE 9TK : 


SET 


CONTRL 



00- 10, 20- 30, 30-40, AND 
10-20 ALTERED DENS1,2 
USE EXISTING 9TK DENS 
ALT 10-14,40-44, 16/8C 
04I9TK DENS 51 SET 8C 
OR IN 1600 BIT IN FLG 

INVERT BITS 

RST BIT IN PHASE EN 

UPDATE PHASE ENCODE 

7TK DENSO,CHK 9-7CHGE 

PUT 1600 BPI BIT BACK ON 



ADD* 

0658 
0E5A 
0E5C 
0656 
0660 
0E62 
0E64 
0666 
0668 
0E6A 
06 6C 
0666 
0670 
067A 
0E7C 
0676 
0680 
0682 
0684 
0E86 
0688 
068A 



INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 



WORD S6QUENC6 NO. 



OE60 
3B85 
1845 
867E 
0609 
F4QB 
1BC5 
666F 
1648 
EOFE 
8640 
3B45 
86 7E 
0B49 
F408 
5CE2 
7BC0 
56F2 
56A9 
0640 
7AF2 
A412 



INTP 
INIP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 



212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 



LABEL 



SET 800 



ARRND 



NEXTSEQ 



NEXTL ABEL ST AT EMENT 



216 ARRND 



227 DQN6 



213 SET800 



223 SET556 



227 

200 



DONE 
ALT ER9 



SET556 
SEVOSO 
DONE 
DISPLY 



JTYP 025 SETWRL 



BR IF HO BIT 1=0 
Tl=Tl$K80 
T1=T1*-K40 
BR 

Z=HO«-KDO 
BR IF AC=1 
T1=T1*-KC0 
BR IF HO BIT 2*1 
HQ=H0QK04 
BR IF HZNZ 
BR 

T1=T1$K40 
BR 

Z=T1*K40 
BR IF AC=1 
RDH P DA,BC 
STB Tl AS,P*0 
ROH H DA, BE 
TQ=HO 

RST BC K=04 
STH T DA, BE 
BR 
********************************** 

* CROSS REFERENCE FOR CSECT INTP * 
********************************** 



CLGAD**E40, EC LEVEL=128211 
COMMENTS 

DEN 5 9TK,7TK DEN 1-3 
SET BITO IN CTRL BYTE 
RST BITl 800 IS SET 
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227 DONE 



213 SET 800 



CHK DENS3 800 7TK 
ASSUME 7TK 200 
DENS2 SET 556 
00-04 AND 10-14, 8/2C 
200 7TK SET UP, EXIT 

7TK 556 SET, EXIT DONE 

9T07 TRACK TEST,DENSO 

RESTORE CONTROL ADDR 

STORE NEW 1400 CONTRL 

PRESERVE HI ORDER OF COOEO BYTE 

RESET CONSOLE INTERRUPT 

STORE STP C0D6,T INFO 

LAST CHAR IN ,BUSSOUT , LF NEXT 



006 
014 
040 
050 
054 
056 
058 
089 
098 
104 
109 
116 
131 
138 
150 
154 
161 
167 
168 
169 
171 
195 
196 
198 
200 
202 
205 
207 



INRU 
JIYP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 
INTP 



C59 
403 
020 
019 
027 
097 
014 
066 
090 
089 
083 
112 
128 
130 
1C7 
152 
159 
194 
201 
166 
170 
211 
199 
1^5 
222 
178 
202 
204 



INTP 052 INTP 065 INTP 068 INTP 091 INTP 093 INTP 100 INTP 105 



INTP 103 



INTP 208 
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********************************** 

* CROSS REFERENCE FOR CSECT INTP * 
********************************** 



INTP 209 


INTP 180 








INTP 213 


INTP 217 


INTP 226 






INTP 216 


INTP 212 








INTP 223 


INTP 219 








INTP 225 


INTP 2C9 








INTP 227 


INTP 197 


INTP 215 


INTP 221 


INTP 224 


INTP 229 


INTP 142 


INTP 160 







IOCM DESCRIPTIVE TEXT 
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ENTRY POINTS 
LOAD 



UOP 



8STAR 



PTRER 



ALL MOVE OR LOAD I/O OPS ENTER HERE FROM THE 
I-CYCLE OP CODE TABLE. 



CONTROL UNIT OPERATIONS ENTER HERE FROM THE 
I-CVCLE OP CODE TABLE, 



ENTRY AT THIS POINT IS FROM I PLS OR LQPO WHEN AN 
INVALID OPERATION HAS BEEN DETECTED. THIS ROUTINE 
SETS THE STOP CODE. 



DECODE 



CK8IT 



CHNL 



ENTRY HERE IS FROM IBCH FOR PRINTER BRANCH CON- 
DITIONS CHANNEL 9, CHANNEL 12, OR PRINTER BUSY, 



ENTER HERE FROM IBCH WHEN ALL BRANCH INDICATORS 
TEST NEGATIVE. THIS ENTRY IS ALSO USED AFTER A 
PRINTER ERROR CONDITION. 



ENTRY AT THIS POINT IS FROM MPRT TO DECODE THE 
REASON FOR CHANNEL PRINTER BRANCH. 



OBJECTIVES 



ZONECK 3 



BRANCH TO THIS POINT IS FROM WITHIN THIS ROUTINE 
OR FROM VARIOUS ROUTINES WHEN AN INVALID 
UNIT IS ADDRESSED. 



ENTRY AT THIS POINT IS FROM IBCH FOR A BRANCH ON 
PRINTER ERROR. 



I. TEST B-STAR VALIDITY AND I/O UNIT VALIDITY. SET STOP 
CODE AS NECESSARY. 

2* DECODE UNIT ADDRESS, BRANCH TO APPROPRIATE ROUTINE 
FOR DEVICE INDICATED. 

3* HANDLE CONDITIONS FROM IBCH. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 




NEXTSEQ 


NEXTLA8EL 


STATEMENT 




COMMENTS 






IOCM 


001 


T 






MOVE 


OR LOAD 


I/O UNIT ADDRESS 


DECODE 


KRAGER 


UCA 


F659 


IOCM 


002 


LOAD 






009 


BSTAR 




BR IF DO BIT3=1 


B STAR IS INVALID 


11CC 


5109 


IOCM 


003 


UOP 












Pl^Ul 






11CE 


DD54 


IOCM 


004 








007 


WMERR 




BR IF PI BITl* 


>0 




UDO 


50D9 


IOCM 


005 














Pl^UO 






11D2 


DD49 


IOCM 


006 








Oil 


OK 




BR IF PI BITl= 


1 




UD4 


2A3 5 


IOCM 


007 


WMERR 












T0-0$K30 






UD6 


817A 


IOCM 


008 






I ERR 


033 


ADD1 




BR 






11D8 


2A53 


IOCM 


009 


BSTAR 












T0=0$K05 




SET INVALID I/O OP 


1IDA 


817C 


IOCM 


010 






I ERR 


034 


STCODE 




BR 




GO STOP 


I1C8 


8015 


IOCM 


Oil 


OK 






012 


ZONECK 


N 


N=Pi BITS23 






1280 


928C 


IOCM 


012 


ZONECK 







018 


ABZONE 




BR 




A AND B ZONE 


1282 


<3286 


IOCM 


013 


ZONECK 


1 




015 


ZONECK 


3 


BR 






1284 


929C 


IOCM 


014 


ZONECK 


2 




030 


AZONE 




BR 




A ZONE 


1286 


5AF2 


IOCM 


015 


ZONECK 


3 










RDH T DA, BE 




INVALID UNIT 


1288 


2A53 


IOCM 


016 














T0=0$K05 






128A 


817C 


IOCM 


017 






IERR 


034 


STCODE 




BR 






128C 


C9C7 


IOCM 


018 


A BZ ONE 






015 


ZONECK 


3 


BR IF PI BIT 4=1 




128E 


E9C6 


IOCM 


019 








015 


ZONECK 


3 


BR IF Pi BIT6= 


;0 




1290 


D917 


IOCM 


02 








023 


GGRF 




BR IF PI BIT5* 


= 1 
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ADDR 


WORD 


SEQUENCE NO. 


LABEL 




NEXTSEQ 


NEXTLABEL 


STATEMENT 




COMMENTS 




1292 


F9C7 


IOCM 


021 








015 


ZONECK 3 


BR IF Pi BIT 7= 


= 1 






1294 


9 37C 


IOCM 


022 






JTPE 


002 


UADMCK 


BR 




UNIT AOD IS B OR C 




1296 


F918 


IOCM 


023 


GQRF 






029 


GISUNT 


BR IF PI BIT 7= 


= 1 






1298 


99EC 


IOCM 


025 






KAAA 


020 


SRTFIL 


BR 




UNIT ADD IS F 




129A 


88EA 


IOCM 


029 


GISUNT 




MAAA 


033 


START 


BR 




UNIT ADDR IS G 




129C 


0DD1 


IOCM 


030 


A ZONE 










Z*Pi+KOD 








129E 


FCAB 


IOCM 


031 








037 


TUNIT 


BR IF LZ=0 




CHECK 




12A0 


0DC1 


IOCM 


032 












Z=P1+K0C 




UNIT 




12A2 


FOAD 


IOCM 


033 








038 


UUNIT 


BR IF LZ=0 




ADDRESS 




12A4 


0081 


IOCM 


034 












Z=P1+K08 








12A6 


FC86 


IOCM 


035 








015 


ZONECK 3 


BR IF LZNZ 








12A8 


9EFC 


IOCM 


036 






MKKK 


017 


STRT43 


BR 




UN IT ADDR IS Y 




12AA 


A3E2 


IOCM 


037 


TUNIT 




JTYP 


004 


LABEL 


BR 




UNIT ADDR IS T 




12AC 


937C 


IOCM 


038 


UUNIT 




JTPE 


002 


UADMCK 


BR 




UNIT ADD IS U 




0890 


57F9 


IOCM 


039 


PTRER 










Hi = Dl 




SAVE MODIFIER 




0892 


3F23 


IOCM 


040 












H1=H1$K02 




ADD 6 BIT 




0894 


89C2 


IOCM 


041 








043 


CKBIT 


BR 








0900 


57F9 


IOCM 


042 


DECODE 










Hi=01 




SAVE MODIFIER 




0902 


5AC2 


IOCM 


043 


CKBIT 










RDH T DA,B8 




READ CONTROL BYTE 




09 04 


0BB3 


IOCM 


044 












Z=T i*-K0B 








0906 


FC8A 


IOCM 


045 








051 


CHNL 


BR IF LZNZ 




BR IF 42 f 43 




0908 


9BU 


IOCM 


046 








047 


NTV N 


N=H1 BITS567 




NATIVE DECODE 




08 82 


A 564 


IOCM 


047 


NTV 


1 


MPRT 


359 


BRCHN9 


BR 




BR ON CHANNEL 9 




08 84 


A0D8 


IOCM 


048 


NTV 


2 


MPRT 


377 


ERROR 


8R 




BR ON PRINTER ERROR 




08 88 


A570 


IOCM 


049 


NTV 


4 


MPRT 


371 


BRCH12 


BR 




BR ON CHANNEL 12 




08 8E 


A556 


IOCM 


050 


NTV 


7 


MPRT 


364 


PRBUSY 


BR 




BR ON PRINTER BUSY 




09 0A 


9B13 


IOCM 


051 


CHNL 






052 


CHANL N 


N=H1 BITS567 




CHANNEL DECODE 




0982 


A5FE 


IOCM 


052 


CHANL 


1 


MQQQ 


019 


CH9 


BR 




BR ON CHANNEL 9 




09 84 


A614 


IOCM 


053 


CHANL 


2 


MQQQ 


003 


PTERR 


BR 




BR ON PRINTER ERROR 




09 88 


A64C 


IOCM 


054 


CHANL 


4 


MQQQ 


030 


CH12 


BR 




BR ON CHANNEL 12 




098E 


83A0 


IOCM 


055 


CHANL 


7 


MNNN 


004 


BUSY 


BR 




BR ON BUSY 




















********************************** 




















* CROSS REFERENCE FOR CSECT 


IOCM * 




















********************************** 




IOCM 


002 I 


ICYC 309 






















i a cm 


003 


ICYC 310 






















IOCM 


007 ] 


IOCM 004 






















IOCM 


009 ] 


IOCM 002 


IPLS 


021 LGPD 


053 














IOCM 


Oil ] 


IOCM 006 






















IOCM 


012 1 


IOCM Oil 






















IOCM 


015 


IOCM 013 


IOCM 


018 IOCM 


019 1 


IOCM 


021 IOCM 


035 MAAA 032 


MAAA 


033 MAAA 161 MAAA 163 MDDD 055 


MKKK 020 MPRT 035 


IOCM 


018 


IOCM 012 






















IOCM 


023 ) 


[OCM 020 






















IOCM 


029 : 


IOCM 023 






















IOCM 


030 ] 


[OCM 014 






















IOCM 


037 i 


IOCM 031 






















IOCM 


038 


IOCM 033 






















IOCM 


039 ! 


IBCH 0*2 






















IOCM 


042 : 


[BCH 020 


IBCH 


023 IBCH 


096 














IOCM 


043 


IBCH 100 


IOCM 


041 


















IOCM 


047 i 


IOCM 046 






















IOCM 


051 ] 


IOCM 045 


MPRT 


398 


















IOCM 


052 ] 


[OCM 051 
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IPLS DESCRIPTIVE TEXT 



OBJECTIVES 

PERFORM LOAD KEY FUNCTION* (INITIAL PROGRAM LOADING.! 
DECODE SWITCH VALUES IA-D) TO DETERMINE INPUT DEVICE. 



CHECK ADDRESS VALIDITY 

STORE GMWM IF LOADING FROM 1442. 

SET 51-COLUMN FEATURE ADDRESSING IIF APPLICABLE), 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLAi 


SEL STATEMENT 






IPLS 


001 


T 


1400 


COMP 


IPL START RESET ROUT IN 






IPLS 


002 


* 


THIS ROUTINE 3 


[S ENTERED FROM THE RES 






IPLS 


003 


* 


ON. AFTER DISPLAY THE START RESET 






IPLS 


004 


* 


KEY OPERATION 


AFTER DISPLAY GOES DIR 


11)04 


AD84 


IPLS 


005 


IPLSTR 


IMEM 002 


SCAN 


BAt 


10 06 


51FF 


IPLS 


006 








H1=SWCD 


1008 


5202 


IPLS 


007 








RDH V DA, 88 


!D0A 


5224 


IPLS 


008 








V=V*1 


1O0C 


4826 


IPLS 


009 








I = V 


1D0E 


50EF 


IPLS 


010 








HO^SWAB 


1010 


6679 


IPLS 


on 








DOC^DO+DH-1 


1012 


67F1 


IPLS 


012 








Di^DlaHl 


1014 


C4D5 


IPLS 


013 




027 


NRD 


BR IF Z=0 


1016 


EOCF 


IPLS 


014 




024 


CHLRD 


BR IF HZ=0 


ID 18 


1E25 


IPLS 


015 








H0=H0*-K20 


1D1A 


E0A2 


IPLS 


016 




020 


STOP 


BR IF HZNZ 


101C 


57 71 


IPLS 


017 








DUD1X 


1D1E 


6E71 


IPLS 


018 








H0=H0aDl 


1020 


F0A7 


IPLS 


019 




022 


TAPELD 


BR IF LZ=0 


1022 


2625 


IPLS 


020 


STOP 






D0=0$K20 


1024 


91D8 


IPLS 


021 




IOCM 009 


BSTAR 


BR 


1026 


5E11 


IPLS 


022 


TAPELD 






Ui^HOX 


1028 


9D3C 


IPLS 


023 




047 


REST OR 


BR 


104E 


0F23 


IPLS 


024 


CHLRD 






Z=H1*-K02 


1050 


F0A2 


IPLS 


025 




020 


STOP 


BR IF LZNZ 


1052 


2E1F 


IPLS 


026 








H0=H0*K11 


1D54 


3E1D 


IPLS 


02 7 


NRD 






H0= HO-K 10 


1056 


5661 


IPLS 


02 8 








D0=D0X 


1058 


6E61 


IPLS 


029 








HO^HOaDO 


105A 


C4A2 


IPLS 


030 




020 


STOP 


BR IF ZNZ 


105C 


EB2B 


IPLS 


031 




038 


C0L80 


BR IF H16*l 


105E 


5DC2 


IPLS 


032 


READ25 






RDB Pi 0A,B8 


1D60 


F92A 


IPLS 


033 




038 


C0L80 


BR IF PI BIT7*=0 


1062 


23EB 


IPLS 


034 








V1=V1+K0E 


1064 


4826 


IPLS 


035 








l = V 


1D66 


2E37 


IPLS 


036 








H0=0$K33 


1068 


9D2C 


IPLS 


037 




039 


BEGIN 


BR 


1D2A 


2E55 


IPLS 


038 


CQL80 






H0=0$K50 



COMMENTS 

ES R TAYLOR 

ET ROUTINE WHEN THE IPL LATCH IS 
ENTERS AS WELL. THE NORMAL START 
ECTLY TO THE LABEL fRESTOR) 

DO SCAN 

READ SWITCHES 

PUT 1400 ADDRESS B* 

POINT B* AT 1400 ADOR 001 

SAVE IN ADDRESS REGISTER I* 

READ SWITCHES 

D0=41,D1=40 TEST INITIALIZED 

CO-40 0R4X 

COULD BE 2540 

COULD BE 1442 

IF TAPE A=2 AND D1=4X 

NOT VALID LOAD DEVICE 

TAPE TEST 

TAPE A,C,B OK 

MAKE A STAR INVALID 

01 SPLAY INCORRECT LOAD MESSAGE 

PUT TAPE LOAD DRIVE IN CORRECT 

CHECK LOW ORDER SWITCH FOR 2 

NOT 1442 
CHANGE 14 T02 5 
CHANGE 25 TO 14 

MASK FOR CORRECT AB SWITCHES 
READER LOAD ADDRESS NO GOOD 
1442 LOAD UNIT 

CHECK 51 COLUMN READ FEATURE 
51 COL READ TEST 
INCREMENT TO 1400 0015 
INSTRUCTIONS START AT 015 
SET CNT TO 51 
START CLEAR 
COUNT SET AT 80 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXT! 


SEQ 


NEXTLABE 


L STATEMENT 


1D2C 


20 €7 


IPLS 


039 


BEGIN 








P1=0 


1D2E 


70 38 


IPLS 


040 


CLEAR 








STB PI V*l 


1030 


2045 


IPLS 


041 










Pl=0$K40 


1032 


2EFF 


IPLS 


042 










HO=HO*KFF 


1034 


C4AE 


IPLS 


043 






040 


CLEAR 


BR IF ZNZ 


1D36 


E83C 


IPLS 


044 






047 


RESfOR 


BR IF HI BIT 


1D38 


2DF3 


IPLS 


045 










P1=0$K0F 


1D3A 


7030 


IPLS 


046 










STB PI V+0 


103C 


0620 


IPLS 


04 7 


RESTOR 








RST BC K=02 


1D3E 


2607 


IPLS 


048 










00=0 


1040 


25C7 


IPLS 


049 










G1=0 


1042 


1210 


IPLS 


050 










RST MMSK K=8 


1044 


4286 


IPLS 


051 










V=I 


1046 


0F4D 


IPLS 


052 










Z=H1QK40 


1048 


E082 


IPLS 


053 






061 


TAPE 


BR IF HZN2 


1D4A 


F081 


IPLS 


054 






057 


R0ER25 


BR IF LZ^O 


1D4C 


890C 


IPLS 


055 




MAAA 


03l 


IPL42 


BR 


1000 


A57A 


IPLS 


057 


RDER25 


LOPO 


Oil 


LOAD 


BR 


1002 


90D4 


IPLS 


061 


TAPE 


JODE 


007 


TAPELO 


BR 



6-0 



CL0A0**E40, EC LEVEL=1282U 

COMMENTS 

BUILD BLANK AND WGROMARK 
AND THEN 

STORE BLANKS AFTERWARDS 
SU8T 1 FROM COUNT 
CLEAR AGAIN 

2500 SERIES 
BUILD GMWM FOR 1442 
STORE GMWM IN COL 81 
RESET I PL 
ZERO OUT DO FOR LOAD ROUTINES 
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ALLOW TRAPS 

SET UP B STAR FOR 

CHECK LOAD 

TAPE LOAD 



I PL 



********************** 

* CROSS REFERENCE FOR 
********************** 



1442 LOAD 
2540 LOAD 
TAPE LOAD 
************ 

CSECT IPLS * 
************ 



IPLS 005 


IRST 


101 






IPLS 020 


IPLS 


016 


IPLS 


025 IPLS 030 


IPLS 022 


IPLS 


019 






IPLS 024 


IPLS 


014 






IPLS 027 


IPLS 


013 






IPLS 038 


IPLS 


031 


IPLS 


033 


IPLS 039 


IPLS 


037 






IPLS 040 


IPLS 


043 






I 3 LS 047 


IPLS 


023 


IPLS 


044 


IPLS 057 


IPLS 


054 






IPLS 061 


IPLS 


053 







ADDR 


WORD 


SEQUENCE NO. 


LABEL 






IRAD 


001 


T 






IRAO 


002 


♦ 






IRAO 


003 


* 






IRAO 


004 


* 


22 04 


571A 


IRAO 


005 


RSTADD 


2206 


5709 


IRAD 


006 




2208 


3045 


IRAO 


007 




220A 


5DC0 


IRAO 


008 




22 DC 


ED61 


IRAD 


009 




220E 


3035 


IRAO 


010 




22E0 


F164 


IRAD 


Oil 


ADOCK 


22E2 


10 ID 


IRAO 


012 




22 64 


50C0 


IRAO 


013 


XL ATE 


22E6 


5F30 


IRAO 


014 


BFIELD 


22E8 


0F4E 


IRAO 


015 




22EA 


7D3A 


IRAO 


016 




22EC 


20F5 


IRAO 


017 




22EE 


0766 


IRAO 


018 




22F0 


571A 


IRAO 


019 




22F2 


6075 


IRAO 


020 




22F4 


C767 


IRAO 


021 




22F6 


5709 


IRAD 


022 




22F8 


3045 


IRAO 


023 




22FA 


50C0 


IRAO 


024 




22 FC 


5000 


IRAO 


025 




22F6 


A2E4 


IRAO 


026 




22CE 


1045 


IRAO 


027 


END 


2200 


7D3A 


IRAD 


028 




2202 


807C 


IRAO 


029 




IRAQ 


005 ICYC 250 


ICYC 


251 


IRAQ 


Oil 1RAD 009 






IRAQ 


013 IRAO Oil 


IRAO 


026 


IRAO 


014 IRAO 018 


IRAD 


021 


I RAO 


027 IRAO 015 







NEXTSEQ NEXTtABEL STATEMENT 



CL0AD=*E40, EC LEVEL=128211 
COMMENTS 
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1400 RESET ADO ANO SUBTRACT. KRAGER 

1400 RESET ANO OR SUBT* MOVE A FIELD TO B FIELD, INVERT SIGN ON RESET 
SUBT.ZERO FILL ALL CHARS IN B FIELD AFTER A FIELD WM. REMOVE ALL ZONE 
BITS EXCEPT FROM SIGN POSITION. 



Oil ADOCK 



013 XLATE 



027 END 



014 BFIELD 



014 BFIELD 



013 XLATE 



ICYC 037 HISTRT 



ROB 01 U-i READ A FIELD 

Pl=Di 
Pi=Pl$K40 
RD8 PI AS,P 
BR IF PI BIT 2=1 
P1-P1SK30 
BR IF Gl BITT^O 
P1=P1QK10 
ROB Pi AS,P 
ROB HI V 
BR IF Hi BIT 1=0 
STB PI V-l 
P1=0$KF0 
BR IF 01 BIT 1=0 
ROB 01 U-i 
Pl=Pi$0i 
BR IF 01 BITO=i 
Pl=Dl 
Pi=Pl$K40 
ROB PI AS,P 
P1=P1L 
BR 

P1=P1*-K40 
STB PI V-l 
BR 
********************************** 

* CROSS REFERENCE FOR CSECT IRAD * 
********************************** 



INSURE NO WM 

CONVERT TO BCD 

BR IF B BIT 

FORCE A 8 ZONES 

BR IF RESET ADO 

CORRECT ZONE BITS 

CONVERT TO EBCDIC 

READ B FIELO 

BR IF B FIELO WM 

STORE DATA 

FORCE CONSTANT OF 

BR IF A FIELO WM 

READ A FIELD 

REMOVE ZONE BITS 

BR IF NOT A SPECIAL CHAR 

INSURE NO WM 
CONVERT TO BCO 
REMOVE ZONE 8ITS 

ADO WM TO CHAR 
STORE DATA 



ADOR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLOAD=*E40 f 
COMMENTS 



EC LEVEL=1232il PAGE 86 







IREG 


001 


T 


380 


5EC2 


IREG 


002 


STOREV 


03B2 


£A37 


IREG 


003 




0384 


7222 


IREG 


004 




3B6 


128E 


IREG 


005 


STRINA 


2 58 


2A15 


IREG 


006 


STREGS 


J25A 


2BF5 


IREG 


007 




02 5C 


76A8 


IREG 


008 




025E 


74AA 


IREG 


009 




026 


2A07 


IREG 


010 




02 62 


1B65 


IREG 


Oil 




)?64 


7222 


IREG 


012 


STRUVI 


2 66 


7032 


IREG 


013 




02 68 


7812 


IREG 


014 




2 6A 


128E 


IREG 


015 




1>3EA 


5222 


IREG 


016 


RSTREG 


13 EC 


5032 


IREG 


017 




I9EE 


5812 


IREG 


018 




iSFO 


2E15 


IREG 


019 




18f 2 


2FF5 


IREG 


02 




18F4 


56E8 


IREG 


021 




13F6 


54E8 


IREG 


022 




18F8 


2C07 


IREG 


02 3 




18FA 


128E 


IREG 


024 





1400 STORE AND RESTORE REGISTER ROUTINES 



RUCKER 



005 





ROH H DA,B8 


STRINA 


BR IF HO 8IT6 




STH V 0A,8C 




RTN 




T0=0$K10 




Tl=0$KFO 




STH D AS,T+2 




STH G AS,T-2 




T0=0 




Ti=Tl*-K60 




STH V DA f 8C 




STH U 0A f 8E 




STH I 0A,8A 




RTN 




ROH V DA, 8C 




RDH U DA,8E 




RDH I DA f 8A 




H3-OSK10 




Hi=0$KFO 




RDH D AS,H*2 




RDH G AS v H+'2 



READ CONTROL BYTE 
BR IF 1401 MODEL G 
STORE RDR-PUNCH ADOR 



IN B 



STORE U,V f I,G,D REGS 

IN BACKUP LOCATIONS OF BUMP 



SET TO FOR TLU 



RESTORE REGS V,U t I 9 f G 
FROM BACKUP LOCATIONS 



OF BUMP 



IREG 


002 


LPCB 


054 


LPXF 


060 


LRXF 


048 


IREG 


005 


IREG 


003 










IREG 


006 


JTPE 


020 


LOPD 


030 


MPRT 


250 


IREG 


012 


JTYP 


098 










IREG 


016 


IRST 


099 


JCHL 


105 


JCHL 


173 



P0 = 
RTN 
********************************** 

* CROSS REFERENCE FOR CSECT IREG * 
********************************** 



JDTA 060 LOPD 034 LPCH 012 LPXF 061 LRDR 031 LRXF 027 LXFR 101 LXFR 133 MPRT 255 



CL0AD=*E40, EC LEVEL=1282 11 PAGE 87 



IRST DESCRIPTIVE TEXT 



OBJECTIVES 

RESET AND INITIALIZE AUXILIARY STORAGE, 

INITIALIZE PRINT CHARACTER COUNTER LENGTH fUCS FEATURE)* 



DO CHECK SUN ROUTIME. 

RESET STORAGE PROTECT KEYS. 

GO TO INIZ ROUTINE, BUILD FILE TABLES. 



ADDR 



WORD SEQUENCE NO* LABEL 







IRST 


001 T 






IRST 


002 * 






IRST 


003 * 


1876 


3210 


IRST 


004 STREST 


1878 


3460 


IRST 


005 


187A 


2493 


IRST 


006 


187C 


2507 


IRST 


007 


1876 


2605 


IRST 


008 


18 80 


2705 


IRST 


009 


1882 


34E0 


IRST 


010 


1884 


4F6F 


IRST 


Oil 


1886 


4D6F 


IRST 


012 


1888 


4B6F 


IRST 


013 


188A 


4E6F 


IRST 


014 


188C 


1E00 


IRST 


015 


188E 


2100 


IRST 


016 


1890 


0E08 


IRST 


017 


1892 


3400 


IRST 


018 


1894 


5C82 


IRST 


019 


1896 


1C85 


IRST 


020 


1898 


1C13 


IRST 


021 


189A 


2005 


IRST 


022 


189C 


7C82 


IRST 


023 


189E 


5C92 


IRST 


024 


18A0 


5CCB 


IRST 


025 


18A2 


1C35 


IRST 


026 


18A4 


3C85 


IRST 


027 


18A6 


7C92 


IRST 


02 8 


18A8 


5CB2 


IRST 


029 


18AA 


2D05 


IRST 


030 


18AC 


7CB2 


IRST 


031 


18AE 


5CC2 


IRST 


040 NOTNTV 


18B0 


1025 


IRST 


041 


1882 


3083 


IRST 


043 


18B4 


7CC2 


IRST 


045 


18B6 


D95C 


IRST 


046 


18B8 


2E05 


IRST 


047 OOREST 


18BA 


2F95 


IRST 


048 



NEXTSEQ NEXTLABEL STATEMENT 

** 1400 SYSTEM RESET 
** THIS ROUTINE RESETS AND 
OTHER REGISTERS AS REQUIRED 
SET MMSK K^8 1 
SET MODE K = 86 
G0=0$K09 
G1=0 

00=0$K00 
Ol^OSKOO 
SET MODE K=8E 
FOP=DO 
FFO=D0 
TGR0=O0 
FBO=DG 

RST FIB K=80 
SET DIAB K*00 
RST FIB K = 40 
SET MODE K=80 
ROH P DA.A8 
PO=P0*-K8O 
PO=PO*-KOl 
P1=0$K00 
STH P DA.A8 
RDH P DA, AA 
PO=POH 
PO=P0*-K3O 
P0=P0$K80 
STH P DA, AA 
RDH P 0A,AE 
P1=0$K00 
STH P OA, AE 
RDH P DA.B8 
Pl=Pl*-K20 
P1=PI$K08 
STH P DA,B8 
102 NATIVE BR IF P15=0 

HO=0$KOO 
H1-0$K90 



COMMENTS 

R TAYLOR 
INITIALIZES AUX STORE LOCATIONS AND 

BLOCK TRAPS 

INITIALIZE TO 09 

INITIALIZE TO ZERO 

INITIALIZE TO ZERO 

INITIALIZE TO ZERO 

SET FILE MODE 2540 ZONE 

RESET OP REG 

RESET FLAG 

RESET FILE TAGS 

RESET FILE BUSS 

CHAIN END *ESET 

RESET OIAG 

INITIAL RESET 

SET CPU MODE 

GET K8 

RST LAST CARD INDICATOR 

RST 2ND SERIAL READER LAST CARD 

STORE BACK SS B-G UNCHANGED 

GET K9 

RESET LOW HALF 

RESET ALL BUT BITS 0,1 

TURN ON BIT 

STORE K9 

GET KB 

RESET LOVIER BYTE 

STORE KB 

GET KC 

RESET ERASE BIT 

STORE KC 

NATIVE PRINTER RESETS 

CLEAR TAPE ERROR BYTE 



AOOR 


WORD 


S6QU6NCE NO. 


LABEL 


N6XTS6Q 


NEXTLABEL 


STATEMENT 


188C 


3F63 


IRST 


049 








H1=H1$K06 


18BE 


2007 


IRST 


050 








P1=0 


L8CO 


706A 


IRST 


051 








STB PI AS,H-i 


18C2 


3F4B 


IRST 


052 








H1=H1-K04 


18C4 


7DEA 


IRST 


053 








STB Pi AS f H-l 


18C6 


2C05 


IRST 


054 








P0=0$K00 


18C8 


7CF2 


IRST 


055 








STH P DA, BE 


18CA 


44FF 


IRST 


056 








SM=Hi 


18CC 


1F83 


IRST 


057 








H1=H1*-K08 


18CE 


2 745 


IRST 


058 








Dl=0$K40 


1800 


776 


IRST 


059 








STB Dl AS,H 


1802 


ZF ID 


IRST 


060 








H1 = H1*K10 


18D4 


3482 


IRST 


061 








SET MODE K=98 


1806 


5F60 


IRST 


062 








RDB HI AS,H 


18D8 


49FF 


IRST 


063 








PCCL=H1 


18DA 


A9EC 


IRST 


064 


SUMMIT 


127 


CKSUM 


BR 


1268 


0604 


IRST 


065 


CLEAR 






RST BC K=20 


126A 


2607 


IRST 


066 








00=0 


126G 


8166 


IRST 


067 




109 


STRPRO 


BAL 


1266 


A150 


IRST 


068 




INIZ 047 


FILETB 


BAL 


1270 


C3FB 


IRST 


072 


OK 


101 


BYPASS 


BR IF BA4=l 


1272 


1600 


IRST 


097 








RST BC K=80 


1274 


1210 


IRST 


098 








RST MMSK K=8i 


1276 


986A 


IRST 


099 




IREG 016 


RSTREG 


BAL 


1278 


ABC6 


IRST 


100 




ISTP 002 


INSTST 


BR 


12 7A 


9004 


IRST 


101 


BYPASS 


IPLS 005 


IPLSTR 


BR 


18DC 


5C62 


IRST 


102 


NATIVE 






RDH P DA,9C 


18DE 


5CCB 


IRST 


103 








P0=P0H 


1860 


1C75 


IRST 


104 








P0=P0*-K70 


18E2 


3C43 


IRST 


105 








P0*P0$K04 


186 4 


2D07 


IRST 


106 








Pl=0 


1866 


7C62 


IRST 


107 








STH P DA,9C 


186 8 


98B8 


IRST 


108 




047 


D0R6ST 


BR 


0166 


3480 


IRST 


109 


STRPRO 






SET MODE K=88 


0168 


426F 


IRST 


110 








STPO=DO 


1EA 


3400 


IRST 


HI 








SET MOOE K=80 


01 EC 


2743 


IRST 


112 








D1=0$K04 


01 6E 


4F7F 


IRST 


113 








MW = D1 


01P0 


5649 


IRST 


114 








GO=DO 


01F2 


56 59 


IRST 


115 








Gl'DO 


01F4 


426F 


IRST 


116 


LOOP 






STPO^DO 


01 66 


534C 


IRST 


117 








SSK STP1 AStG+1 


01F8 


151B 


IRST 


118 








Gl=GiaK01 


01FA 


258B 


IRST 


119 








G1 = GH-K08 


01FC 


C4F4 


IRST 


120 




116 


LOOP 


BR IF ZN2 


0166 


3486 


IRST 


121 








SET MODE K=B8 


0200 


5A60 


IRST 


122 








RDH T AS, 0*0 


0202 


3400 


IRST 


123 








SET MODE K=80 


0204 


2705 


IRST 


124 








D1=0$KQ0 


02 06 


5769 


IRST 


125 








00= Dl 


0208 


1286 


IRST 


126 








RTN 


?9EC 


3404 


IRST 


127 


CKSUM 






SET MODE K=AO 


2966 


FAC8 


IRST 


128 




146 


6NTRY 


BR IF TT7=0 



CL0AD=*E40, EC LEVEL=128211 
COMMENTS 



SYS MASK=8F 

STORE STOP CODE 

STORE MASK 

H= 0087 

PUT 40 IN TAPE / STATUS 

H = 0097 

GET PCCL 

STORE LENGTH FOR MC S 
DO SUM ROUTINE 
RESET SYSTEM RESET 

SET ALL STACK KEYS TO 

GO BUILD FILE TABLES, PROG ST0RG6 

IPL 

SET SOFT STOP 

ALLOW TRAPS 
REGS MEANINGFUL IF START/RESET 



PRINTER STATS 

RESET LOW HALF 

RESET ALL BUT BITS 

TURN ON BIT 5 

STORE STATS 

DO NORMAL RESETS 

SET FILE MODE CPU ZONE 

RESET FILE Q 

CPU MODE AND ZONE 
SET MACHINE CHECK MASK 
SET MC MASK 
ZERO OUT G REG 
ZERO OUT G REG 
ZERO CPU Q 

RESET 7 BIT 

TEST FOR 6ND 

NOT DONE YET 

SET CHANNEL MODE TO CLEAR ITS Q 

DUMMY ACCESS 
SET CPU MODE AND ZONE 

SET Dl FOR OTHER ROUTINES 



SET 1052 MODE 
SKIP EC CHECK IF NOT ON 
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AD OR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


29F0 


2007 


IRST 


129 


AGAIN 








uo=o 


29F2 


2183 


IRST 


130 










U1=0$K08 


29F4 


4208 


IRST 


134 










RDH V CS f U+2 


29F6 


21C5 


IRST 


135 










Ul=0$KC0 


29F8 


20E3 


IRST 


136 










UO=0$KOE 


29FA 


4E08 


IRST 


137 










RDH H CStU+2 


29 FC 


4A08 


IRST 


138 










ROH T CS,U+2 


29FE 


7A42 


iRsr 


139 










STH T DA, 98 


2AOO 


7252 


IRST 


140 










STH V DA,9A 


2A02 


6208 


IRST 


141 










STH V CS,U+2 


2A04 


4200 


IRST 


142 










RDH V CS,U 


2A06 


72F2 


IRST 


143 










STH V DA, BE 


2A08 


2080 


IRST 


144 










SET S4 


2AOA 


ACEO 


IRST 


145 




I0IS 028 


CONVA 


BR 


29C8 


4282 


IRST 


146 


ENTRY 








RDH V DCA8 


29CA 


4626 


IRST 


147 










D=V 


29CC 


4A60 


IRST 


148 










RDH T CS,D 


29CE 


27EB 


IRST 


149 










D1=D1+K0E 


2900 


9BE8 


IRST 


150 


MORE 




165 


DOFUNC 


BAL 


?9D2 


6664 


IRST 


151 










D*D+2 


2904 


0650 


IRST 


152 






150 


MORE 


BR IF DO 1*0 


2906 


42A6 


IRST 


153 










V=T 


2908 


C4C7 


IRST 


154 






164 


OKSUM 


BR IF Z=0 


29DA 


26E3 


IRST 


155 










DO=0$KOE 


2 9 DC 


27C5 


IRST 


156 










D1=0$KC0 


2906 


3763 


IRST 


157 










Di-D1$K06 


?9E0 


C9E5 


IRST 


158 






160 


CEKEY 


BR IF TD4=i 


29 6 2 


2 820 


IRST 


159 










SET OR K=02 


2964 


2610 


IRST 


160 


CEKEY 








SET BC K=01 


29E6 


9BE8 


IRST 


161 






165 


DOFUNC 


BAL 


29E8 


6A60 


IRST 


162 










STH T CS,D 


?9EA 


A9F0 


IRST 


163 






129 


AGAIN 


BR 


29C6 


9268 


IRST 


164 


OKSUM 




065 


CLEAR 


BR 


1BE8 


06 2B 


IRST 


165 


DOFUNC 








Z=D0nK0 2 


IBEA 


C4F2 


IRST 


166 






170 


NOTCE 


BR IF ZNZ 


18EC 


078D 


IRST 


167 










Z=DlaK80 


1BEE 


C4F2 


IRST 


168 






170 


NOTCE 


BR IF ZNZ 


1BF0 


274D 


IRST 


169 










D1=D1*K4G 


IBF2 


4260 


IRST 


170 


NOTCE 








RDH V CS,D 


18F4 


6A21 


IRST 


171 










T0=T0nV0 


18F6 


6B3i 


IRST 


172 










T1=T1QV1 


IBF8 


128E 


IRST 


173 










RTN 






IRST 


174 


ATABLE 


ADDR= 


=0EC4 






QEC4 


0000 


IRST 


175 


C 








XCTL f 0000 f 


0EC6 


0000 


IRST 
IRST 


176 

177 


C 
AENO 








XCTL f 0000» 






IRST 


178 


RESERVE 


OECO 


THRU 0EC2 








IRST 


179 


RESERVE 


0280 


THRU 02BE 








IRST 


180 


ATABLE 


ADDR* 


=0388 






0388 


07FF 


IRST 
IRST 


181 
182 


C 
AEND 








XCTL f 07FFC48 






IRST 


183 


ATABLE 


ADDRs 


=0398 






0398 


0000 


IRST 


184 


C 








XCTL 1 0000000 



CL0AD=*E40, EC LEVEL=1282ll 

COMMENTS 



SELECT 0008, OOOA, GENERATED SUM 

GET LOG OUT START ADDRESS 

GET FIRST TWO BYTES 

GET NEXT TWO BYTES 

STORE IN PLACE OF A STAR DISPLAY 

STORE IN PLACE OF B STAR DISPLAY 

GET LAST TWO BYTES 
STORE IN PLACE OF STOP DISPLAY 
PREVENT FIRST HALFWORD CONVERT 
DO EC LEVEL OR CHECK SUM DISPLAY 



SKIP TABLE OF CHECK SUM VALUES 



PAGE 89 



BRANCH IF CE KEY ON 

STOP , CHECK SUM ERROR ,CE KEY OFF 

SET LOG LATCH FOR RETURN 



CONTINUE SYSTEM RESET 



ADDR 



03A8 



03B8 



0000 



2FF7 



QUENC 


;e NO, 


LABEL 


NEXTSEQ 


IRST 


185 


AEND 




IRST 


186 


ATA8LE 


ADDR*03A8 


IRST 


187 


C 




IRST 


188 


AENO 




IRST 


189 


A TABLE 


A9DR*03B8 


IRST 


190 


C 




IRST 


191 


AEND 





NEXTLABEL STATEMENT 



CL0AD=*E40# 
COMMENTS 



EC LEVEL=1282 1l PAGE 90 



XCTL« 0000000000000000' 



XCTL f 2FF72F1BC4BC0F01» 

********************************** 

* CROSS REFERENCE FOR CSECT IRST * 
********************************** 



IRST 


004 


BOIA 


434 






IRST 


047 


IRST 


1C8 






IRST 


064 


JTYP 


096 






IRST 


065 


IRST 


164 






IRST 


101 


IRST 


072 






IRST 


102 


IRST 


046 






IRST 


109 


INIZ 


039 


IRST 


067 


IRST 


116 


IRST 


120 






IRST 


127 


IRST 


064 






IRST 


129 


IRST 


163 






IRST 


146 


IRST 


128 






IRST 


150 


IRST 


152 






IRST 


160 


IRST 


158 






IRST 


164 


IRST 


154 






IRST 


165 


IRST 


150 


IRST 


161 


IRST 


170 


IRST 


166 


IRST 


168 





















CL0AD=*E40, 


ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 




COMMENTS 






I SAB 


001 


T 


1400 


STORE A OR 


B STAR. KRAGER 




2A88. 


2BF5 


I SAB 


002 


SETNZN 






T1=0$KF0 




SET NO ZONES 


2A8A 


AAAA 


I SAB 


003 




006 


CKEND 


BR 






2AA6 


DE22 


I SAB 


004 


CKNXTB 


026 


SETBZN 


BR IF HO BIT 1= 





GO SET B ZONE BIT 


2AA8 


2BC5 


I SAB 


005 


SETABZ 






Ti=0$KCO 




SET UP AB ZONE BITS 


2AAA 


EL90 


I SAB 


006 


CKEND 


028 


HNOROS 


BR IF S6=i 






2AAC 


4F8D 


I SAB 


007 








T1=HIL*T1H 




MAKE UNITS CHAR 


?AAE 


5010 


I SAB 


008 


READ 






RDB PI U+0 






2A80 


DO 3 5 


I SAB 


009 




Oil 


SLSHTS 


BR IF PI 8iri= 


1 


BR IF NO m 


2AB2 


IB45 


I SAB 


010 


SETWM 






Ti=Tl*-K40 




SET WM IN CHAR 


2AB4 


OB IB 


I SAB 


Oil 


SLSHTS 






Z=TlQK01 






2AB6 


FC8F 


iSAB 


012 




030 


LCWONE 


BR IF LZ=0 




BCH IF LOW BITS = 1 


2AB8 


7B1A 


I SAB 


013 


STORE 






STB Tl U-i 




STORE CHAR 


2ABA 


E18D 


ISAB 


014 




020 


OPOONE 


BR IF S6= 1 




BCH IF HNDRDS DONE 


2ABC 


0181 


ISAB 


015 




021 


TENSDN 


BR IF S5=l 




8CH IF TENS DONE 


2ABE 


2BF5 


ISAB 


016 








T1=0$KF0 






2ACO 


4FB5 


ISAB 


017 








T1=H1XL$T1H 




MAKE TENS CHAR 


2AC2 


2040 


ISAB 


018 








SET S5 






2AC4 


AAAE 


ISAB 


019 




008 


READ 


BR 






?A8C 


8D7C 


ISAB 


020 


OPDONE 


ICYC 037 


HISTRT 


BR 






2A80 


2020 


ISAB 


021 


TENSDN 






SET S6 






2A82 


EE21 


ISAB 


022 




025 


CKHLF 


BR IF HO BIT2= 


1 




2 A 84 


FFG8 


ISAB 


02 3 




002 


SETNZN 


BR IF HO BIT 3= 







>A86 


9158 


ISAB 


024 




037 


SETAZN 


BR 






2AAO 


FE29 


ISAB 


025 


CKHLF 


005 


SETABZ 


8R IF HO BIT 3= 


1 




2AA2 


2BD5 


ISAB 


026 


SETBZN 






Tl-=0$KDO 




SET B ZONE BIT 


2AA4 


AAAA 


ISAB 


027 




006 


CKENO 


BR 






2A9C 


4€BD 


ISAB 


02 8 


HNOROS 






T1=H0L+T1H 




MAKE HNDRDS CHAR 


2A9E 


AAAE 


ISAB 


029 




008 


READ 


BR 






2A86 


D015 


ISAB 


030 


LCWONE 


033 


OK 


BR IF PI BIT 1= 


1 


BR IF NO WM 


2A90 


OBAD 


ISAB 


031 








Z=TlaKAO 




CHECK FOR SLASH 


2A92 


AA96 


ISAB 


032 




034 


TEST 


BR 






2A94 


OBEO 


ISAB 


033 


OK 






Z^TlaKEO 




CHECK FOR SLASH 


2A96 


E0B8 


ISAB 


034 


TEST 


013 


STORE 


BR IF HZIMZ 




BR IF NOT A SLASH 


2A98 


1B85 


ISAB 


035 








Tl=Tl*-K80 




REMOVE BIT 


?A9A 


AAB8 


ISAB 


036 




013 


STORE 


BR 






1158 


2BE5 


ISAB 


037 


SETAZN 






TI=0$KEO 




SET A ZONE BIT 


U5A 


AAAA 


ISAB 


038 




006 


CKEND 


BR 






114E 


0060 


ISAB 


039 


STAR 






RST S K^G6 




RST S5 AND S6 


1150 


4426 


ISAB 


040 








G=V 






1L52 


A304 


I SA8 


041 




ICTD 021 


CYTDEC 


8AL 






1154 


CE5C 


ISAB 


042 




044 


ZONESB 


BR IF HO BITO= 


= 


BCH ON ZONE BITS 


1156 


AAA6 


ISAB 


043 




004 


CKNXTB 


BR 






U5C 


DE59 


ISAB 


044 


ZONE SB 


037 


SETAZN 


BR IF HO BIT1* 


= 1 


GO SET A ZONE BIT 


1L5E 


AA88 


ISAB 


045 




002 


SETNZN 


BR 
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********************************** 

* CROSS REFERENCE FOR CSECT ISAB * 
********************************** 



ISA3 


002 


ISAB 


023 


I SAB 045 


ISAB 


004 


ISAB 


043 




ISAB 


005 


ISAB 


025 




ISAB 


006 


ISAB 


003 


ISAB 027 


ISAB 


008 


ISAB 


019 


I SAB 029 



ISAB 038 
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TSAB Oil 

ISAB 013 

ISAB 020 

ISAB 021 

ISAB 025 

ISAB 026 

ISAB 028 

ISAB 030 

ISAB 033 

ISAB 034 

ISAB 037 

ISAB 039 

ISAB 044 



ISAB 009 
ISAB 034 
ISAB 014 
ISA8 015 
ISAB 022 
ISAB 004 
ISAB 006 
ISAB 012 
ISAB 030 
ISAB 032 
ISAB 024 
ICYC 215 
ISAB 042 



********************************** 

* CROSS REFERENCE FOR CSECT ISAB * 
********************************** 



ISAB 036 



ISAB 044 



A DOR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLA8EL STATEMENT 
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2378 
237A 
23 7C 
237E 
2380 
23 82 
23 84 
2386 
2388 
23 8A 
238C 
2386 
2390 
2392 
2394 
2396 
2398 
239A 
239C 
239E 
23A0 
23A2 
23A4 
2 3A6 
23A8 
2 3AA 
2 3 AC 
23 A E 
23B0 
2 3B2 
23B4 
23B6 
23B8 
23BA 
23BC 
23BE 
?3C0 
23C2 
23C4 
23C6 
23C8 
23CA 
23CC 
23CE 
2300 
2302 



4AE6 
0042 
2791 
6A7F 
F480 
5BA1 
6B7F 
F48D 
6A7F 
F496 
2EF7 
5EF9 
48E6 
20A0 
A8C8 
5202 
OEOD 
C4BB 
F0A6 
2C33 
2DE5 
2D8B 
F82D 
2C07 
2065 
2D4B 
63D8 
62C0 
0D3A 
2EFF 
F818 
1EF3 
F819 
OFOD 
C4CD 
E0C.9 
2C07 
20A3 
2FFD 
F4A0 
63FB 
62E0 
CB01 
128E 
4826 
42A6 



ISIC 
I SIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 
ISIC 



001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
020 
21 
022 
023 
024 
025 
026 
027 
028 
029 
030 
031 
032 
033 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 



T 

* 

* 

* 



SETIC 



018 OUT 



018 OUT 



023 SETBST 



OUT 



SETBST 
TESTHO 



!STP 003 INVI 



041 
031 



LOROER 
CNOTE 



CNOTE 
ADD 



LORDER 



UNITS 
ENDING 
SET! ST 



1400 SET IC BAL TO SET 

THIS ROUTINE SETS THE I 
DISPLAYS THE DECIMAL AN 
THE STEP ADDRESS AND DI 
FROM SOFT STOP ROUTINE 
ENTRY IF SET IC IS FROM 
IN T TO ALLOW THE MAIN 
T = H 

RST S K=14 
Dl=0-K09 
T0C-T0L+D1+C 
BR IF AC=i 
T0=T1X 

T1C=T1L+D1+C 
BR IF AC=i 
TQC=T0L+D1+C 
BR IF AC=0 
HO=0$KFF 
H1=H0 
I=H 

SET S K=OA 
BR 

RDH V DA, 88 
Z=HOnKOO 
BR IF Z=0 
BR IF LZNZ 
P0=0$K03 
P1=0$KE0 
Pi=Pl+K08 
BR IF PO BIT 
P0 = 

P1=0$K60 
Pl=Pl*K04 
V1C=VI*P1 
VOC=VO+PO*C 
BR IF PI BIT 
HO=HO*KFF 
BR IF PO BIT 
HO=HO*-KOF 
BR IF PO BIT 
Z=HlQKOO 
BR IF Z=0 
BR IF HZ=0 
P0 = 

P1=0$K0A 
H1=HH-KF0 
BR IF AC=1 
V1C=V1+H1 
VOC=VO*HO«-C 
BR IF BB BIT 
RTN 
I=V 
V = T 



034 ADD 



041 LORDER 



024 TESTHO 



024 TESTHO 



050 
048 



ENDING 
UNITS 



034 ADD 



052 SETIST 



B STAR TAYLOR 

STAR IF THE SET IC LATCH IS ON, AND 
D HEX EQUIVALENTS ON THE 1052 BY USING 
SPLAY ROUTINE SWITCH SETTINGS IN H REG 

SOFT STOP LOOP, B STAR IS STORED TEMPLY 
PROGRAM TO SET B STAR ON A BAL BASIS. 

TEST SWITCHES 

RESET CARRY LATCH, INSURE S5 OFF 

SET UP F6 FOR TEST 

CHECK SWITCH B 

ERROR 

CHECK SWITCH D 

ERROR 

CHECK SWITCH C 

ERROR CHECK COMPLETE GO ON 

SET UP INVALID I STAR 

DISPLAY IS FFFF FFFF 
SET S4,S6 

GO TYPE INVALID SET IC MESSAGE 
READ BIAS CONST. 
TEST HI ORDER 
HI ORDER DONE 
DO 100THS POSITION 
HEX EQUIV OF 1000 
I03E8) 



7=i 



1=0 
7=0 
7=1 



GO ADD 

HEX EQUIV OF 
i 0064) 



1000 



4=1 



ADD IN CONST. 

MEMORY BIASED B STAR 

LOW ORDER RETURN 

SUBT 1 FROM HUNDREDTH 

SUB 1 FROM THOUSANDS 

KEEP LO ORDER HO=XO 

TEST FOR THOUSANDS 

TEST LOW ORDER 

LOW ORDER OK GET OUT 

GO DO UNITS 

HEX EQUIV OF 10 

(OA) 
CONTROL TENS COUNT 
ADD AGAIN 
PUT IN UNITS 
HEX CONVERT DONE 
FROM SOFT STOP LOOP 
WAS B STAR CONVERT 
MOVE TO I STAR 
RE TORE B STAR 
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MJOR WORD SEQUENCE NO* LABEL NEXTSEQ NEXTLA8EL STATEMENT COMMENTS 

2.3D4 ABC6 ISIC 054 ISTP 002 INSTST 8R GO SHARE INSTRUCTION STEP 

* CROSS REFERENCE FOR CSECT ISIC * 
********************** ************ 



ISIC 


008 


INRU 


044 






ISIC 


018 


ISIC 


012 


ISIC 


015 


ISIC 


23 


ISIC 


017 


JTYP 


250 


ISIC 


024 


ISIC 


038 


ISIC 


040 


ISIC 


031 


ISIC 


026 






ISIC 


034 


ISIC 


030 


ISIC 


047 


ISIC 


041 


ISIC 


025 


ISIC 


036 


fSIC 


048 


ISIC 


043 






ISIC 


050 


ISIC 


042 






ISIC 


052 


ISIC 


050 
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ISTP DESCRIPTIVE TEXT 

OBJECTIVE 

CONVERT TO DECIMAL AND DISPLAY ON THE PR-KB THE ADDRESS OF THE NEXT INSTRUCTION TO BE EXECUTED. 



ADDR 



2BC6 
2BC8 
2BCA 
2 3CC 
2BCE 
2HDO 
2602 
26D4 
2BD6 

2BD8 
2BDA 
2 6 DC 
28DE 
2BE0 
2BE2 
2BE4 
2BE6 
2BE8 
2BEA 
2BEC 
23EE 
2BF0 
2BF2 
23F4 
2BF6 
2BF8 
2BFA 
2BFC 
2BFE 



WORD SEQUENCE NO. 



COEO 
3643 
E1D7 
CBD2 
C1D7 
2080 
4486 
A304 
3000 

2C15 
3C43 
5FAD 
8118 
5A59 
5FA5 
8118 
5A49 
5EAD 
8118 
5AB9 
5EA5 
8118 
5E92 
3E83 
7E92 
2F05 
3404 
2F08 
A416 



ISTP 
ISTP 
ISTP 
ISTP 
ISTP 
ISTP 
ISTP 
ISTP 
ISTP 
ISTP 
ISTP 
ISTP 
ISTP 
I SIP 
ISTP 
ISTP 
ISTP 
ISTP 
I STP 
ISTP 
ISTP 
ISTP 
ISTP 
ISTP 
ISTP 
ISTP 
ISTP 
ISTP 
ISTP 
ISTP 
ISTP 



ISTP 


002 


INRU 


058 


ISTP 


003 


I SIC 


022 


ISTP 


006 


IDIS 


037 


ISTP 


008 


ISTP 


0C5 


ISTP 


010 


ISTP 


004 


ISTP 


012 


JYPE 


058 



001 
002 
003 
004 
005 
006 
0C7 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
02 5 
026 
02 7 
02 8 
02 9 
030 
031 



LABEL 



INSIST 

INVI 



S TO PCD 



AROUND 



GO 



TYPEAG 



NEXTSEQ 



010 
008 
010 



ICOM 002 
I COM 002 
ICOM 002 
ICOM 002 



IRST 100 I SIC 054 



ISTP 006 



GO 

AROUND 

SO 



ICTD 021 CYTDEC 



JTYP 027 STORE 



NEXTLABEL STATEMENT 

** 1400 INSTRUCTION STEP 

RST S K=0E 

D0^=D0$KG4 

BR IF S6=i 

BR IF BB BIT 4=0 

BR IF S4=l 

SET S4 

G=I 

BAL 

SET SO 
PREPARE TO UNPACK 

?Q= 0$K 10 

P0=P0$KG4 

TO^HIL 

BAL 

G1=T0 

T0=H1XL 

BAL 

GG=TO 

TO=HOL 

BAL 

T1=T0 

TO=HOXL 

BAL 

RDH H DA f AA 

H0=H0$K08 

STH H DA,AA 

H1=0$K00 

SET MODE K=AG 

SET TA K=40 

BR 
********************************** 

* CROSS REFERENCE FOR CSECT ISTP * 
********************************** 



UNPACK 



UNPACK 



UNPACK 



UNPACK 



COMMENTS 

R.TAYLOR 
RESET S4,S5,S6 f 
TURN ON BIT 5 FOR CONTROL 
SET 1C ERROR 
IF NOT SET IC 
MACHINE CHECK LOGOUT 
D0L=X01i f S5=0 FOR NORMAL MESSAGE 
PUT I* INTO G FOR CONVERT 



HALFWORD 

SET TO 14,1 LESS THAN LINE fEED 

CHARACTER 

TAKE LOW 4 FOR UNPACK 

FIRST UNPACK INTO TO 

STORE IN Git 4TH POSITION 

SECOND UNPACK 

UNPACK 

STORE IN GO 3RD POSITION 

GET 3RD 

UNPACK 

PUT IN Tl 2ND POSITION 

GET LAST 

UNPACK « ANS IN TO 1ST POSITION 

TEST FOR JYPE ROUTINE 

SET STAT FOR DISPLAY 

STORE STAT 

INITIALIZE TO ZERO 

1052-1400 MODE, CPU ZONE 

SET WRITE LATCH 

GO TO 1052 STORE ROUTINE ST WAIT 



A DDK 



WORD SEQUENCE NO- LABEL 



NEXTSEQ NEXTLABEL STATEMENT 
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0C50 
OC52 
QC54 
0C56 
0C58 
OC5A 
0C5C 
0C5E 
QC4A 
OC4C 
QC4E 



5D10 
5B30 
F14A 
3D45 
3B45 
7D1A 
7B3A 
8D7C 
1045 
1B45 
8C5A 



ISWM 

iswm 

ISWM 
ISWM 
ISWM 
ISWM 
ISWM 
ISWM 
ISWM 
ISWM 
ISWM 
ISWM 
ISWM 
ISWM 



001 

002 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 



T 



ISWM 004 
ISWM 009 
ISWM 012 



ICYC 227 
ISWM 014 
ISWM 006 



SETWM 



STOREA 



SETAWM 



CLEAR OR SET WORD MARK ROUTINE, KRAGER 

WHEN ENTERING THIS ROUTINE Gl WILL CONTAIN 04 FOR SET WM OPS 
AND 15 FOR CLEAR WM OPS. 
ROB PI U+0 
RDB Tl V+0 
BR IF Gl BIT7*0 
Pl=Pl$K40 
T1=T1$K40 
STB PI U-l 
ST8 Tl V-l 
BR 

P1=P1*-K40 
T1=T1*-K40 
BR 
********************************** 

* CROSS REFERENCE FOR CSECT ISWM * 
********************************** 



012 SETAWM 



ICYC 037 HISTRT 



009 STOREA 



ICYC 243 



READ A FLD CHAR 

READ B FLD CHAR 

CK OP FOR SET WM INST 

WM FROM CHAR 

WM FROM CHAR 

CHAR DEC ADDR 

CHAR DEC ADDR 



CLEAR 
CLEAR 
STORE 
STORE 



SET 

SET 



WM 
WM 



OVER 
OVER 



CHAR 
CHAR 



CL0AD=*E40, EC LEVEL=1282 11 PAGE 97 



ITRP DESCRIPTIVE TEXT 



OBJECTIVES 

PERFORM MACHINE CHECK TRAPS. 



DETERMINE LOG-OUT MESSAGE. 

PERFORM COMMUNICATIONS SERVICE TRAPS. 



ADOR 


WQRO 


SEQUENCE NO, 


LABEL 


NEXTSEQ 






ITRP 


001 


T 








ITRP 


002 


* 








ITRP 


003 


ATABLE 


ADDR=0210 


0210 


3200 


ITRP 


004 






0212 


0080 


ITRP 


005 






0214 


8224 


ITRP 


006 




012 






ITRP 


007 


AENO 








ITRP 


008 


* 








ITRP 


009 


ATABLE 


AD0R^0220 


0220 


3202 


ITRP 


010 






0222 


2080 


ITRP 


Oil 


MACHCK 




0224 


57FF 


ITRP 


012 


INTO 




0226 


56EF 


ITRP 


013 






0228 


C4AC 


I TRP 


014 




016 


022A 


7812 


ITRP 


015 






022C 


7EF2 


ITRP 


016 


RESET 




022E 


0210 


ITRP 


017 






0230 


0216 


ITRP 


018 






0232 


0218 


ITRP 


019 






0234 


AACC 


ITRP 


020 




024 






ITRP 


021 


AENO 








ITRP 


022 


♦ 








ITRP 


023 


AENO 




2A0C 


3444 


ITRP 


024 


GO 




?AOE 


IOC 5 


ITRP 


02 5 






2A10 


1113 


ITRP 


026 






2A12 


6006 


ITRP 


027 






2A14 


7052 


ITRP 


02 8 






2A16 


7042 


ITRP 


029 






2A18 


3400 


ITRP 


03 






2ALA 


5812 


ITRP 


031 






2A1C 


5EEF 


ITRP 


032 






2A1E 


IF 13 


ITRP 


033 






2A20 


5282 


ITRP 


034 






2A22 


1213 


ITRP 


035 






2A24 


5279 


ITRP 


036 






2A26 


2663 


ITRP 


037 






2A28 


C1B0 


ITRP 


038 




042 


2A2A 


2618 


ITRP 


039 






2A2C 


7E42 


ITRP 


040 







NEXT LABEL STATEMENT 



COMMENTS 



STORAGE WRAP, MACHINE CHECK TRAP ROUTINES R. TAYLOR 
COMMUNICATIONS TRAPS ARE RESET IN 1400 COMP. MODE 



INTO 



RESET 



GO 



OUT 



LINK U MMSK8=1 

RST S4 

BR 



LINK U MMSK9*1 
SET S4 
Hl=BA 
HO^MMSK 
BR IF ZNZ 
STH I 0A,8A 
STH H DA, 8£ 
RST MMSK K*Oi 
RST MMSK K=31 
RST MMSK K-41 
BR 



SET MODE K=A4 

UO=UG*-KCO 

U1=U1*-K01 

U=U-2 

STH U DA,9A 

STH U 0A f 98 

SET MODE K*80 

RDH I 0A,8A 

HO=MC 

Hl=0$KOi 

RDH V DA, A8 

V0=V0*-K01 

Di=VO 

D0-0SK06 

BR IF S4=0 

D0=D0*K01 

STH H DA, 98 



SAVE MICRO ADDRESS 
RESET FOR STORAGE WRAP 



MACHINE CHECK TRAP ENTRY 

SET FOR MACHINE CHECK LOGOUT 

SAVE BRANCH/CONDITION REGISTER 

SAVE MMSK REGISTER 

GO TO THE MMSK RESET 

I STAR IS GOOD IF STORAGE WRAP 

STORE MMSK,8A REGS FOR MA. CHECK 

RESETS MMSK 0,2 IF ON 

RESET 2540 READER TRAP 

RESET 2540 PUNCH TRAP 



SET MODE T3 GET MICRO ADDRESS 

STRIP HIGH BITS IF ON 

STRIP 7 BIT 

GET TRAPPED MICROWORD ADDRESS 

PUT IN FOR DISPLAY 

PUT IN FOR DISPLAY 

SET CPU MODE AND ZONE 

GET CORRECT I STAR FOR DISPLAY 

LOAD MACHINE CHECK REGISTER 

LOAD COUNT 

GET SENSE SWITCHES 

RESET BIT 7 

PREPARE TO STORE CODED HALT 
WRAP STOP CODE 
STORAGE WRAP BRANCH 
CHANGE STOP CODE TO 07 FOR MC 
OVERLAY WITH MC AND COUNT INFO 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 
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COMMENTS 
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2ME 


5EF2 


ITRP 


041 








ROH H 0A f BE 


<?A30 


76F2 


ITRP 


042 


OUT 






STH DAtBE 


?A32 


1613 


ITRP 


043 








D0=D0*-K0 1 


2434 


.3404 


ITRP 


044 








SET MOOE K=AO 


2A36 


5092 


ITRP 


045 








RDH U DA, AA 


2A38 


3085 


ITRP 


046 








U0=UG$K80 


2A3A 


7092 


ITRP 


047 








STH U DA, AA 


2A3C 


26F8 


ITRP 


048 








D0=D0+K0F 


2A3E 


1F2E 


ITRP 


049 








RST TA K=F2 


2A40 


2F08 


ITRP 


050 








SET TA K=40 


?A42 


EAC2 


ITRP 


051 


LOOPA 


051 


LOOPA 


BR IF TT6=0 


,?A44 


4F6F 


ITRP 


052 








TE=D0 


?A46 


0F20 


ITRP 


053 








RST TA K=02 


?A48 


EAC8 


ITRP 


054 


LOOPS 


054 


L00P8 


BR IF TT6=0 


2A4A 


IF2E 


ITRP 


055 








RST TA K=F2 


2A4C 


CIDl 


ITRP 


056 




058 


NOIST 


BR IF S4=l 


2A4E 


ACOE 


ITRP 


057 




IOIS 027 


CONVI 


BR 


2A50 


ACEO 


ITRP 


058 


NOI ST 


IDIS 028 


CONVA 


BR 






ITRP 


059 


* 




**** 


COMMUNICATION! 






ITRP 


06 


A TABLE 


ADDR^OIEO 






HEO 


226A 


ITRP 


061 


C8TRAP 






LINK D MMSK5=1 


OIE2 


IFOO 


ITRP 


062 








RST CCTRL K=80 


OIE4 


026A 


ITRP 
ITRP 


063 
064 


AENO 






RTN D MMSK5=0 






ITRP 


065 


* 




**** 


COMMUNICATION i 






ITRP 


066 


ATABLE 


A0DR=0120 






(J 120 


22EC 


I TRP 


06 7 


CCTRAP 






LINK H MMSK6=1 


0122 


IFOO 


ITRP 


068 








RST CCTRL K=80 


0124 


02EC 


ITRP 
ITRP 


069 
070 


AENO 






RTN H MMSK6=0 



GET MMSK f BA REGISTERS 

STORE STOP CODE 

STRIP BIT 7 

SET 1052 MODE 

SWITCH 1052 STATUS IF NECESSARY 

TURN BIT ONE ON 

STORE NEW STATUS 

CHANGE TO NEW LINE CHARACTER 

RESET ALL 

SET WRITE 

WAIT FOR REQUEST 

ISSUE LINE FEED 

RESET SHARE REQUEST 
WAIT FOR REQUEST 
RESET ALL 

DECIMAL CONVERT BYPASSED FOR MC 
TYPE MESSAGE 

SERVICE TRAP **** 

IGNORE 
COMMUNICATION 
CHANNEL 



IGNORE 

COMMUNICATION 
CHANNEL 



********************************** 

* CROSS REFERENCE FOR CSECT ITRP * 
********************************** 



ITRP 


Oil 


KAAN 


050 


ITRP 


012 


ITRP 


006 


ITRP 


016 


ITRP 


014 


ITRP 


024 


ITRP 


020 


ITRP 


042 


ITRP 


038 


ITRP 


051 


ITRP 


051 


ITRP 


054 


ITRP 


054 


ITRP 


058 


ITRP 


056 



ADOk 



WORD SEQUENCE NO* LABEL 



NEXTSEQ NEXTLABEL STATEMENT 
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IUBR 


001 


1E72 


E678 


IUBR 


002 


1E74 


2A23 


IUBR 


008 


1E76 


81 7C 


IU8R 


009 


1E78 


4286 


IUBR 


Oil 


1E7A 


1615 


IUBR 


012 


1E7C 


4806 


IUBR 


013 


1E7E 


8D7C 


IUBR 


014 



IJBR 002 



IUBR Oil 



UNCOBR 



AOK 



Oil 



UNCONDITIONAL 
AOK 



IBCH 003 
IBCH 076 
LERR 007 
IUBR 002 



IBCH 045 
IBCH 078 
LOPD 040 



IBCH 047 
IBCH 080 
MBBB 084 



BRANCH 
BR IF 00 BIT2=0 
T0=0$K02 
BR 
V=I 

90=DO*-K10 
I=U 

BR 
********************************** 

* CROSS REFERENCE FOR CSECT IUBR * 
********************************** 

IBCH 049 IBCH 051 I8CH 053 IBCH 055 IBCH 060 
IBCH 082 IBCH 125 ICLR 028 ICYC 085 INRU 052 
MNNN 003 MPRT 376 MPRT 392 MPRT 410 MQQQ 014 



I ERR 034 ST CODE 



ICYC 037 HISTRT 



12/20/66 R. C. HUANG 
BR IF A STAR VALID 



STORE I* IN B* 
8* VALID 
XFER A* TO I* 
RETURN TO I CYCLE 



IBCH 068 
IZWM 008 
MQQQ 029 



IBCH 070 
IZWM 023 



IBCH 072 
JEND 133 



IBCH 074 
JEND 146 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 
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IZWM 


001 


T 




BRANCH ON ZONE, 


WORD MARK OR 


0100 


5D3A 


izwm 


002 


ZNWMBT 








RDB PI V-i 


0102 


8309 


IZWM 


003 






004 


MODIFR N 


N=D1 BITS67 


0400 


807C 


IZWM 


004 


MODIFR 


I CYC 


037 


HISTRT 


BR 


0402 


8424 


1 1 m 


005 


MOD IF R 1 




022 


WM 


BR 


0404 


840E 


IZWM 


006 


MOOIFR 2 




on 


NOTWM 


BR 


0406 


DOOF 


IZWM 


007 


MOOIFR 3 




Oil 


NOTWM 


BR IF PI BIT 


0408 


9E72 


IZWM 


008 


END 


IUBR 


002 


UNCDBR 


BR 


040A 


3685 


IZWM 


009 


BRIBIT 








00=D0$K80 


040C 


50 3A 


IZWM 


010 










RDB PI V-l 


040E 


3045 


IZWM 


Oil 


NOTWM 








P1=P1$K40 


0410 


5FC0 


IZWM 


012 










RDB HI AS,P 


0412 


5709 


IZWM 


013 










Pi=Dl 


0414 


55C0 


IZWM 


014 










RDB Gl AS,P 


0416 


C61E 


IZWM 


015 






019 


NOTBIT 


BR IF DO BIT 


0418 


65F? 


IZWM 


016 










G1=G1*H1 


041A 


C488 


IZWM 


017 






008 


END 


BR IF ZNZ 


041C 


807C 


IZWM 


018 




ICYC 


037 


HISTRT 


BR 


041E 


6F51 


IZWM 


019 


NOTBIT 








Hl=HlaGl 


0420 


E089 


IZWM 


020 






008 


END 


BR IF HZ=0 


0422 


8D7C 


IZWM 


021 


IEND 


ICYC 


037 


HISTRT 


BR 


0424 


0023 


IZWM 


022 


WM 




021 


IEND 


BR IF PI 8IT 


0426 


9E72 


IZWM 


023 




IUBR 


002 


UNCDBR 


BR 
















********************** 
















* CROSS REFERENCE FOR 
















**********************: 



BIT TEST, KRAGER 

READ B FIELD 
DECODE D MODIFIER 
IN VALID- IGNORE 



1=1 



0=0 



GO TEST ZONE BITS 
BR IF NO WM BIT 
WM-GO BRANCH 
SET BIT TEST FLAG 
READ B FIELD 
INSURE 1 BIT ON 
CONVERT B FLD TO 8C0 

CONVERT D MODIFIER TO BCD 
BR IF NOT BIT TEST 
COMPARE BITS 



COMPARE ZONES 



1=1 



BR IF NO WM BIT 



************ 

CSECT IZWM * 
************ 



IZWM 


002 


ICYC 


237 




IZWM 


004 


IZWM 


003 




IZWM 


008 


IZWM 


017 


IZWM 020 


IZWM 


009 


ICYC 


238 




IZWM 


Oil 


IZWM 


006 


IZWM 007 


IZWM 


019 


IZWM 


015 




IZWM 


021 


IZWM 


022 




IZWM 


022 


IZWM 


005 
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JCHL OESCRIPTIVE TEXT 



ENTRY POINTS 



JCHL 



CHL25 



CHL53 



THIS IS THE NORMAL ENTRY POINT FOR INITIAL CHANNEL 
SELECTION FOR TAPE OPERATIONS. ENTRY HERE IS FROM 
JOOE FOLLOWING OPERATION DECODE, 



ENTRY HERE IS FROM CHANNEL LOW ISTATUS* TRAP FOLL- 
OWING AN EARLY UNVALIDI TAPE DISCONNECT ON WRITE 
OPS, OTHER ENDING CONDITIONS BRANCH HERE FROM 
WITHIN THIS ROUTINE. 

ENTRY IS FROM CHANNEL LOW TRAP ENDING ROUTINE ON 
READ OPERATIONS. 



3BJECTIVES 

1. PERFORM INITIAL CHANNEL SELECTION. 

2. DO MODE SET, TIE, OR DATA COMMANDS. 

DO CONTROL COMMANDS. 

4. LOOP WAIT FOR DATA TRAPS AS LONG AS BURST MODE 

LATCH IS ON. 

5. SET PARITY AND DENSITY. 

6. CHECK FOR SHORT RECORDS DURING READ OPS. 



ADDR 



WORD SEQUENCE NO. LABEL 



JCHL 


001 


T 


JCHL 


002 


* 


JCHL 


003 


* 


JCHL 


004 


* 


JCHL 


005 


* 


JCHL 


006 


* 


JCHL 


007 


* 


JCHL 


008 


* 


JCHL 


009 


* 


JCHL 


010 


# 


JCHL 


Oil 


* 


JCHL 


012 


* 


JCHL 


013 


* 


JCHL 


014 


* 


JCHL 


015 


* 


JCHL 


016 


* 


JCHL 


017 


* 


JCHL 


018 


* 


JCHL 


019 


* 


JCHL 


020 


* 


JCHL 


021 


# 


JCHL 


022 


* 


JCHL 


023 


* 


JCHL 


024 


* 


JCHL 


025 


* 


JCHL 


026 


* 


JCHL 


027 


* 


JCHL 


028 


# 



NEXTSEQ NEXTLABEL STATEMENT 
1401 TAPE CHANNEL 



COMMENTS 



TAPE AUX STORAGE DESCRIPTION 
**************************************** ********* ********************** 

0080 * 

BIT LAST OP WAS A WRITE OR WRITE TAPE MARK. * 

BITS 1-3 LAST 1401 DRIVE ADDRESSED. * 

BITS 4-7 TAPE CONTROL U^IT ADDRESS * 

*********************************************************************** 

*********************************************************************** 

008X * 

X EQUALS 1401 TAPE DRIVE NUMBER. * 

00 FOR 7 TRACK DRIVE TO RUN AT 200 BITS PER INCH. * 

01 FOR 7 TRACK DRIVE TO RUN AT 556 BITS PER INCH. * 

10 FOR 7 TRACK DRIVE TO RUN AT 800 BITS PER INCH. * 

11 FOR ALL 9 TRACK DRIVES. * 

* 

LAST OP WAS A BACKSPACE. * 

THIS BIT IS TURNED ON FOR END OF FILE AND TURNED OFF * 

WHEN THE END OF FILE BRANCH IS TAKEN. * 

BITS4-7 360 TAPE DRIVE ADDRESS. * 

*********************************************************************** 

*********************************************************************** 

0087 * 

LAST TAPE STATUS. * 

*********************************************************************** 



BITS 0,1 



BIT 2 
BIT 3 



AD OR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E40 f EC LEVEL=128?11 PAGE 102 
COMMENTS 



JCHL 


029 


* 


JCHL 


030 


* 


JCHL 


031 


* 


JCHL 


032 


* 


JCHL 


033 


* 


JCHL 


034 


* 


JCHL 


035 


* 


JCHL 


036 


* 


JCHL 


037 


* 


JCHL 


038 


* 


JCHL 


03 9 


* 


JCHL 


040 


* 


JCHL 


041 


* 


JCHL 


042 


* 


JCHL 


043 


* 


JCHL 


044 


* 


JCHL 


04$ 


* 


JCHL 


046 


* 


JCHL 


047 


* 


JCHL 


048 


* 


JCHL 


049 


♦ 


JCHL 


050 


* 


JCHL 


051 


* 


JCHL 


052 


* 


JCHL 


053 


* 


JCHL 


054 


* 


JCHL 


055 


* 


JCHL 


056 


* 


JCHL 


05 7 


* 


JCHL 


058 


♦ 


JCHL 


059 


* 


JCHL 


060 


* 


JCHL 


061 


* 


JCHL 


062 


♦ 


JCHL 


063 


* 


JCHL 


064 


* 


JCHL 


065 


* 


JCHL 


066 


* 


JCHL 


067 


* 


JCHL 


068 


* 


JCHL 


069 


* 


JCHL 


070 


* 


JCHL 


071 


* 


JCHL 


072 


* 


JCHL 


073 


* 


JCHL 


074 


* 


JCHL 


075 


* 


JCHL 


076 


* 


JCHL 


077 


* 


JCHL 


078 


* 


JCHL 


079 


* 


JCHL 


080 


* 


JCHL 


081 


♦ 



************************* ********************************************** 

0090-0093 TAPE SENSE BYTES 0-3 
TAPE SENSE BYTES STORED AFTER READ ERROR OR 
WHEN TAPE INTERVENTION IS REQUIRED-8F HALT 
***************************** ******************** ********************** 

*********************************************************************** 

0094-0095 
STAR 
*********************************************************************** 

*********** ****************************************************** ****** 

0096 
BIT UNUSED. * 

BITS 1-6 END OF FILE BLOCK BIT. BIT 2 FOR 1401 DRIVE 2 ETC. * 

BIT 7 UNUSED. * 

*********************************************************************** 

*********************************************************************** 

0098 * 
BIT REWIND OR REWIND UNLOAD FLAG- * 
BITS 1-6 END OF FILE BLOCK BIT RESET MASK. * 
BIT 7 UNUSED* * 

*********************************************************************** 

*********************************************************************** 

0099 * 
TAPE CONTROL BYTE ADDRESS. * 

*********************************************************************** 



*********************************************************************** 

009A * 

BIT ODD REDUNDANCY FLAG. * 

BIT 1 9 TRACK OP. * 

BITS 2-7 TEMPORARY COMMAND STORAGE. * 

*********************************************************************** 

*********************************************************************** 

009B * 

TEMPORARY STORAGE FOR DEVICE ADDRESS. * 

*********************************************************************** 

*********************************************************************** 

00B9 * 

BIT 2 ERASE BIT. * 

BIT 3 ALTERNATE 9 TRACK NODE. * 

*********************************************************************** 

*********************************************************************** 

OOBA * 

9 TRACK BYTE. BIT 2 IS ON IF 360 DRIVE 2 IS 9 TRACK ETC** 

*********************************************************************** 



4 DDR 



WORO SEQUENCE NO. 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLOAD=*E40t EC LEVEL=1282 11 

COMMENTS 
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JCHL 


082 


* 












JCHL 


083 


* 


************************************* 






JCHL 


084 


* 






OOBB 






JCHL 


085 


* 






PHASE ENCODE BYTE* BIT 






JCHL 


086 


* 






WRITE IN P*E* MODE ETC* 






JCHL 


087 


* 


************************************* 


177E 


5FB9 


JCHL 


088 


CHNL 






T1 = H1 


1780 


3486 


JCHL 


089 








SET MODE K=B8 


1782 


221E 


JCHL 


090 


CHL10 






SET MMSK K=71 


17 84 


2D85 


JCHL 


091 








P1=0$K80 


1786 


57C0 


JCHL 


092 








RDB Dl AS,P*0 


1788 


4FFF 


JCHL 


093 


CHL11 






GB/0UT=H1 


178A 


2B04 


JCHL 


094 








SET GA K=20 


178C 


2B44 


JCHL 


095 








SET GA K=24 


178E 


C9DB 


JCHL 


096 


CHL13 


115 


CHL12 


BR IF GT BIT4=1 


17 90 


FDA5 


JCHL 


097 




107 


CHL27 


BR IF GT BIT3=1 


179 2 


D08F 


JCHL 


098 




096 


CHL13 


BR IF GT BIT 1=1 


1794 


2A27 


JCHL 


099 


NGADDR 






TG=0$K22 


1796 


3A23 


JCHL 


100 


CHL25 






T0=T0$K02 


1798 


7AF2 


JCHL 


1 01 








STH T DA, BE 


179A 


02 IE 


JCHL 


102 








RST MMSK K=71 


179C 


0214 


JCHL 


103 








RST MMSK K=21 


179E 


3400 


JCHL 


104 








SET MODE K=80 


17A0 


98EA 


JCHL 


105 




IREG 016 


RSTREG 


BAL 


17A2 


A044 


JCHL 


106 




IDIS 003 


STOPPP 


BR 


17A4 


2B04 


JCHL 


107 


CHL27 






SET GA K=20 


17A6 


F0A7 


JCHL 


108 


CHL22 


108 


CHL22 


BR IF GT 8IT3=l 


17A8 


C9A9 


JCHL 


109 


CHL23 


109 


CHL23 


BR IF GT BIT 4=1 


17AA 


2B00 


JCHL 


110 








SET GA K=00 


17AC 


021E 


JCHL 


111 








RST MMSK K=71 


17AE 


2D2B 


JCHL 


112 


STAY 






P1=P1+K02 


17B0 


EOAE 


JCHL 


113 




112 


STAY 


BR IF HZNZ 


17B2 


9782 


JCHL 


114 




090 


CHL10 


BR 


17 DA 


2B40 


JCHL 


115 


CHL12 






SET GA K=04 


17DC 


021E 


JCHL 


116 








RST MMSK K=71 


170E 


CDDE 


JCHL 


117 


CHL14 


117 


CHL14 


BR IF GT BITG=0 


17E0 


5FAF 


JCHL 


118 








TO=GB/IN 


17E2 


6AF1 


JCHL 


119 








TO=TOaHl 


17E4 


C494 


JCHL 


120 




099 


NO ADDR 


BR IF ZNZ 


17E6 


4F4F 


JCHL 


121 


CHL24 






GB/0UT = G0 


17E8 


2B42 


JCHL 


122 


CHL30 






SET GA K=14 


17 EA 


FDEA 


JCHL 


123 


CHL31 


123 


CHL31 


BR IF GT BIT3=0 


17 EC 


5FEF 


JCHL 


124 








HO=GB/IN 


17EE 


FE34 


JCHL 


125 


CHL34 


129 


CHL32 


BR IF H03=Q 


17F0 


2B00 


JCHL 


126 








SET GA K=00 


17F2 


2B08 


JCHL 


127 








SET GA K=40 


17F4 


97A6 


JCHL 


128 




108 


CHL22 


BR 


17B4 


044B 


JCHL 


129 


CHL32 






Z=G0aK04 


17B6 


C4BA 


JCHL 


130 




132 


CHL52 


BR IF ZNZ 


17B8 


8808 


JCHL 


131 




208 


SENSE 


BR 


17BA 


5FFF 


JCHL 


132 


CHL52 






H1=GB/IN 


178C 


5842 


JCHL 


133 








RDH I DA, 98 


17BE 


E645 


JCHL 


134 




137 


CHL50 


BR IF DO 2=1 



********************************** 

* 
2 IS ON IF 360 DRIVE 2 IS TO * 

* 
************ **************** ****** 

SAVE DEVICE ADDRESS 

CHANNEL EXTERNALS, CPU ZONE 

BLOCK ALL TRAPS-LEVEL 1 

P=C080 

GET TCU CTRL BYTE 

DEVICE ADDR ON BUS OUT 

SET ADDR-OUT 

SET SELECT-OUT 

CHECK OP-IN 

CHECK STATUS-IN 

CHECK SELECT-IN 

SET NO ADDR COMPARE STOP CODE 

OR IN BIT 6 TO STOP CODE 

STORE STOP CODE 

RESET THE BLOCK TRAP REGISTER 

MMSK SHOULD BE OFF,RST MMSK 2 

RESTORE TO CPU MODE 

RESTORE REGS U,V,I,G,D 

STOP 

RESET SELECT-OUT 

STATUS-IN 

OP-IN 

RESET ADDR-OUT 

RESET THE BLOCK TRAP REGISTER 

WAIT FOR APP. 125 MICROSECONDS 
BEFORE RE- SELECTING 

OP IN-RESET ADDR-OUT 

RESET MMSK, ALLOW R/P TRAPS 
ADDR- IN 

DEVICE ADDR FROM BUS IN 
COMPARE ADDRESSES 
ADDR MISMATCH BR 
CMD OR MODE SET ON BUS OUT 
CMD-OUT 
STATUS-IN 

BUS IN FOR TESTING 
BUSY BIT 

RESET SELECT-OUT AND ADDR OUT 
ISSUE COMMAND-OUT 
RETURN TO SHORT BUSY LOOP 
NOT BUSY-MASK FOR SENSE OP 
BR IF NOT SENSE OP 

NOT SENSE OP-GET UNIT STATUS 

GET TU CTRL BYTE ADR-98 
TEST IF FSR OP 



AODK 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


17CO 


C646 


JCHL 


135 




138 


CHL51 


BR IF 000^0 


17C2 


3983 


JCHL 


136 








Ii*Il$KQ8 


17C4 


2F07 


JCHL 


137 


CHL50 






H1=Q 


17C6 


3073 


JCHL 


138 


CHL51 






P1=P1$K07 


17C8 


7FC0 


JCHL 


139 








STB HI AS,P*0 


17CA 


4973 


JCHL 


140 








D1=I1XH+D1L 


17CC 


2085 


JCHL 


141 








P1=0$K80 


17CE 


77C8 


JCHL 


142 








STB Dl AStPi-1 


170Q 


0EC3 


JCHL 


143 








Z=H0*-K0C 


17D2 


C406 


JCHL 


144 




146 


CHL56 


BR IF ZNZ 


1704 


A238 


JCHL 


145 




148 


CHL57 


8R 


1706 


2808 


JCHL 


146 


CHL56 






SET GA K=40 


1708 


A212 


JCHL 


147 




176 


CHL62 


BR 


2238 


CA4D 


JCHL 


148 


CHL57 


158 


CHL53 


BR IF H04=l 


223A 


2B48 


JCHL 


149 








SET GA K=44 


223C 


FOBD 


JCHL 


150 


CHL80 


150 


CHL80 


BR IF GT 81T3=1 


223E 


0616 


JCHL 


151 




190 


CHL87 


BR IF 001=0 


2240 


201F 


JCHL 


152 








Pl=Pl*Kli 


2242 


5DC0 


JCHL 


153 








ROB PI AS,P+0 


2244 


4F0F 


JCHL 


154 








GB/OUT=Pl 


2246 


EDC6 


JCHL 


155 


CHL81 


155 


CHL81 


BR IF GT BIT2^0 


2248 


2B48 


JCHL 


156 








SET GA K=44 


224A 


FOCA 


JCHL 


157 


CHL82 


157 


CHL82 


BR IF GT BIT3=0 


224C 


2800 


JCHL 


158 


CHL53 






SET GA K=00 


224E 


2808 


JCHL 


159 








SET GA K=40 


2250 


F001 


JCHL 


160 


CHL54 


160 


CHL54 


BR IF GT 8IT3=i 


2252 


C9D3 


JCHL 


161 


CHL55 


161 


CHL55 


BR IF GT BIT4=1 


2254 


0214 


JCHL 


162 








RST MMSK K=2i 


22 56 


D602 


JCHL 


163 




168 


CHL60 


BR IF 001*0 


2258 


5549 


JCHL 


164 








G0=G1 


22 5A 


1645 


JCHL 


165 








DO=DO*-K40 


225C 


5BF9 


JCHL 


166 


CHL61 






Hi=Tl 


2256 


9782 


JCHL 


167 




090 


CHL10 


BR 


2202 


C593 


JCHL 


168 


CHL60 


176 


CHL62 


BR IF SO=i 


2204 


5EC2 


JCHL 


169 








ROH H DA f B8 


2206 


EF10 


JCHL 


170 




175 


CHL64 


BR IF H12*0 


2208 


1F25 


JCHL 


171 








H1=H1*~K20 


220A 


7EC2 


JCHL 


172 








STH H DA,B8 


220C 


98EA 


JCHL 


173 




IREG 016 


RSTREG 


BAL 


220E 


937C 


JCHL 


174 




JTPE 002 


UADMCK 


BR 


22 10 


843A 


JCHL 


175 


CHL64 


178 


CHL72 


BR 


22 12 


2443 


JCHL 


176 


CHL62 






G0*0$K04 


2214 


A25C 


JCHL 


177 




166 


CHL61 


BR 


04 3 A 


FCA8 


JCHL 


178 


CHL72 


181 


CHL71 


BR IF GS 8IT3=0 


04 3C 


2 A 45 


JCHL 


179 








T0-0SK40 


04 36 


9796 


JCHL 


180 




100 


CHL25 


BR 


0428 


5F42 


JCHL 


181 


CHL71 






ROB Hi DA, 98 


042A 


CF39 


JCHL 


182 




189 


CHL85 


BR IF H10=l 


042C 


2D95 


JCHL 


183 








P1=0$K9G 


0426 


3063 


JCHL 


184 








Pl^Pl$K06 


04 30 


5 ICO 


JCHL 


185 








ROB Ul AS,P+0 


0432 


1FFF 


JCHL 


186 








Hl=HlaKFF 


0434 


6F17 


JCHL 


187 








Hl=Hi*Ui 



CL0AD=*E40, EC LEVEL=1282U 
COMMENTS 

BR IF NOT WR-WTM OP 
SET WR-WTM IND FOR USE IN TRAP 
WTM OR FSR THIS OP-SET STATUS 
STATUS BYTE AOOR*0087 
STORE STATUS BYTE 

UPDATE LAST TU ADR BIT IN TCUBYT 
TCU CTRL BYTE ADR=0080 
STORE TCU CNTL BYTE-008G 
TEST FOR ANY STATUS OTHER THAN 
CHANNEL END OR DEVICE END 

ISSUE SERVICE OUT 

CHECK CHANNEL END 
ISSUE SERVICE OUT 
WAIT FOR FALL OF STATUS-IN 
CK IF TIE BEING PERFORMED 
TIE-GET TIE BYTE IN 0092 
TIE BYTE 

TIE BYTE ON BUS-OUT 
WAIT FOR RISE OF SERVICE-IN 
ISSUE SERVICE OUT 
WAIT FOR RISE OF STATUS-IN 
RESET SELECT-OUT 
ISSUE SERVICE-OUT 
WAIT FOR FALL OF STATUS-IN 
WAIT FOR FALL OF OP-IN 
RESET MMSK 2 IF ON 
CHECK IF MODE SET 
MODE SET PERFORMED-GET COMMAND 
RESET MODE SET FLAG-DOl 
RESTORE DEVICE ADDRESS 
RETURN TO CHANNEL 
NOT MODE SET, TEST UNIT CHECK 
GET FSR AND ERASE BITS-890,1,2 
ERASE LATCH-H12 
RESET ERASE BIT 
RESTORE FLAG BYTE IN B9 
RESTORE REGS U,V,I,G,D 
ERASE COMPLETE-GO DO WRITE OP 

SENSE 0P-CGMMAND=04 
PERFORM SENSE COMMAND 
TEST FOR ZERO CHANNEL STATUS 
CHNL STATUS NOT ZERO 
STOP 

GET EOF BLOCK MASK 
BR IF NOT REW OR RUN CMD 
ADDR OF EOF BLOCK BITS- 
SET P=0096 
GET EOF BLOCK BITS 
INVERT MASK 
RESET EOF BLOCK BIT 



PAGE 104 



ADOR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLA8EL 


. STATEMENT 


04 36 


7FCG 


JCHL 


188 








STB HI AS»P 


0438 


9DE4 


JCHL 


189 


CHL85 


JOTA 055 


0TA23 


BR 


22 16 


76F2 


JCHL 


190 


CHL87 






STH DA, BE 


22 18 


34F6 


JCHL 


191 








SET MODE K=BF 


22 1A 


56F2 


JCHL 


192 








RDH DA, 8E 


22 1C 


5752 


JCHL 


193 








ROB Dl DA,9A 


2216 


20*5 


JCHL 


194 








U0=0$K60 


2220 


3003 


JCHL 


195 








UQ=UO$K0D 


2222 


2143 


JCHL 


196 








Ul=0$K04 


22 24 


5222 


JCHL 


197 








RDH V DA,8C 


2226 


C72E 


JCHL 


198 




202 


CHL90 


BR IF 010=0 


22 28 


5111 


JCHL 


199 








U1=U1X 


222A 


072E 


JCHL 


200 




202 


CHL90 


BR IF 011=0 


22 2C 


1045 


JCHL 


201 








UG=U0*-K4G 


222E 


5C79 


JCHL 


202 


CHL90 






D1=U0 


2230 


02 IE 


JCHL 


203 








RST MMSK K=71 


22 32 


20C4 


JCHL 


204 








SET GB K=20 


2234 


EC80 


JCHL 


205 


CHL91 


207 


WREND 


BR IF GS2=0 


2236 


A234 


JCHL 


206 




205 


CHL91 


BR 


2200 


9DE2 


JCHL 


207 


WREND 


JOTA 054 


OTAENO 


BR 


08D8 


2B48 


JCHL 


208 


SENSE 






SET GA K=44 


080A 


AA31 


JCHL 


209 




222 


SENCHK N 


BR IF HO=NZ 


08 DC 


2D95 


JCHL 


210 








P1=0$K90 


08DE 


EODE 


JCHL 


211 


CHL92 


211 


CHL92 


BR IF GT2=0 


08EO 


0917 


JCHL 


212 




217 


CHL96 


BR IF Pi BIT5=1 


08E2 


5F7F 


JCHL 


213 








D1=GB/IN 


08E4 


2B48 


JCHL 


214 








SET GA K=44 


08E6 


77C8 


JCHL 


215 








STB 01 AS,P+1 


08E8 


880E 


JCHL 


216 




211 


CHL92 


BR 


0896 


2B42 


JCHL 


217 


CHL96 






SET GA K=14 


0898 


FD98 


JCHL 


218 


CHL97 


218 


CHL97 


BR IF GT3=Q 


089A 


28 00 


JCHL 


219 








SET GA K=OG 


089C 


2B08 


JCHL 


220 








SET GA K=40 


089E 


C5A5 


JCHL 


221 




224 


CHL93 


BR IF S0=i 


08AO 


3A79 


JCHL 


222 


SENCHK 






T0=0-K70 


08A2 


9796 


JCHL 


223 


CHL94 


100 


CHL25 


BR 


08 A 4 


2A95 


JCHL 


224 


CHL93 






T0=0$K90 


08A6 


01A3 


JCHL 


225 




223 


CHL94 


BR IF S5=l 


08A8 


302B 


JCHL 


226 








P1=P1-K02 


08AA 


5FC0 


JCHL 


227 








ROB HI AS,P 


08AC 


CF56 


JCHL 


228 




250 


NONOIS 


BR IF H10=0 


08AE 


4A26 


JCHL 


229 








T=V 


08B0 


20D3 


JCHL 


230 








UO=0$KOD 


08B2 


6B0B 


JCHL 


231 








TiC=Tl+UO 


08B4 


6ACD 


JCHL 


232 








T0C=T0+P0+C 


0886 


5E22 


JCHL 


233 








ROH H DA, 8C 


0888 


7FB9 


JCHL 


234 








H1C=H1-T1+C 


088A 


7EA9 


JCHL 


235 








HOC=HO-TO*C 


08BC 


F507 


JCHL 


236 




250 


NONOIS 


BR IF S3=l 


08BE 


0345 


JCHL 


23 7 




240 


CHLAO 


BR IF 015=1 


08C0 


2AC7 


JCHL 


238 








TO=0$KCC 


08C2 


9 796 


JCHL 


239 




100 


CHL25 


BR 


08C4 


5730 


JCHL 


240 


CHLAO 






ROB 01 V+0 



CL0AD=*E40, EC LEVEL=1232I1 

COMMENTS 

STORE EOF BLOCK BITS IN 0096 

MOVE 00 FLAGS TO CHNL ZONE 
SET CHNL MODE AND ZONE 
FLAGS NOH IN CHANNEL ZONE 
GET 000 REDUN AND 9-TRK FLAGS 
FORM WORO SEPARATOR=60 FOR 

EVEN REDUNDANCY 
EVEN REDUNDANCY MASK=04 
GET DATA ADDR=B-STAR 
CK IF EVEN REDUNDANCY 
000 REDUNDANCY MASK=40 
CK IF 7-TRACK TAPE 
9-TRK-MAKE WS=2D FOR ODD REDUN 
SAVE WS FOR TESTING 
ALLOW LEVEL 1 TRAPS 
SET BURST MOOE LATCH 
BR IF BURST LATCH OFF 
WAIT FOR TRAPS 
GO TO WRITE END ROUTINE 
ISSUE SERVICE OUT 
TEST FOR STATUS NON-ZERO 
SET UP STARTING ADDR-0090 
CHECK IF SERV-IN IS UP 
BR IF SENSE BYTES 0-3 COMPLETED 
GET SENSE BYTE 
SEL-OUT AND SERVICE-OUT 
STORE SENSE BYTES IN AS 0090-3 
GET NEXT SENSE BYTE 
SET COM-OUT 
WAIT FOR STATUS-IN 
RESET SELECT-OUT 
ISSUE SERVICE-OUT 
BR IF UNIT CHECK ON READ OP 
TAPE INT. REQUIRED-SET 8F HALT 

SET-UNIT CHK ON IPL-STOP CODE 

BR IF IPL 

SET ADDR TO 0091 

READ SENSE BYTE 1 

BR IF NOISE BIT OFF 
GET STARTING B-STAR ADDR* 
SET COUNT OF 13 
ADD 13 TO B-STAR 
P0=0 

GET ENDING B-STAR 
SUBTACT INCREMENTED B-STAR 

FROM ENDING 8-STAR 
CK IF LESS THAN 13 CHARACTERS 
CK PHASE-ENCODED BIT IN SENSE 3 

SET UP STOP CODE-CE 
RESTORE LS AND STOP 
GET STORED DATA LOCATIONS. BLANK 
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AD OR 



WORD SEQUENCE NO* LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E40, EC LEVEL=1282 11 
COMMENTS 
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JCHL 241 


* 




GU 1 


08C6 


07F6 


JCHL 242 








08C8 


C4CF 


JCHL 243 




246 


CHLAi 


08CA 


577B 


JCHL 244 








08CC 


17B5 


JCHL 245 








8CE 


7738 


JCHL 246 


CHLA1 






0800 


20FF 


JCHL 247 








J8D2 


C4C4 


JCHL 248 




240 


CHLAO 


08 04 


90E2 


JCHL 249 




JOTA 054 


OTAEND 


0806 


90E4 


JCHL 250 


NONOI S 


JOTA 055 


0TA23 



OUT THE FIRST 13 LOCATIONS* SAVE ANY GMWM AND ANY WORD MARKS 
Z^OlaKOF TEST FOR GMWM 

BR IF Z=0 

D1=D1H SET BLANK AND 

Dl=Di*-KBO SAVE WQRDMARK 

STB Dl V + i STORE BLANKED OUT DATA 

UO=UO+KFF DECREMENT COUNTER 

BR IF ZNZ Z=0=12 CHARACTERS BLANKED OUT 

BR 
BR 
********************************** 

* CROSS REFERENCE FOR CSECT JCHL * 
********************************** 



JCHL 


088 


JODE 


081 






JCHL 


090 


JCHL 


114 


JCHL 167 




JCHL 


096 


JCHL 


098 






JCHL 


099 


JCHL 


120 






JCHL 


100 


JCHL 


180 


JCHL 223 JCHL 


239 JEND 080 


JCHL 


107 


JCHL 


097 






JCHL 


108 


JCHL 


108 


JCHL 128 




JCHL 


109 


JCHL 


1C9 






JCHL 


112 


JCHL 


113 






JCHL 


115 


JCHL 


096 






JCHL 


117 


JCHL 


117 






JCHL 


123 


JCHL 


123 






JCHL 


129 


JCHL 


125 






JCHL 


132 


JCHL 


130 






JCHL 


137 


JCHL 


134 






JCHL 


138 


JCHL 


135 






JCHL 


146 


JCHL 


144 






JCHL 


148 


JCHL 


145 






JCHL 


150 


JCHL 


150 






JCHL 


155 


JCHL 


155 






JCHL 


157 


JCHL 


157 






JCK 


158 


JCHL 


148 


JEND 128 




JCHL 


160 


JCHL 


160 






JCHL 


161 


JCHL 


161 






JCHL 


166 


JCHL 


177 






JCHL 


168 


JCHL 


163 






JCHL 


175 


JCHL 


170 






JCHL 


176 


JCHL 


147 


JCHL 168 




JCHL 


178 


JCHL 


175 






JCHL 


181 


JCHL 


178 






JCHL 


189 


JCHL 


182 






JCHL 


190 


JCHL 


151 






JCHL 


202 


JCHL 


198 


JCHL 200 




JCHL 


205 


JCHL 


2C6 






JCHL 


207 


JCHL 


2G5 






JCHL 


208 


JCHL 


131 






JCHL 


211 


JCHL 


211 


JCHL 216 




JCHL 


217 


JCHL 


212 






JCHL 


218 


JCHL 


218 






JCHL 


222 


JCHL 


209 







JCHL 223 

JCHL 224 

JCHL 240 

JCHL 246 

JCHL 250 



JCHL 225 
JCHL 221 
JCHL 237 
JCHL 243 
JCHL 228 



********************************** 

* CROSS REFERENCE FOR CSECT JCHL * 
********************** ************ 



JCHL 248 



JCHL 236 
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JOTA DESCRIPTIVE TEXT 



ENTRY POINTS 
0170 



OTAEND 



DTA23 



NORMAL ENTRY POINT FOR READ OR WRITE TRAPS FROM 
JCHL. 



NORMAL ENTRY FROM JCHL WHEN BURST MODE LATCH IS 
OFF (INDICATING DATA END! DURING WRITE OPS* ALSO 
USED AS ENTRY AFTER SOME SENSE OPS FOLLOWING A 
READ ERROR. 



ENTERED FROM JCHL* NORMAL ENDING FOR READ AND 



CONTROL OPERATIONS* 

OBJECTIVES 

1. SERVICE TAPE CONTROL FOR READ OR WRITE DATA. 

2. TEST FOR GMWM IN STORAGE. 

3. RESET BURST LATCH. 

4. HANDLE WORD MARKS AND WORD SEPARATORS TO AND FROM 

TAPE. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






JDTA 


001 


T 


1401 


TAPE READ 


AND WRITE DATA 1 






JDTA 


002 


A TABLE 


ADDR=0170 






0170 


2240 


JDTA 


003 








LINK G MMSKO=i 


0172 


CIF7 


JDTA 


004 




006 


RD 


BR IF S4=l 


0174 


AD46 


JDTA 


005 




033 


WRITE 


BR 


0176 


AOOE 


JDTA 
JDTA 


006 
007 


RO 

AEND 


008 


READ 


BR 


200E 


5F4F 


JDTA 


008 


READ 






GO=GB/IN 


2010 


2B48 


JDTA 


009 








SET GA K = 44 


2012 


5419 


JDTA 


010 








U1 = G0 


20 14 


5530 


JDTA 


Oil 








RDB Gl V*0 


2016 


05FB 


JDTA 


012 








Z=G1QK0F 


2018 


C4B1 


JDTA 


013 




022 


DTA15 


BR IF 2=0 


201A 


E234 


JDTA 


014 


DTAIO 


027 


DTA11 


BR IF 006=0 


201C 


1145 


JDTA 


015 








U1=U1*-K40 


201E 


5709 


JDTA 


016 


LOAD 






U0=01 


2020 


6041 


JDTA 


017 








UO=UOQGO 


2022 


C4AB 


JDTA 


018 




024 


WSSENT 


BR IF Z=0 


2024 


1623 


JDTA 


019 








D0=D0*-K02 


2026 


7138 


JDTA 


020 


DTA12 






STB Ul V*l 


2028 


0240 


JDTA 


021 








RTN G MMSKO^O 


2030 


0198 


JDTA 


022 


DTA15 


014 


DTAIO 


BR IF S5=l 


20 3 2 


0240 


JDTA 


023 








RTN G MMSKO=0 


202A 


£227 


JO TA 


024 


WSSENT 


020 


DTA12 


BR IF 006=1 


202C 


3623 


JDTA 


025 








D0=00$K02 


202E 


0240 


JDTA 


026 








RTN G MMSKO=0 


20 34 


3145 


JDTA 


02 7 


DTA11 






Ui=Ul$K40 


2036 


F21E 


JDTA 


028 




016 


LOAD 


BR IF 007=0 


2038 


D527 


JDTA 


02 9 




020 


DTA12 


BR IF Gll=l 



COMMENTS 



BLOCK LOWER PRIORITY TRAPS 

CK IF READ OP 

DO WRITE DATA LOOP 

DO READ DATA LOOP 

GET READ DATA IN FROM TAPE 
ISSUE SERVICE-OUT 

SAVE READ DATA 
GET NEXT STORAGE LOCATION 
TEST FOR GMWM 

IN STORAGE 
WAS WORD SEPARATOR SENT LAST 
WS SENT LAST-INSERT WD MARK 
RESTORE WS FOR TEST 
TEST DATA BYTE FOR WORD 

SEPARATOR CHARACTER 
NO WS THIS-RESET WS LAST FLAG 
STORE OAT A 

ALLOW TRAPS-WAIT FOR SERV-IN 
CK IF IPL 
ALLOW TRAPS 
WAS WS SENT LAST 
SET WS SENT LAST FLAG 
ALLOW TRAPS-WAIT FOR SERVICE-IN 
NO WS-REST WM BIT IN DATA BYTEV 
CK IF READ-LOAD OP 
TEST IF WD MARK IN STORAGE 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


203A 


1145 


JDTA 


030 




203C 


7138 


JOTA 


031 




203E 


0240 


JOTA 


032 




2046 


E255 


JDTA 


033 


WRITE 


2048 


5538 


JDTA 


034 




2D4A 


05FB 


JOTA 


035 




2D4C 


C4BF 


JDTA 


036 




204E 


0536 


JDTA 


037 




2050 


5178 


JDTA 


03 8 




20 52 


A058 


JDTA 


039 




2036 


F257 


JOTA 


040 


WMINST 


2038 


3 62 3 


JDTA 


041 




203A 


4F0F 


JDTA 


042 




203C 


AD5C 


JDTA 


043 




2054 


1623 


JDTA 


044 


WRLOAO 


2D56 


5173 


JDTA 


045 


0TA22 


2058 


6571 


JDTA 


046 


DTA21 


2D5A 


4F5F 


JDTA 


047 




2 DSC 


2B48 


JDTA 


048 


DTA24 


20 5E 


0240 


JDTA 


049 




20 3E 


2B00 


JDTA 


050 


GMWM 


2040 


2B02 


JDTA 


051 




2042 


0004 


JDTA 


052 




2D44 


0240 


JDTA 


053 




1DE2 


7222 


JDTA 


054 


OTAEND 


10E4 


C9E5 


JDTA 


055 


DTA23 


10E6 


3400 


JDTA 


056 




I0E8 


0214 


JDTA 


057 




IDEA 


0210 


JDTA 


058 




1DEC 


02 IE 


JDTA 


059 




10EE 


98EA 


JDTA 


06 




10F0 


2D85 


JDTA 


061 




IDF 2 


3073 


JDTA 


062 




IDF4 


C1F9 


JDTA 


063 




IDF6 


E170 


JDTA 


064 




1DF8 


2DDB 


JDTA 


065 


DONE 


IDEA 


72C0 


JDTA 


066 




10FC- 


8D7C 


JOTA 


067 


END 



NEXTSEQ NEXTLABEL STATEMENT 







U1=U1*-K40 






STB Ui V + l 






RTN G MMSKO=0 


044 


WRLOAO 


BR IF 006=1 
RDB Gi V + l 
Z=G1QK0F 


050 


GMWM 


BR IF Z=0 


040 


WMINST 


BR IF G11=0 
D1=U1H 


046 


DTA21 


BR 


045 


DTA22 


BR IF 007=1 

D0=00$K02 

GB/OUT=U0 


048 


DTA24 


BR 

D0=D0*-K02 
D1=U1XH 
Gi=Gln01 
GB/0UT=G1 
SET GA K=44 
RTN G MMSKO=0 
SET GA K=00 
SET GA K=10 
RST GB K=20 
RTN G MMSK 0=0 
STH V 0A,8C 


055 


DTA23 


BR IF GT BIT4=1 



IREG 016 


RSTREG 


065 


DONE 


067 


END 


ICYC 037 


HISTRT 



CLOAD=*E40, EC LEVEL = 1282U 

COMMENTS 

SET WM IN DATA BYTE 

STORE DATA 

ALLOW TRAPS-WAIT FOR SERV-IN 

CK IF WS SENT LAST 
GET DATA FROM STORAGE 
WM-TEST IF GMWM 
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NO 
NO 

CK 



WS LAST-CK IF WM IN STORAGE 
WM-CORRECT REDUNDANCY 



SET MODE K=80 
RST MMSK K=21 
RST MMSK K=Oi 
RST MMSK K=71 
BAL 

P1=0$K80 
P1=P1$K07 
BR IF S4=l 
BR IF Gl BIT 6=1 
P1=P1+K0D 
STH V AS,P«-0 
BR 
********************************** 

* CROSS REFERENCE FOR CSECT JOTA * 
********************************** 



IF MOVE OP 

SET WS SENT LAST FLAG 
SEND WORD SEPARATOR 

RESET WS SENT LAST FLAG-D06 
CORRECT REDUNDANCY 

DATA ON BUS OUT TO TAPE 

SERVICE AND SELECT OUT UP 

ALLOW SERV-IN TRAPS 

RESET SELECT-OUT 

ISSUE CMD-QUT 

RST BURST MODE LATCH 

RTN FOR POSSIBLE LO TRP COMP 

SAVE LAST B-STAR FOR RESTORE LS 

WAIT FOR FALL OF OP-IN 

SET CPU ZONE 

RESET MMSK 2 IF ON 

RESET MMSK £ 2 IF ON 

RESET MMSK7, IF ON 

RESTORE REGS U f V,I f G,0 



P=0087-ADDR OF STATUS BYTE 

BR IF READ OP 

BR IF CGNTROL-U OP 

O-STAR ADDR f 0094- 5 

STORE B-STAR IN O-STAR 

TAPE SEL ENO BR END 



JOTA 006 


JDTA 


004 


JDTA 008 


JDTA 


006 


JDTA 014 


JDTA 


022 


JOTA 016 


JDTA 


028 


JOTA 020 


JOTA 


024 JDTA 029 


JOTA 022 


JDTA 


013 


JDTA 024 


JDTA 


018 


JDTA 027 


JDTA 


014 


JDTA 033 


JDTA 


005 


JDTA 040 


JDTA 


037 


JDTA 044 


JOTA 


033 


JOTA 045 


JDTA 


040 
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********************************** 

* CROSS REFERENCE FOR CSECT JDTA * 
********************************** 



J OTA 046 JDTA 039 

JDTA 048 JDTA 043 

JDTA 050 JDTA 036 

JOTA 054 JCHL 201 JCHL 249 

JDTA 055 JCHL 189 JCHL 250 JDTA 055 

JDTA 065 JDTA 063 

JDTA 067 JDTA 064 
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JENO DESCRIPTIVE TEXT 



ENTRY POINIS 



0180 



EOR 



ERROR 



THIS IS THE MAJOR ENTRY TO THIS ROUTINE, TRAP TO 
THIS ADDRESS IS THE NORMAL READ ENDING ROUTINE 
FROM JCHL. ENTRY CAN ALSO BE A RESULT OF DEVICE 
END FROM ANY CHANNEL DEVICE-. 



ENTRY AT THIS POINT IS FROM THE I8CH ROUTINE FOR 
A BRANCH ON END OF REEL CONDITION. 



ENTRY AT THIS POINT IS FROM THE IBCH ROUTINE FOR 
BRANCH ON TAPE ERROR CONDITION. 



OBJECTIVES 

L ENDING STATUS. 

2. CHECK FOR SHORT RECORDS (EARLY DISCONNECT) DURING 
WRITE OPS. 

3. GENERATE GMWM FOR END OF READ FIELD. 
4- HANDLE TAPE MARKS. 

5. STORE B-STAR IN BACK-UP AREA. 

6. FLAG UNIT CHECK FOR POSSIBLE TIE OPERATION. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






JEND 


001 


T 


1401 


TAPE ENDING ROUTINE AND RDI 






JEND 


002 


ATA8LE 


ADDR=0180 






0180 


2204 


JEND 


003 








LINK If MMSK2=1 


0182 


FD86 


JEND 


004 




006 


RDRPCH 


BR IF GT3=0 


0184 


9ACA 


JEND 


005 




059 


ENDING 


BR 


0185 


8FA0 


JENO 
JEND 


006 
007 


RDRPCH 
AEND 


008 


REQIN 


BR 


OFAO 


2B40 


JEND 


008 


REQIN 






SET GA K=04 


0FA2 


COAB 


JEND 


009 


CKADDR 


013 


ADDR 


BR IF GT BIT0=1 


QFA4 


D0A3 


JEND 


010 




009 


CKADDR 


BR IF GTl=l 


0FA6 


2B00 


JEND 


Oil 








SET GA K=00 


0FA8 


0204 


JEND 


012 








RTN U MMSK2=0 


OFAA 


2B00 


JEND 


013 


ADDR 






SET GA K=00 


OFAC 


5FEF 


JEND 


014 








H0=GB/IN 


OFAE 


2B02 


JEND 


015 








SET GA K=10 


OFBO 


FBBO 


JEND 


016 


STATUS 


016 


STATUS 


BR IF GT3=0 


0FB2 


5FFF 


JEND 


017 








Hl^GB/IN 


OF B4 


2B08 


JEND 


018 








SET GA K=40 


0FB6 


2CC7 


JEND 


019 








P0=0 


0FB8 


2D85 


JEND 


020 








P1=0$K80 


OFBA 


57C0 


JEND 


021 








ROB 01 AStP 


OFBC 


5731 


JEND 


022 








VI=D1X 


OFBE 


63EI 


JEND 


023 








Vl=VlaHO 


OFCO 


E094 


JEND 


024 




053 


NOT APE 


BR IF HZNZ 


0FC2 


2D 78 


JEND 


025 








P1=P1+K07 


0FC4 


55C0 


JEND 


026 








ROB Gl AS t P 


0FC6 


5559 


JEND 


027 








Gl-Gl 


0FC8 


C494 


JEND 


02 8 




053 


NOT APE 


BR IF ZNZ 



COMMENTS 



CHNL LOW PRIORITY-PREVENT TRAPS 
TEST STATUS-IN 

TRAP FROM RDR-PUNCH REQ-IN 

ISSUE SELECT OUT 

BR IF ADDR- IN 

BR IF NOT SELECT- IN 

SELECT-IN, RESET SELECT-OUT 

RETURN TO MAIN PROGRAM 

ADDR-IN, RESET SELECT-OUT 
PUT ADDRESS IN HO 
ISSUE COMMAND OUT 
WAIT FOR STATUS IN 
PUT STATUS IN HI 
SET SERVICE OUT 
SET P FOR 

READ-OUT OF 
TAPE ADDRESS 

LOOK AT CONTROL UNIT ADDRESS 
BR IF NOT TAPE ADDRESS 
SET P FOR 

READ-OUT OF TAPE STATUS BYTE 
PUT GI ON BUS FOR TESTING 
BR IF STATUS NON-ZERO 



AD OR 


WOR D 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


OFCA 


7FC0 


J END 


029 






OFCC 


FB14 


JEND 


03 




053 


OFCE 


4705 


JEND 


031 






OFOO 


1083 


JENO 


032 






0FD2 


55CQ 


J END 


033 






OFD4 


C710 


JENO 


034 




051 


0F06 


2007 


JENO 


035 






0FD8 


2195 


JEND 


036 






OFOA 


3163 


JENO 


037 






OFOC 


5300 


JEND 


038 






OFOE 


2215 


JENO 


039 






OFFO 


0764 


JEND 


040 




042 


0FE2 


5221 


JEND 


041 






0FE4 


871F 


JEND 


042 


CHL43 


043 


0F80 


6223 


JENO 


043 


CHL45 




0F82 


6223 


JENO 


044 


CHL45 1 




0F84 


6223 


JEND 


045 


CHL45 2 




0F86 


5249 


JENO 


046 


CHL45 3 




0F88 


6237 


JEND 


047 






0F8A 


C494 


JEND 


048 




053 


OF8C 


6345 


JEND 


04 9 






OF8E 


7300 


JEND 


050 






OP 90 


3515 


JEND 


051 


CHL44 




OF 9 2 


75C0 


JEND 


052 






OF 94 


5C62 


JEND 


053 


NOTAPE 




0F96 


1CE5 


JEND 


054 






OF 98 


6CE1 


JEND 


055 






OF 9 A 


C49F 


JEND 


056 




058 


0F9C 


8FE6 


JEND 


057 




147 


0F9E 


A94C 


JEND 


058 


IS1443 


159 


1ACA 


5F5F 


JEND 


059 


ENDING 




1ACC 


0004 


JEND 


060 






1ACE 


C188 


JEND 


061 




077 


1AD0 


1623 


JEND 


062 






1A02 


0191 


JEND 


063 




081 


IAD4 


5130 


JEND 


064 


END12 




IAD6 


01F8 


JENO 


065 






1AD8 


C493 


JENO 


066 




082 


IAOA 


11B7 


JEND 


067 






1A0C 


F261 


JEND 


068 




070 


1ADE 


2145 


JEND 


069 






IAEO 


31F3 


JEND 


070 


MOVE 




IAE2 


E213 


JEND 


071 




082 


1AF4 


FU2 


JEND 


072 




082 


1AE6 


3135 


JEND 


073 






1AE8 


7138 


JEND 


074 






1AFA 


36 23 


JEND 


075 






1AEC 


9A04 


JEND 


076 




064 


1A88 


7222 


JEND 


077 


WRSTIN 




1A8A 


2808 


JEND 


078 






1A8C 


2A55 


JEND 


079 






1A8E 


9796 


JEND 


080 




JCHL 100 


1A90 


3189 


JEND 


081 


I PL 





NEXTLABEL STATEMENT 



NOTAPE 



CHL44 



CHL43 
CHL45 N 



NOTAPE 



IS1443 
N01443 
43STAT 



WRSTIN 
I PL 

STORE 
MOVE 



STORE 
STORE 



EN012 



CHL25 



STB HI AS,P 
BR IF H17=0 
P1-D1XLSP1H 
P1=P1*-K08 
ROB Gl AS,P*0 
BR If D10=0 
U0=0 

Ui=0$K9O 
Ui=Ul$K06 
ROB VI AS»U*0 
VO=O$K10 
BR IF 011=0 

vo=vox 

N=Dl 8ITS23 

vo=vo*vo 

VO=VO+VO 

VQ=V0*V0 

G0=V0 

V0=V0*V1 

BR IF ZNZ 

V1=V1$G0 

STB VI AStU+0 

G1=G1$K10 

STB Gl ASfP«-0 

RDH P DA f 9C 

PO=P0*-KEO 

PO=POnHO 

BR IF Z=0 

BR 

BR 

G1=GB/IN 

RST G8 K=20 

BR IF S4=0 

OO=D0*-KO2 

BR IF S5=l 

ROB Ul V+0 

Z=UlnKOF 

BR IF Z=0 

U1=U1*-KBB 

BR IF D07=i 

Ui=0$K40 

Ui=Ul$KOF 

BR IF 006=1 

BR IF G17=0 

Ul=Ui*K30 

STB Ul V + l 

O0=D0$K02 

BR 

STH V DA»8C 

SET GA K=40 

T0=0$K50 

BR 

U1=0-KB0 



CL0AD=*E40, EC LEVEL=1282 11 
COMMENTS 

STORE NEW STATUS BYTE 
TEST UNIT EXCEPTION BIT 
AODR OF LAST TU CTRL 8YTE=008X 
CLEAR WR-WTM BIT FROM AODR 
GET LAST TU CTRL BYTE 
BR IF NOT WR-WTM OP LAST 
00S6-ADDR OF EOF BLOCK 
BITS 1-6 

GET EOF BLOCK BITS 

CONSTANT FOR EOF BL BIT TESTING 

IS TAPE UA=XOXX 

NO-CHANGE TEST CONSTANT TO 01 

TEST 1400 TAPE UNIT ADDRESS 

PREPARE 
EOF BLOCK 
8IT POINTER 
SAVE EOF BLOCK BIT POINTER 

TEST IF BLOCK 
BIT IS ON 
BLOCK BIT OFF- SET BLOCK BIT 
STORE BLOCK BITS IN 0096 
SET EOF 8IT 3 IN TO CTRL BYTE 
STORE TU CTRL BYTE IN 008X 
READ OUT 1443 ADDRESS 
CLEAR NON-ADORESS BITS 
TEST ADDRESS 
BR IF 1443 ADDRESS 



GET STATUS BYTE FROM TAPE 
RST BURST MODE LATCH 
CK IF WRITE OP 
RESET WS LAST FLAG 
BR IF IPL 

CONTENTS OF NEXT DATA LOCATION 
TEST FOR GMWM 
IN STORAGE 
NO GMWM- SAVE WM BIT POSITION 
BR IF MOVE OP 
LOAD OP-CLEAR WM 
U1«GM=4F OR GMWM- OF 
CK IF TAPE MARK STORED LAST 
BR IF NOT UNIT EXCEPTION 
TAPE MARK, 3F OR 7F 
STORE TAPE MARK 
SET TM STORED LAST FLAG-D06 

GET B-STAR READY FOR CPU ZONE 
ISSUE SERVICE OUT 
STOP CODE =52-EARLY TAPE DISC. 
STORE STOP CODE AND STOP 
IPL, SET GROUP MARK-4F 
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ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


1492 


7138 


JEND 


082 


STORE 






ST8 Ul V*l 


1A94 


2CC7 


JENO 


083 


END13 






UO^O 


IA96 


2185 


JEND 


084 








U1=0SK8G 


1A98 


3173 


JENO 


085 








Ui=Ul$K07 


IA9A 


5752 


JEND 


086 








RD8 01 DA,9A 


1A9C 


C743 


JEND 


087 




090 


END20 


BR IF D10=1 


LA9E 


0422 


JEND 


088 




098 


END22 


BR IF GO 1=0 


1AAO 


9AC4 


JEND 


089 




091 


END21 


BR 


IAC2 


042 3 


JEND 


090 


END20 


098 


EN022 


BR IF GOi=l 


1AC4 


F127 


JEND 


091 


END21 


100 


END28 


BR IF 017=1 


1AC6 


7500 


JEND 


092 


END23 






STB Gi AS,U*G 


1AC8 


9AB2 


JEND 


093 




106 


END25 


BR 


1A80 


5EC2 


JEND 


094 


END24 






RDH H DA, B8 


1A82 


CF47 


JEND 


095 




092 


END23 


BR IF H10=l 


1A84 


3523 


JEND 


096 








G1=G1*K02 


1A86 


9AC6 


JEND 


097 




092 


EN023 


BR 


1AA2 


744 


JEND 


098 


END22 


091 


END21 


BR IF 011=0 


IAA4 


FiOO 


JEND 


099 




094 


END24 


BR IF G17=0 


1AA6 


7500 


JEND 


100 


END28 






STB Gl AS.U+G 


1AA8 


5042 


JEND 


101 








RDH U DA, 98 


LAAA 


2007 


JEND 


102 








U0=0 


1AAC 


5700 


JEND 


103 








RDB 01 AS,U*0 


1AAE 


3715 


JENO 


104 








Dl=Dl$K10 


IABO 


7700 


JEND 


105 








STB Dl AS,U*G 


1AB2 


5022 


JEND 


106 


END25 






RDH U DA,8C 


1A84 


E138 


JEND 


107 




109 


END26 


BR IF G16=0 


1AB6 


3000 


JEND 


108 








SET SO 


IAB8 


5510 


JEND 


109 


END26 






RDB Gl U*0 


1ABA 


F23E 


JEND 


110 




112 


END27 


BR IF D07=0 


1ABC 


3545 


JEND 


111 








G1=G1$K40 


iABe 


2007 


JEND 


112 


END27 






U0=0 


1ACO 


8A62 


JEND 


113 




122 


END32 


BR 


OA70 


5552 


JEND 


114 


TPMARK 






RDB Gl DA,9A 


0472 


C56B 


JEND 


115 




126 


EN030 


BR IF G10=1 


3A74 


5042 


JEND 


116 








RDH U DA, 98 


04 76 


2005 


JEND 


117 








U0=0$K00 


04 78 


5700 


JEND 


118 








RDB Dl AS,U*0 


0A7A- 


3715 


JEND 


119 








DI=D1$K10 


QA7C 


7700 


JEND 


120 








STB Dl AS,U+0 


0A7E 


8A6A 


JEND 


121 




126 


END30 


BR 


0A62 


C5£6 


JEND 


122 


END32 


126 


END30 


BR IF S0=1 


0A64 


3189 


JEND 


123 








Ul=0-K80 


0A66 


6151 


JEND 


124 








Ul=UlaGl 


0A68 


C4F1 


JEND 


125 




114 


TPMARK 


BR IF 2=0 


0A6A 


7222 


JEND 


126 


END 30 






STH V DA,8C 


0A6C 


3486 


JEND 


127 








SET MODE K=B8 


0A6E 


A24C 


JEND 


128 




JCHL 158 


CHL53 


BR 


0A30 


2D85 


JEND 


129 


EOR 






P1=0$K80 


0A32 


5FC0 


JEND 


130 








RDB HI AS,P+0 


0A34 


4F05 


JEND 


131 








PI=H1XL$PIH 


0A36 


1083 


JEND 


132 








P1=P1*-K08 


0A38 


5FC0 


JEND 


133 








RDB HI AS,P+Q 


0A3A 


FF3F 


JEND 


134 




136 


EOFON 


BR IF H13=l 



CL0AD=*E40, EC LEVEL=1282 11 

COMMENTS 

STORE GM OR GMWM 
ADDRESS OF STATUS 
BYTE=0087 

GET ODD REDUN AND 9-TRACK FLAGS 
TEST IF ODD REDUNDANCY 
TEST READ DATA FOR CORRECT REDUN 
DATA HAS CORRECT REDUNDANCY 
ODD REDUN-TEST LAST DATA REDUN 
NO REDUNDANCY ERROR-CK UNIT EXCP 
STORE STATUS BYTE 

CHECK IF ALTERNATE READ MODE 

NOT ALT RD MODE. SET UNIT CHECK 

POSSIBLE REOUN ERROR-CK IF 7-TRK 

9-TRK-CHECK IF UNIT EXCEPTION 

STORE STATUS BYTE 

TU CTRL BYTE ADDR IN 0099 

U=008X 

GET TU CTRL BYTE 

SET EOF BIT IN TU CTRL BYTE 

STORE TU CTRL BYTE 

GET STARTING DATA ADDRESS 

TEST IF UNIT CHECK 

TURN ON UNIT CHECK FLAG 

GET FIRST DATA BYTE READ IN 

TEST IF LOAD OP 

MOVE OP-REMOVE WORD MARK 



TM-GET REDUNDANCY FLAG 

TEST IF ODD REDUNDANCY 

GET TP CTRL ADDR FROM 0099 

U=008X 

FETCH TAPE CONTROL BYTE. 

SET END OF FILE BIT* 

STORE TAPE CTRL BYTE. 

TEST UNIT CHECK FLAG 

TAPE MARK=7F 

TEST FIRST DATA FOR TAPE MARK 

WAS IT A TAPE MARK 

STORE B-STAR IN B BACKUP 

CPU ZONE, CHNL EXTERNALS 

RETURN TO CHANNEL 

P=0080=ADDR OF TCU BYTE 

GET TCU BYTE 

ADOR OF LAST ADDRESSED TU BYTE 

GET LAST ADDRESSED TAPE UNIT BYT 
WAS EOF BIT 0N-H13 
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ADOR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABE 


L STATEMENT 


OA3C 


8D7C 


JEND 


135 




I CYC 037 


HISTRT 


BR 


UA3E 


1F15 


JEND 


136 


EOF ON 






H1=H1*H<10 


OA40 


7FC0 


JENO 


137 








STB HI AS,P*0 


0A42 


9E72 


JENO 


138 




IUBR 002 


UNCDBR 


BR 


02 70 


2D85 


JENO 


139 


ERROR 






Pi=0$K80 


3272 


3073 


JENO 


140 








P1=P1$K07 


02 74 


5FC0 


JENO 


141 


END40 






ROB HI AS,P+0 


02 76 


5FF9 


JENO 


142 








H1*H1 


0278 


C4F5 


JENO 


143 




141 


END40 


BR IF Z=0 


027A 


EB7F 


JENO 


144 




146 


END41 


BR IF H16=l 


02 7C 


80 7C 


JENO 


145 




ICVC 037 


HISTRT 


BR 


02 7E 


9E72 


JENO 


146 


END 41 


IUBR 002 


UNCDBR 


BR 


0FE6 


5C72 


JENO 


147 


N01443 






ROH P DA,9£ 


0FE8 


6CE1 


JENO 


148 








P0=P0QH0 


OFEA' 


C4F4 


JENO 


149 




154 


N0421 


BR IF ZNZ 


OFEC 


5C82 


JENO 


150 








ROH P DA, A8 


OFEE 


1C85 


JENO 


151 








P0=P0*-K80 


OFFO 


7C82 


JENO 


152 


WAS42 






STH P DA*A8 


0FF2 


A97A 


JENO 


153 


NOTRDR 


182 


NQRST 


BR 


0FF4 


6DE1 


JENO 


154 


N0421 






Pl^PlaHO 


0FF6 


C4F2 


JENO 


155 




153 


NOT R OR 


BR IF ZN2 


OFF 8 


5C82 


JENO 


156 








ROH P DA,A8 


QFFA 


1C13 


JENO 


157 








P0=P0*-K01 


OFFC 


8FF0 


JENO 


158 




152 


WAS42 


BR 


294C 


5C92 


JENO 


159 


43STAT 






ROH P OA, AA 


2946 


5662 


JENO 


160 








ROH OA, 9C 


29 50 


DB5E 


JENO 


161 




168 


NODE 


BR IF HI BIT5=0 


2952 


54C2 


JENO 


162 








ROH G DA, 88 


2954 


C15A 


JENO 


163 




166 


B0X43 


BR IF Gl BIT4*=0 


2956 


E35B 


JENO 


164 




166 


80X43 


BR IF Dl 8IT6=1 


?958 


1665 


JENO 


165 








D0=D0*~K60 


295A 


1F43 


JENO 


166 


80X43 






Hl=Hl*-K04 


29 5C 


1743 


JENO 


167 








Di=Dl*-K04 


2956 


F864 


JEND 


168 


NODE 


171 


N012 


BR IF HI BIT7*0 


2960 


3625 


JENO 


169 








D0=00$K20 


2962 


1F13 


JEND 


170 








H1=H1*-K0l 


2964 


7662 


JENO 


171 


NG12 






STH D 0A»9C 


2966 


60F5 


JENO 


172 








Pi=Pl$Hl 


2968 


7C92 


JEND 


173 








STH P DA,AA 


296A 


5CF2 


JENO 


174 








ROH P DA, BE 


296C 


6C01 


JEND 


175 








PO^POaPl 


296E 


C4FA 


JEND 


176 




182 


NORST 


BR IF ZNZ 


2970 


OD60 


JENO 


177 








Z=PlaK60 


29 72 


EOFA 


JEND 


178 




182 


NORST 


BR IF HZNZ 


2.9 74 


ODFB 


JENO 


179 








Z-PlnKOF 


2976 


FOFA 


JENO 


180 




182 


NORST 


BR IF LZNZ 


2978 


2010 


JEND 


181 








SET S7 


297A 


0204 


JEND 


182 


NOR ST 






RTN U MMSK2=0 



CL0AD^*E40, EC L£VEL=1282 11 PAGE 114 
COMMENTS 

RETURN TO I-CYCLES 
RESET EOF BIT 
STORE TU CTRL BYTE 
GO TO BRANCH ROUTINE 

P1^0087-ADDR OF LAST STATUS BYTE 
GET STATUS BYTE 

WAIT FOR NON-ZERO STATUS 
TEST STATUS FOR UNIT CHECK 
RETURN TO I-CYCLES 
GO TO BRANCH ROUTINE 
READ 1442 ADORESS BYTES 

BR IF NOT 1ST 42 
RESET EOF 

BIT 1ST READER 
STORE BACK SSW BYTE 



BR IF NOT 2ND 42 

READ SSW BYTE 

RESET EOF BIT 2ND RDR 

READ STATUS BYRE 

BR IF NO DEVICE END 
READ SYSTEM CONTROL BYTE 
BR IF 1443 

BR IF LAST CMND SS OR SKIP 

RESET CH 9 AND 12 BITS 
RESET DE BIT 

RESET ACTIVE BIT 

BR IF NO UNIT EX 

SET CH 12 BIT ON 

RESET UE BIT 

OR STATUS BUTE WITH CHNL STATUS 
READ STOP CODE BYTE 
BR IF REMOTE RST OFF 



RTN TO MAIN PROG 



CL0AD=*E40 f EC IEVEL=1282 11 PAGE 115 

* CROSS REFERENCE FOR CSECT J END * 
****$****$**#****$**** ************ 



iENO 


006 


JEND 


004 










JtNO 


008 


JEND 


006 










J END 


009 


JEND 


010 










JENO 


013 


JEND 


009 










JEND 


016 


JEND 


016 










JEND 


042 


JEND 


040 










JENO 


043 


JEND 


042 










JENO 


051 


JEND 


034 










JEND 


053 


JEND 


024 


JEND 


028 


JEND 


030 JEND 048 


JEND 


058 


JEND 


056 










JEND 


059 


JEND 


005 










JEND 


064 


JEND 


076 










JEND 


070 


JEND 


068 










JEND 


077 


JEND 


061 










JEND 


081 


JEND 


063 










JEND 


082 


JEND 


066 


JEND 


071 


JEND 


072 


JENO 


090 


JEND 


087 










JEND 


091 


JEND 


089 


JEND 


098 






JEND 


092 


JEND 


095 


JEND 


097 






JEND 


094 


JEND 


099 










JENO 


098 


JEND 


088 


JEND 


090 






JEND 


100 


JEND 


091 










JEND 


106 


JEND 


093 










JEND 


109 


JEND 


1C7 










JEND 


112 


JEND 


110 










JEND 


114 


JEND 


125 










JEND 


122 


JEND 


113 










JEND 


126 


JEND 


115 


JEND 


121 


JEND 


122 


JEND 


129 


IBCH 


091 










JEND 


136 


JEND 


134 










JENO 


139 


IBCH 


092 










JEND 


141 


JEND 


143 










JEND 


146 


JEND 


144 










JEND 


147 


JEND 


057 










JENO 


152 


JEND 


158 










JEND 


153 


JEND 


155 










JEND 


154 


JEND 


149 










JEND 


159 


JEND 


058 










JEND 


166 


JEND 


163 


JEND 


164 






JENO 


168 


JEND 


161 










JEND 


171 


JEND 


168 










JENO 


182 


JEND 


153 


JEND 


176 


JEND 


178 JEND 180 
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JODE DESCRIPTIVE TEXT 



ENTRY POINTS 



JTPE ROUTINE FOLLOWING D-MGDIFIER DECODE* 



RDORWR 



TAPELD 



OBJECTIVES 



ODE 



ENTRY AT THIS POINT IS FROM JTPE FOLLOWING DECODE 
OF A WRITE OR READ TAPE OPERATI ON* 



THIS ENTRY POINT IS FROM IPLS WHEN INITIAL PROGRAM 
LOAD IS FROM TAPE. 



THIS ENTRY IS FROM ONE OF SEVERAL POINTS IN THE 



1. DECODE TAPE OPERATION TYPE. SAVE STARTING ADDRESS IN 
AUXILIARY STORAGE. 

2. SET APPROPRIATE COMMAND. CHECK BACKSPACE STATUS* 

3. CHECK DENSITY AND REDUNDANCY. 

4. DO MODE SET OR TIE OP IF REQUIRED. 



ADOR 



WORD SEQUENCE NO. LABEL 







JODE 


001 


T 


141A 


F758 


JODE 


002 


RDORWR 


14 1C 


3 6C5 


JODE 


003 




141E 


EF25 


JODE 


004 




1420 


2513 


JODE 


005 




1422 


942 8 


JODE 


006 




10D4 


20E5 


JODE 


007 


TAPELD 


L0D6 


31F5 


JODE 


008 




10D8 


2793 


JODE 


009 




10CA 


37D5 


JODE 


010 




10DC 


2040 


JODE 


Oil 




iODE 


93 7E 


JODE 


012 




14 5A 


2C80 


JODE 


013 


READ 


145C 


3843 


JODE 


014 




145E 


72A0 


JODE 


015 




1460 


2 523 


JODE 


016 




1462 


1F25 


JODE 


017 


ODE 


1464 


7EC2 


JODE 


018 




1466 


942 8 


JODE 


019 




1424 


2515 


JODE 


02 


ERASE 


1426 


3573 


JODE 


021 




1428 


2D85 


JODE 


022 


0DE30 


142A 


41DD 


JODE 


023 




142C 


5FE9 


JODE 


024 




142E 


5FC0 


JODE 


025 




1430 


5019 


JODE 


026 




1432 


7042 


JODE 


02 7 




1434 


E195 


JODE 


028 




1436 


EF3C 


JODE 


02 9 




1438 


2020 


JODE 


030 





NEXTSEQ NEXTLA8EL STATEMENT 



1401 TAPES-OP CODE DECODE 



013 


READ 


BR IF 013=1 

DO=DO$KCO 


020 


ERASE 


BR IF H12=1 
Gi=0$K01 


022 


0DE30 


BR 

UO~0$KEG 

Ui«Ul$KFO 

Di=0$K09 










D1=D1$KD0 






SET S5 


JTPE 003 


TAPELD 


BR 

SET S4 

T1=T1$K04 

STH V AS f T+0 

G1=*0$K02 

H1=H1*-K20 

STH H DA, B8 


022 


ODE30 


BR 

Gi=0$K10 

G1=G1$K07 

P1=G$K80 

Pl^UlL+PiH 

H0-H1 

RD8 Hi AS,P+0 

Ul^Pl 

STH U DA, 98 


047 


0DE33 


BR IF S6=l 


032 


0DE34 


BR IF H12=0 
SET S6 



COMMENTS 



CHECK IF READ OP 
SET WRITE-WTM FLAG 
CHECK ERASE BIT 
WRITE CMD^Ol 



S MODE SET 



INITIAL PROGRAM LOAD 
SET UNIT NO. TO FX 

SET D TO READIR) COMMAND 
SET IPL INDICATOR 

READ OP STAT 

G-STAR ADDR, 0094- 5 

STORE STARTING ADDR IN /-STAR 

READ CMD=02 

U OP OR READ, RESET ERASE BIT 

STORE RESET ERASE BIT 

ERASE CMD=17 



ADR OF TU CTRL BYTE^=008X 

SAVE ALT. MODE BIT FOR LATER BR 

GET TU CTRL BYTE 

SAVE LOW-ORDER TU CTRL BYTE ADDR 

98-EOF BLOCK MASK,99-TUCB ADDR 

CK IF BKSP NOW 

CK BKSP LAT OP BIT 

BKSP LAST OP STAT 



40 DR 


WORD 


SEQUENCE NO* 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


14 3A 


1F25 


JOOE 


031 








Hi=Hl*-K20 


143C 


7FC0 


jooe 


032 


0DE34 






STB HI AS»P+0 


143E 


1DF3 


JOOE 


033 








P1=P1*~K0F 


1440 


16E3 


JOOE 


034 








D0=00*-K0E 


1442 


1F35 


JOOE 


035 








Hi=Hl*-K30 


1444 


57C0 


JOOE 


036 








ROB 01 AS,P+0 


1446 


5032 


JOOE 


03 7 








ROB PI DA f 8£ 


1448 


OFCO 


jooe 


03 8 








Z=HinKC0 


144A 


£081 


JODE 


039 




050 


00E40 


BR IF HZ=0 


144C 


3645 


JOOE 


040 








D0=D0$K40 


144E 


5F4B 


JOOE 


041 








G0=H1H 


1450 


ED57 


JODE 


042 




045 


00E51 


BR IF P12=i 


1452 


2580 


JODE 


043 








Gi=Gi+K80 


1454 


3435 


JOOE 


044 








G0=GO$K3G 


1456 


3425 


JODE 


045 


0DE51 






G0=G0$K20 


1458 


92CE 


JOOE 


046 




067 


0DE52 


BR 


1414 


0020 


JODE 


047 


0DE33 






RST S6 


1416 


3F25 


JODE 


04 8 








Hi=Hl$K20 


1418 


943C 


JODE 


049 




032 


00E34 


BR 


1400 


3545 


JOOE 


050 


0DE40 






G1=G1$K40 


1402 


£009 


JODE 


051 




054 


EVEN 


BR IF P12=l 


1404 


FE09 


JOOE 


052 




054 


EVEN 


BR IF HO 3=1 


1406 


3585 


JOOE 


053 








G1=G1$K80 


1408 


5802 


JODE 


054 


EVEN 






RDH I OA,BA 


140A 


24C5 


JOOE 


055 








GG=0$KCO 


140C 


2815 


JODE 


056 








I0=0$K10 


140E 


0812 


JOOE 


057 




059 


00E41 


BR IF H15=0 


1410 


588i 


JOOE 


058 








I0=IQX 


1412 


8855 


JODE 


059 


0DE41 


060 


00E42 N 


N=Hi BITS67 


12C0 


6883 


JOOE 


060 


00E42 




10=10+10 


12C2 


6883 


JODE 


061 


ODE 42 1 






10=10+10 


12C4 


6883 


JOOE 


062 


00E42 2 


> 




10=10 + 10 


12C6 


6897 


JODE 


063 


00E42 3 






10=10*11 


12C8 


C4CF 


JODE 


064 




067 


0DE52 


BR IF 2=0 


12CA 


3433 


JOOE 


065 








G0=G0$K03 


12CC 


9200 


JODE 


066 




068 


00E54 


BR 


12CE 


34B3 


JOOE 


067 


0DE52 






GO=GO$K0B 


1200 


47F3 


JOOE 


068 


0DE54 






H1=01XH+H1L 


1202 


55E9 


JOOE 


069 








H0=G1 


1204 


7E52 


JOOE 


070 








STH H DA,9A 


1206 


0562 


JOOE 


071 




077 


0DE53 


BR IF 011=0 


1208 


C1E2 


JODE 


072 




077 


00E53 


BR IF S4=0 


12DA 


E1E2 


JODE 


073 




077 


0DE53 


BR IF S6=0 


120C 


3645 


JODE 


074 








00= 90 $K 40 


120E 


5440 


JODE 


075 








G0=G0L 


12E0 


3415 


JODE 


076 








G0=G0$K10 


1262 


15C5 


JODE 


077 


0DE53 






Gl=Gi*-KCO 


12E4 


0020 


JODE 


078 








RST S6 


12E6 


0668 


JODE 


079 




081 


0DE60 


BR IF 001=1 


12E8 


5549 


JODE 


080 








GO = Gl 


12EA 


97 7£ 


JODE 


081 


ODE60 


JCHL 088 


CHNL 


BR 



CL0AD-*£40t EC LEVEL=1282ii 

CONSENTS 

RESET 8KSP LAST OP BIT-H12 

STORE TU CTRL BYTE 

ADOR OF TCU CTRL BYT£=0080 

ZERO D04 f 5, 6 FOR FLAG USE 

RST BKSP LAST OP AND EOF BIT 

GET TCU CTRL BYTE 

GET UNIT TYPE FOR REOUNOANCY TST 

TEST TU CTRL BYTE FOR 9-TR DENS 

WAS IT 9-TRACK DENSITY 

MODE SET FLAG-DOl 

OR- IN 7-TRK DENSITY FOR MODE SET 

CHECK IF ODD REDUNDANCY 

ODD REDUNDANCY FLAG-GIO 

MODE SET=D01110ll 

EVEN REDUN MODE SET=00101011 

RESET BKSP NOW FLAG 
SET BKSP LAST OP BIT 

9-TRACK TAPE FLAG-G11 

BR IF EVEN RED 

BR IF ALTERNATE MODE 

SET 000 REO FLAG-GIO 

GET PHASE ENCODED BYTE 

START MODE- 2 SET 

CONSTANT FOR P.E. TEST 

IS 360 DRIVE NUMBER A X1XX 

YES-CHANGE CONSTANT 

BR ON LOW- 2 ADOR BITS 



CK IF TAPE IS PHASE ENCODED 

GO SET 800 BPI 

1600 BPI-MOOE SET=C3 

MODE SET=001X1011 

OEVICE ADOR=TCUA-TUA 

MOVE CMD BYTE 

9A-CM0 BYTE, 9B-DEVICE AODR 

CK IF 9-TRACK 

9-TRACK, CK IF READ OP 

READ OP- CK IF BKSP LAST OP 

001 MEANS TIE 

TIE MODE SET=1B 

STRIP 9-TRK+GDD REOUN FLAGS 

CK IF MODE SET OR TIE 
NO MODE SET-CMD IN G 
GO TO CHANNEL 
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********************************** 

* CROSS REFERENCE FOR CSECT JOOE * 

********************************** 



JODE 


002 


JTPE 


017 








JODE 


007 


1PLS 


061 








JODE 


013 


JODE 


002 








JODE 


017 


JTPE 


057 


JTPE 


060 


JTPE 063 JTPE 066 


JODE 


020 


JODE 


004 








JOOE 


022 


JOOE 


0C6 


JOOE 


019 




JODE 


32 


JOOE 


029 


JOOE 


049 




jode 


045 


JODE 


042 








JOOE 


047 


JOOE 


028 








JOOE 


050 


jooe 


039 








JODE 


054 


JODE 


051 


JODE 


052 




JODfc 


059 


JOOE 


057 








JODfc 


060 


JOOE 


059 








JODE 


067 


JOOE 


046 


JOOE 


064 




JODE 


068 


JOOE 


66 








JODE 


077 


JOOE 


071 


JODE 


072 


JOOE 073 


JODE 


081 


JOOE 


079 
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JTPE DESCRIPTIVE TEXT 



ENTRY POINTS 



OBJECTIVES 



UADMCK 



TAPELO 



THIS IS THE NORMAL ENTRY POINT FOR TAPE UNIT ADD- 
RESS DECODE FROM THE I OCM ROUTINE FOR DEVICE 
ADDRESSES B, C, ANO U. IT IS ALSO THE ENTRY FROM 
JCHL FOLLOWING AN ERASE OPERATION, 



THIS IS THE ENTRY FROM THE JODE ROUTINE WHEN AN 
INITIAL PROGRAM LOAD IS DONE FROM TAPE, 



1. TEST TAPE UNIT ADDRESS VALIDITY (1-6). 

2. TEST D-MODIFIER FOR VALIDITY AND OPERATION TYPE. 

3. SET CONTROL COMMAND, ERASE, BACKSPACE, OR ERROR 
MESSAGE, AS APPROPRIATE. 



4DOR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






JTPE 


001 


T 


1401 


TAPES-UNIT 


ADDRESS AND 


13 7C 


10EE 


JTPE 


002 


UADMCK 






RST S K^FE 


1376 


01F1 


JTPE 


003 


TAPELD 






Z=Ul*KOF 


13 BO 


F489 


JTPE 


004 




018 


YES 


BR IF AC=1 


1382 


2A53 


JTPE 


005 


UAERR 






T0=0$K05 


1384 


7AF2 


JTPE 


006 


STOP 






STH T OA,BE 


1386 


A044 


JTPE 


007 




IDIS 003 


STOPPP 


BR 


13D4 


07DD 


JTPE 


008 


MLOP 






Z=DlnKOO 


13D6 


EOCF 


JTPE 


009 




015 


DX 


BR IF HZ=0 


L3D8 


2D6B 


JTPE 


010 








Pi=Pl*K06 


13DA 


60 71 


JTPE 


Oil 








PL=PlaDl 


13DC 


C4D3 


JTPE 


012 




017 


VALID 


BR IF Z=0 


13DE 


2A95 


JTPE 


013 


DMERR 






T0=0$K90 


iiEO 


9384 


JTPE 


014 




006 


STOP 


BR 


13CE 


079B 


JTPE 


015 


DX 






Z=DlnK09 


13CO 


fODE 


JTPE 


016 




013 


DMERR 


BR IF LZNZ 


13D2 


941A 


JTPE 


017 


VALID 


JODE 002 


RDORWR 


BR 


1388 


0191 


JTPE 


018 


YES 






Z=Ul+K09 


138A 


F483 


JTPE 


019 




005 


UAERR 


BR IF AO=l 


138C 


8258 


JTPE 


020 




I REG 006 


ST REGS 


BAL 


138E 


5EC2 


JTPE 


021 








RDH H DA, 88 


1390 


16F5 


JTPE 


022 








DO=DO*-KFO 


1392 


2DE5 


JTPE 


023 








P1=0$KE0 


1394 


E154 


JTPE 


024 




008 


MLOP 


BR IF G16=0 


1396 


07C0 


JTPE 


025 








Z=DlnKCO 


1398 


E0E3 


JTPE 


026 




034 


ABE 


BR IF HZ=0 


139A 


07DD 


JTPE 


027 








Z^DlaKDO 


139C 


E0A9 


JTPE 


028 




043 


MORR 


BR IF HZ=0 


139E 


2D4B 


JTPE 


029 








Pl^=Pl*K04 


13A0 


6D7i 


JTPE 


030 








Pi=PlnDl 


13A2 


C4DE 


JTPE 


031 




013 


DMERR 


BR IF ZNZ 



COMMENTS 

D-MODIFIER TEST 

RESET ALL S-REG STATS 
IS UA GREATER THAN FO 

STOP C0DE=05 

STORE STOP CODE 

STOP 

TEST D-MOD=DX 

SET PI TO E6 

TEST FOR W MOD. 
BR IF W MOD, 
STOP C0DE=90 

TEST D-H0D=R=D9 

START TAPE OP DECODE 

IS UA GREATER THAN 6 

ADDR ERROR 

SAVE U,V,I,G,D 

GET ERASE BIT 

ZERO OUT DOH FOR FLAG USE 

SET P FOR LATER USE 

BR IF MOVE OR LOAD OP 

U OP- TEST D-MOD=CX 

NOT C-TEST IF D-MOD^DX 

SET P EQ TO E4 
TEST FOR U MOD 
BR IF NOT U MOD 



AODR 

13A4 
13A6 
13E2 
13E4 
13E6 
13E8 
13EA 
13EC 
13EE 
13fO 
13F2 
13A8 
13AA 
13 AC 
13AE 
13BO 
13B2 
13B4 
13B6 
13B8 
13BA 
HEO 
HE2 
UE4 
UE6 
UE6 
13C8 
13CA 
13CC 
L3C2 
13C4 
13C6 
13BC 
13BE 
13CQ 



WORD SEQUENCE NO* LABEL 



25F3 
93B2 
07 IB 
FGC9 
072B 
F0C3 
075B 
FODE 
3F25 
7EC2 
8D7C 
074B 
FOBO 
079B 
FODE 
2573 
51E9 
2015 
DA3A 
5C01 
8A7 3 
6003 
6003 
6003 
5EC2 
9462 
259B 
3625 
9462 
159B 
2020 
9462 
35E9 
36C5 
9462 



JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 
JTPE 



JTPE 


002 


IOCM 


022 


JTPE 


003 


JOOE 


012 


JTPE 


005 


JTPE 


019 


JTPE 


006 


JTPE 


014 


JTPE 


008 


JTPE 


024 


JTPE 


013 


JTPE 


016 


JTPE 


015 


JTPE 


009 


JTPE 


017 


JTPE 


012 


JTPE 


018 


JTPE 


004 


JTPE 


034 


JTPE 


026 


JTPE 


043 


JTPE 


028 


JTPE 


048 


JTPE 


033 


JTPE 


052 


JTPE 


050 


JTPE 


053 


JTPE 


052 


JTPE 


058 


JTPE 


035 



032 
033 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 

04 7 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 

05 8 
059 
060 
061 
062 
063 
064 
065 
066 



ABE 



NEXTSEQ 

048 
058 
061 
013 



NEXTLABEL STATEMENT 



0DE12 



AMOO 



BMGD 



DMERR 



ICYC 037 HISTRT 



MORR 



00E12 



OOE2 

0DE21 

00E21 1 

00E21 2 

0DE21 3 

AMOO 



BMGD 



MMOO 



064 
013 

052 
053 



JOOE 017 OOE 



JODE 017 OOE 



JODE 017 ODE 



JOOE 017 OOE 



G1=0$K0F 

BR 

Z^OlnKOl 
BR IF LZ=0 
Z=0lQK02 
BR IF LZ^O 
Z=0iaK05 
BR IF LZNZ 
H1=H1$K20 
STH H 0A f 88 
BR 

Z=DlaK04 
BR IF LZ=0 
Z=01«K09 
BR IF LZNZ 
Gi=0$K07 
HO^Ul 
U0=0$K10 
BR IF HO 5=0 
UO^UOX 
N=HO BITS67 
UO=UO*UO 
UO^UO+UO 
U0=U0*U0 
RDH H DA, B8 
BR 

Gl=Gl+K09 
D0^=00$K20 
BR 

Gl=GlaK09 
SET S6 
BR 

Gl=0-KEO 
D0-DO$KC0 
BR 
********************************** 

* CROSS REFERENCE FOR CSECT JTPE * 
********************************** 



CL0AD=*E40, EC LEVEL*128211 

COMMENTS 

REWIND UNLOAD CMD=OF 
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MMOD 



DMERR 



00E20 



0DE21 N 



CX-TEST IF D-M0D«C1-A 

NOT CI- TEST IF C2-B 

NOT CI OR C2-TEST IF C5-E 
INVALID MODIFIER 

ERASE COM, SET ERASE BIT 
STORE ERASE BIT 
RETURN TO I-CYCLES 
DX-TEST IF D-M0D=D4-M 

NOT D4-TEST IF D9-R 

BR IF INVALID MODIFIER 

REW CMD=07 

MOVE UNIT ADDRESS FOR BRANCHING 

CONSTANT FOR EOF BLOCK BIT TEST 

IS 1400 UNIT ADORE SS=X0XX 

NO-CHANGE CONSTANT 

BR ON 1400 TAPE UNIT ADDRESS 

SHIFT CONSTANT BIT DEPENDENT ON 

THE UA SO THAT THE BIT POINTS AT 

THE CORRECT EOF BLOCK BIT. 

RESTORE H 

GO TO OP DECODE SECTION 

FSR CMD=37 f Gl WAS 1^ 

SET THIS OP FWD SPACE BIT 

GO TO OP DECODE SECTION 

BSR CMD=27 f G2 WAS 2E 

BKSP NOW 

GO TO OP DECODE SECTION 

WTM CMD=1F 

SET WR-WTMFLAG AND MODE SET I ND 

GO TO OP DECODE SECTION 



IOCM 03 8 JCHL 174 



JTPE 031 JTPE 039 JTPE 046 



JTPE 061 
JTPE 064 
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********************************** 

* CROSS REFERENCE FOR CSECT JTPE * 
********************************** 



JTPE 037 
JTPE 044 
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JTYP DESCRIPTIVE TEXT 
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GENERAL 

THE PRINTER KEYBOARD PERFORMS PROGRAM OR CONSOLE INITIATED 
READ OR WRITE FUNCTIONS* IT OPERATES IN ONE CHARACTER AT A 
TIME MODE, 

THE REQUEST LINE IS ACTIVE WHEN A KEY IS PRESSED FOR A READ 
OR ALTER FUNCTION OR FOR A PROGRAM INITIATED WRITE OR DISPLAY 
(LOGOUT) FUNCTION. THESE CONDITIONS CAUSE ENTRY AT THE REQ 
ENTRY POINT. 



ENTRY POINTS 



SETADA 



TRAN 
TRANSB 



TW 



THIS POINT IS ENTERED WHEN THE PR-KB ALTER DISPLAY 
KEY IS PRESSED ON THE CONSOLE AND THE PR-KB IS NOT 
IN RUN MODE. 



THE READ (INPUT! CHARACTER IS TRANSLATED, CHECKED, 
AND STORED. 



NORMAL ENTRY POINT tFROM REQUEST HANDLING ROUTINE) 
FOR A WRITE OR ALTER DISPLAY FUNCTION. 



LABEL 



SETRDL 
SETWRL 



EXCLUSIVE ENTRY POINT FOR PROGRAM INITIATED READ 
OR WRITE OPERATIONS. 



ENTRY IS AT THESE POINTS TO SET THE READ OR WRITE 
LATCH AS APPROPRIATE. 



TSTLO 



ALTDYE 



ENTRY POINT FOR THE RE-TRANSLATE TABLE. THIS 
TABLE CONVERTS SPECIAL CHARACTER EBCDIC REPRESEN- 
TATION IN MAIN STORAGE INTO THE 1352 PTT CODE TO 
PRINT THE CHARACTER. 



THIS ENTRY IS USED FOR HANDLING ANY ERROR ON CON- 
SOLE OPERATIONS. 



REQ 



THIS ENTRY POINT IS USED FOR A CONSOLE INITIATED 
READ OR ALTER FUNCTION OR A PROGRAM INITIATED 
WRITE OR DISPLAY I LOGOUT) FUNCTION. IT IS ALSO 
USED WHEN THE PR-KB CHANGES FROM NOT READY TO 
READY STATUS. 



TE 



CSALT 



ENTRY FOR NORMAL ENDING ROUTINE. 



CONTROL STORAGE ALTER ENTRY CFROM REQUEST HANDLING 
ROUTINEI. 



GFIX 



THIS PORTION OF THE ROUTINE HANDLES NOT READY TO 
READY STATUS ON THE PR-KB. 



ALTAUX 



AUXILIARY STORAGE ALTER ENTRY (FROM REQUEST HAND- 
LING ROUTINE). 



EXITA 



THIS PERFORMS THE NORMAL EXIT FUNCTION AFTER PR-KB 
OPERATION IS COMPLETE. 



CSDIS 



CONTROL STORAGE DISPLAY ENTRY (FROM REQUEST HAND- 
LING ROUTINE). 



STOPCD 



ENTRY TO DETERMINE ALTER/DISPLAY STOP CODE PRESEN- 
TED ON LOGOUT MESSAGES. 



A DDR 


WORD 


SEQUENCE NO. LABEL 






JTYP 


OOi T 






JTYP 


002 * 






JTYP 


003 * 


23E2 


3404 


JTYP 


004 LABEL 


23E4 


5553 


JTYP 


005 


23E6 


1545 


JTYP 


006 


23E8 


OOCO 


JTYP 


007 


23EA 


5C92 


JTYP 


008 


23EC 


1C35 


JTYP 


009 


23EE 


6C55 


J TYP 


010 


23F0 


5C5B 


JTYP 


Oil 


23F2 


1C87 


JTYP 


012 


23F4 


7C92 


JTYP 


013 


23-F6 


16F3 


JTYP 


014 


23F8 


5C82 


JTYP 


015 


23FA 


1D83 


JTYP 


016 


23FC 


7C82 


JTYP 


017 


23FE 


07 9B 


JTYP 


018 


2400 


F092 


JTYP 


019 


2402 


1D23 


JTYP 


02 


2404 


7C82 


JTYP 


021 


2406 


0F08 


JTYP 


022 SETRDL 


2408 


3F20 


JTYP 


023 


240A 


A416 


JTYP 


024 


2412 


1F00 


JTYP 


02 5 SETWRL 


2414 


2F08 


JTYP 


026 


2416 


7032 


JTYP 


02 7 STORE 


2418 


2075 


JTYP 


02 9 


24 1A 


2145 


JTYP 


033 


241C 


7208 


JTYP 


034 


241€ 


76C8 


JTYP 


035 


2420 


7408 


JTYP 


036 


2422 


7808 


JTYP 


03 7 


2424 


7AC8 


JTYP 


03 8 


2426 


7C08 


JTYP 


039 


2428 


7E08 


JTYP 


040 


242A 


2020 


JTYP 


041 


242C 


EE8C 


JTYP 


042 


242E 


5FFF 


JTYP 


043 


2430 


7F00 


JTYP 


044 


2432 


2FF3 


JTYP 


045 


2434 


1F2 8 


JTYP 


046 


2436 


3400 


JTYP 


047 


2438 


0004 


JTYP 


048 


243A 


4FFF 


JTYP 


049 


24 3C 


96AC 


JTYP 


050 


240C 


0F20 


JTYP 


051 EXITZ 


240E 


3400 


JTYP 


052 


2410 


96AC 


JTYP 


053 






JTYP 


054 * 


02DA 


5FFF 


JTYP 


055 REQ 


02 DC 


0FC9 


JTYP 


056 


02DE 


F4FC 


JTYP 


057 



025 SETWRL 



027 STORE 



NEXTSEQ NEXTLABEL STATEMENT 

**1400 TYPEWRITER ROUTINES 
I CYCLE ENTRY 

SET MODE K*A0 

Gl^GlXH 

G1=G1*-K40 

RST S K=OC 

RDH P OA,AA 

P0=P0*-K30 

P0=P0$G1 

G1=P0H 

P0=P0*-K88 

STH P DA,AA 

D0=D0*-K0F 

RDH P 0A f A8 

Pi=Pl*-K08 

STH P DA, A8 

Z=D1QK09 

BR IF LZNZ 

P1=P1*-K02 

STH P DA, A8 

RST TA K=40 

SET TA K=82 

BR 

RST TA K=80 

SET TA K=40 

STH U DA,8E 

U0=0$K70 

Ul=0$K40 

STH V AS«U+2 

STH D AS,U*2 

STH G AS,U«-2 

STH I AS,U«-2 

STH T AS,U«-2 

STH P 'AStU+2 

STH H AS,U+2 

SET S6 

BR IF TT2*0 

H1=TU 

STB HI AS,U 

H1=0$K0F 

RST TA K=C2 

SET MODE K=80 

RST S2 

MW=H1 

BR 

RST TA K=02 

SET MODE K=80 

BR 

1052 REQUEST 
H1=TU 
Z=HUKC0 
087 TRY BR IF AC=0 



051 EXITZ 



INRU 030 STGPCK 



INRU 030 STOPCK 
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COMMENTS 

R TAYLOR 



SET 1400 1052 MODE,LSZONE CPU 



REMOVE BIT I 

READ STATUS BYTE 

Gl*80 OR 90 SETS LOAD, HBALL, NAN 
PUT HB ALL STATUS IN Gl Gl^COORDO 
RST MANUAL, 1052 ERROR BITS,HBALL 
AND LOAD STATUS SET AS REQUIRED 
RST DO LOW ORDER BITS! USED A/D) 
CLEAR ERROR CONDITIONS 
RESET REQUEST BIT 
10 ERROR CLEARED 
TEST FOR READ 
BR IF WRITE 



RESET WRITE 

SET READ AND INITIALIZE 

RESET READ 
SET WRITE 



STORE 



CPU 



ZONE 



REGS 



IN 



AUX 



STORAGE 



STAY IN SOFT STOP 
NO INTV 

STORE R OR W LATCH 



RESET SHARE 

SET 1400 CPU ZONE AND MODE 

SHARE REQUEST 

TEST RUN MODE 
NOT READ OR WRITE 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTS6Q 


NEXTLA8EL 


STATEMENT 


02E0 


9F5E 


JTYP 


058 






129 


ATT E NT 


BAL 


02E2 


2075 


JTYP 


060 


RESREG 








U0^0$K70 


Q2E4 


2145 


JTYP 


064 










U1=0$K40 


02E6 


5208 


JTYP 


065 










ROH V AS,U+2 


02E8 


56G8 


JTYP 


066 










ROH D AS,U+2 


02EA 


5408 


JTYP 


067 










ROH G AS,U+2 


02EC 


58C8 


JTYP 


06 8 










RDH I AS,U+2 


02EE 


5A08 


JTYP 


069 










RDH T AS,U+2 


02EO 


5C08 


JTYP 


070 










ROH P AS,U+2 


02F2 


5E<92 


JTYP 


071 










ROH H DA, AA 


02F4 


CA78 


JTYP 


072 






085 


SEC8IT 


BR IF HO BIT4=0 


02F6 


9F7C 


JTYP 


073 




JYPE 


008 


LABEL 


BR 


034A 


DED3 


JTYP 


74 


GFIX 




076 


RT 


BR IF TT1=1 


034C 


A40C 


JTYP 


075 






051 


EXITZ 


BR 


0352 


5F0A 


JTYP 


076 


RT 








ROB HI AStU-1 


03 54 


CF5A 


JTYP 


077 






080 


GETWR 


BR IF HIO^O 


356 


3F20 


JTYP 


078 










SET TA K=82 


0358 


83 5C 


JTYP 


079 






081 


OK NOW 


BR 


035A 


2F08 


JTYP 


080 


GETWR 








SET TA K=*40 


03 5C 


0F20 


JTYP 


081 


OKNQW 








RST TA K=02 


035E 


3400 


JTYP 


082 










SET MODE K=80 


0360 


4F1F 


JTYP 


083 










MW=U1 


0362 


9 6AC 


JTYP 


084 




INRU 


030 


STOPCK 


BR 


02F8 


5E08 


JTYP 


085 


SECB1T 








ROH H AS,U*2 


02FA 


5032 


JTYP 


086 










ROH U 0A,8E 


02FC 


5C92 


JTYP 


087 


TRY 








ROH P OA,AA 


02 FE 


EC10 


JTYP 


088 






114 


TRYRO 


BR IF PO BIT2=0 


0300 


1F2C 


JTYP 


089 










RST TA K=E2 


0302 


1040 


JTYP 


090 










RST S K=84 


0304 


1C35 


JTYP 


091 










P0«P0*-K30 


306 


CC1A 


JTYP 


092 






136 


ML OP 


BR IF P00=0 


0308 


7C92 


JTYP 


093 










STH P OA,AA 


030A 


FAA4 


JTYP 


094 






097 


NOTSUM 


BR IF TT7=0 


030C 


0610 


JTYP 


95 










RST BC K=Ol 


030E 


980A 


JTYP 


096 




IRST 


064 


SUMMIT 


BR 


0324 


FFAF 


JTYP 


097 


NOT SUM 




102 


STOPCO 


BR IF TU3=1 


03 26 


8264 


JTYP 


098 




I REG 


012 


STRUVI 


BAL 


03 28 


0020 


JTYP 


099 










RST S6 


032A 


3400 


JTYP 


100 


EXITA 








SET MOOE K=80 


032C 


96AC 


JTYP 


101 




INRU 


030 


STOPCK 


BR 


032E 


C1B2 


JTYP 


102 


STOPCO 




104 


PAS SI 


BR IF S4=0 


0330 


OF 02 


JTYP 


103 










RST TA K=iO 


0332 


5EF2 


JTYP 


104 


PASS1 








ROH H DA, BE 


0334 


3400 


JTYP 


105 










SET MOOE K=8 


0336 


CFBO 


JTYP 


106 






109 


PASS4 


BR IF BBO=l 


0338 


0E11 


JTYP 


107 










Z=H0+KG1 


033A 


FOBF 


JTYP 


108 






110 


PASS2 


BR IF LZ=0 


03 3C 


3E29 


JTYP 


109 


PASS4 








H0=0-K20 


03 3 E 


7EF2 


JTYP 


110 


PASS2 








STH H DA, BE 


0340 


C1C5 


JTYP 


111 






113 


PASS3 


BR IF S4=l 


342 


A 044 


JTYP 


112 




I91S 


003 


STOPPP 


BR 


0344 


ACBC 


JTYP 


113 


PASS3 


IOIS 


010 


STOP 


BR 


0310 


CFC7 


JTYP 


114 


TRYRO 




121 


NNRTRR 


BR IF TU BIT0=1 
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COMMENTS 

CHECK ATTENTION 



RESTORE 

CPU 

ZONE 

REGS 
IN 
AUX 
CHECK FOR JYPE ROUTINE ENTRY 
NORMAL TYPE BRANCH 
GO DISPLAY 



RESTORE H REG 

RESTORE A STAR 

GET STATUS FOR TESTING 

BR NOT SECONDARY BIT 

RESET RUN MOOE, SHARE REQ 

RST SO S5 

MOVE OR LOAD RTN TO I CYCLE 
STORE BLANK 1052 STATUS EXC ER,H 
NOT CHECK SUM OPERATION 
RST LOG LTCH IN CASE LAST ENTRY 

ALTER DISPLAY ACTIVE BRANCH 
SAVE REGS IN CASE START/RST USED 
ALLOW EXIT FROM SOFT STOP 

TRY I CYCLE START 

NOT A CONSOLE FUNCTION 

RST ACTIVE FOR C.INTP. ONLY 

CHECK CODED HALT 

SET CPU MODE AND ZONE 

USE DF CODE IF SOFT STOP IS OFF 

CHECK FOR XF STOP CODE FROM HALT 

SETUP DF AS HALT CODE 

STORE APPROPRIATE CODE 

SENSE INFO IN ALREADY 

PUT SENSE SWITCH BYTE IN DISPLAY 

PUT NEW S SW OR TAPE SETTING IN 

READ LATCH 



AD OK 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEl 


. STATE 


fMENT 


0312 


0FC7 


JTYP 


115 




121 


NNRTRR 


BR IF 


TU BIT 1=1 


03 14 


E1CB 


JTYP 


116 




074 


GFiX 


8R IF 


S6=l 


0316 


FECE 


JTYP 


117 




119 


PASSME 


BR IF 


TT 8IT3=0 


03 18 


92EC 


JTYP 


118 




142 


SETADA 


BR 




034E 


9F5E 


JTYP 


119 


PASSME 


129 


ATTENT 


BAL 




3 30 


A40C 


JTYP 


120 




051 


FXITZ 


BR 




0346 


FFE5 


JTYP 


121 


NNRTRR 


123 


INITL 


BR IF 


TU BIT 3=1 


3 48 


890E 


JTYP 


122 


STARTO 


265 


BEGIN 


BR 




364 


C249 


JTYP 


123 


INITL 


122 


STARTO 


BR IF 


DO BIT 4=1 


3 66 


C1EC 


JTYP 


124 




128 


SKPSKP 


BR IF 


S4=0 


0368 


DFEF 


JTYP 


125 




127 


PASS5 


BR IF 


TU BIT 1=1 


3 6A 


8536 


JTYP 


126 




322 


TRAN 


BR 




036F 


8376 


JTYP 


127 


PASS5 


480 


TE 


BR 




03 6C 


ACOE 


JTYP 


128 


SKPSKP 


152 


SETAD 


BR 




IF5E 


CEEA 


JTYP 


12 9 


ATTENT 


135 


FORGET 


BR IF 


TT BIT 0=0 


U~6Q 


FFE8 


JTYP 


130 




135 


FORGET 


BR IF 


TU BIT3=1 


1F62 


5C82 


JTYP 


131 








ROH ? 


DA, A8 


1F64 


3023 


JTYP 


132 








P1=P1$K02 


IF66 


7C82 


JTYP 


133 








STH P 


0A,A8 


1F68 


OF 10 


JTYP 


134 








RSr TA K=01 


IF6A 


128E 


JTYP 


135 


FORGET 






RTN 




031A 


3C85 


JTYP 


136 


MLOP 






P0=P0$K80 


03 1C 


7C92 


JTYP 


137 








STH P 


OA,AA 


03 IE 


2C05 


JTYP 


138 








PO=0$KQO 


0320 


3400 


JTYP 


139 








SET MODE K=80 


0322 


807C 


JTYP 


140 




ICYC 037 


HISTRT 


BR 








JTYP 


141 


* 




** ALTER 


DISPLAY SET UP 


12 EC 


3F22 


JTYP 


142 


SETAOA 






SET TA K=92 


12EE 


3C95 


JTYP 


143 








PQ=P0$K90 


12F0 


5C5B 


JTYP 


144 








G1=P0H 


I2F2 


16F3 


JTYP 


145 








DO=DO*-KOF 


12F4 


7C92 


JTYP 


146 








STH P 


DA, AA 


12F6 


10C0 


JTYP 


147 








RST S 


K=8C 


12F8 


2E05 


JTYP 


148 








HO=0$KOO 


12FA 


2F7 3 


JTYP 


149 








H1=0$K07 


12FC 


7EE2 


JTYP 


150 








STH H 


DA, BC 


12FE 


A416 


JTYP 


151 




027 


STORE 


BR 




2C0E 


DAA8 


JTYP 


152 


SETAD 


178 


ERR4 


BR IF 


TT5=1 


2C10 


F214 


JTYP 


153 




155 


FIRST 


8R IF 


007=0 


2C12 


8B6E 


JTYP 


154 




243 


ADCOMP 


BR 




2C14 


CFAO 


JTYP 


155 


FIRST 


157 


CKFRST 


BR IF 


TU BITO=l 


2C16 


A406 


JTYP 


156 


BACK 


022 


SETRDL 


BR 




2G2C 


5AEF 


JTYP 


157 


CKFRST 






HO=TI 




2C2E 


0E3F 


JTYP 


158 








Z=H0nK33 


2C30 


C499 


JTYP 


159 




169 


CTRL A 


BR IF 


1*0 


2C32 


E0A3 


JTYP 


160 




174 


TESTFT 


BR IF 


HZ=0 


2C34 


D1AA 


JTYP 


161 




178 


mm 


BR IF 


$5=0 


2C36 


2F25 


JTYP 


162 








H1=0$K20 


2C38 


3F73 


JTYP 


163 








H1=H1$K07 


2C3A 


6FEI 


JTYP 


164 








Hl=HlnHO 


2C3C 


C4AA 


JTYP 


165 




ITS 


ERR4 


BR IF 


ZNZ 


2C3E 


2E70 


JTYP 


166 








HO=HO*K70 


2C40 


5EF9 


JTYP 


167 








H1=HQ 
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COMMENTS 

WRITE LATCH ON 

NOT ALTER DISPLAY 

ALT DISPLAY 

CHECK ATTENTION 

NOT RUN MODE EXIT VIA INRU 

ALT DISPLAY ACTIVE 

ALTER DISPLAY SET TO GO 

WRITE LATCH ON HERE FOR LINE FD- 
DO CHAR FOR CONSOLE INTERRUPT 
GO DO LINEFEED 

NOT ATTENTION 
ALTER DISPLAY ACTIVE 
SET 

INQUIRY 



FLAG 



RESET ATTENTION 



STORE STATUS 

SET CPU MODE AND ZONE 
RETURN TO I CYCLES 

SET READ, INITIALIZE, A/D ACTIVE 

OR IN MANUAL, LOAD MODE IN STATUS 

Gl CHANGED MAN LOAD FORCE, H IF 

RSI DO LOW FOUR BITS 

STORE STATUS 

RST SO AND4 AND 5 

INITIALIZE B STAR BACK UP 
STORE CONTROL DIGIT STATS 
GO BACK SOFT STOP 
ALTERNATE CODE IS INVALID 
COUNT ZERO 

BR IF READ LATCH 
SET READ 

PUT 1ST CHAR ON BUSS IN 
CHECK FOR C 
IS A C 

A IHRU I POSSIBLE 
ERSOR IF 1ST CHAR 
2ND CHAR- 
TEST FOR P 

IF NOT P, ERROR 

CHANGE TO 97 FOR P ON BUS OUT 



A COR 


WORD 


SEQUENCE NO* 


LABEL 


NEXTSEQ 


NEXTLA8EL STATEMENT 


2C42 


A516 


JTYP 


168 




198 


ADDR 


BR 


2C18 


01AA 


JTYP 


169 


CTRLA 


178 


ERR4 


BR IF S5=0 


2C1A 


E21F 


JTYP 


170 




172 


OOMORE 


BR IF 006=1 


2CIC 


C9AA 


JTYP 


171 




178 


ERR4 


BR IF TD4=0 


2C1E 


3583 


JTYP 


172 


DOMORE 






G1=G1$K08 


2C20 


8538 


JTYP 


173 




323 


TRANSB 


BR 


2C22 


0E48 


JTYP 


174 


TESTFT 






Z=H0OK04 


2C2 4 


F087 


JTYP 


175 




182 


DISPLY 


BR IF LZ=0 


2C26 


0E1B 


JTYP 


176 








Z=H0nK01 


2C28 


F081 


JTYP 


177 




179 


ALTCK 


BR IF LZ^O 


2C2A 


8370 


JTYP 


178 


ERR4 


477 


ALT DY E 


BR 


2COO 


D18A 


JTYP 


179 


ALTCK 


184 


ALTER 


BR IF S5*=0 


2C0 2 


35C3 


JTYP 


180 








G1=G1$K0C 


2C04 


8538 


JTYP 


181 




323 


TRANSB 


BR 


2.C06 


3623 


JTYP 


182 


OISPLY 






DG= DO $K0 2 


2C08 


DiAB 


JTYP 


183 




178 


ERR4 


BR IF S5=l 


2COA 


3643 


JTYP 


184 


ALTER 






D0=D0$K04 


2COC 


8538 


JTYP 


185 




323 


TRANSB 


BR 


24FE 


OFFD 


JTYP 


186 


AORTN 






Z=H1QKF0 


2500 


E0A3 


JTYP 


187 




204 


DIG 


BR IF HZ=0 


2502 


2C7 5 


JTYP 


188 








P0=0$K70 


2 504 


3C93 


JTYP 


189 








P0=P0$K09 


2506 


6CF3 


JTYP 


190 








P0=P0«-H1 


2508 


F48C 


JTYP 


191 




193 


CKCNT 


BR IF AC=0 


250A 


8370 


JTYP 


192 




477 


ALT DYE 


BR 


250C 


E125 


JTYP 


193 


CKCNT 


205 


MIX 


BR IF Gi BIT6=1 


250E 


F210 


JTYP 


194 




201 


CKMAN 


BR IF DO BIT7=1 


2510 


019 7 


JTYP 


195 




198 


ADDR 


BR IF S5=i 


25 12 


2040 


JTYP 


196 








SET S5 


25 14 


A518 


JTYP 


197 




199 


PUTCHR 


BR 


25 16 


3613 


JTYP 


198 


AOOR 






DO=DO$KOl 


2518 


4FFF 


JTYP 


199 


PUTCHR 






TE=H1 


251A 


A416 


JTYP 


200 




027 


STORE 


BR 


251C 


C123 


JTYP 


201 


CKMAN 


204 


DIG 


BR IF Gl BIT4=i 


251E 


D1A3 


JTYP 


2 02 




204 


DIG 


BR IF S5=l 


2520 


8370 


JTYP 


203 




477 


ALT DY E 


BR 


2522 


0040 


JTYP 


2 04 


DIG 






RST S5 


2524 


5FE1 


JTYP 


205 


MIX 






H0=H1X 


2526 


6EF9 


JTYP 


2 06 








HOC=HO+Hl*i 


2528 


E12C 


JTYP 


207 




209 


SETBY 


BR IF Gl BIT6=0 


252A 


814E 


JTYP 


208 




489 


CSALT 


BR 


252C 


5CE2 


JTYP 


209 


SETBY 






ROH P DA f BC 


252E 


D93F 


JTYP 


210 




219 


ONE 


BR IF PI BIT5=i 


25 30 


E939 


JTYP 


211 




235 


TWO 


BR IF PI BIT6=1 


2532 


F951 


JTYP 


212 




238 


THREE 


BR IF PI 8IT7=i 


2534 


3523 


JTYP 


213 








Gi=Gl$K02 


2536 


8C08 


JTYP 


214 




241 


FOURTH 


BR 


2E2A 


7CE2 


JTYP 


215 


BUILD 






STH P DA f BC 


2E2C 


4FFF 


JTYP 


216 








TE=H1 


2E2E 


E133 


JTYP 


217 




247 


CKKEY 


BR IF Gl BIT6=1 


2E30 


A416 


JTYP 


213 




027 


STORE 


BR 


253E 


5EC3 


JTYP 


219 


ONE 






PO=HGXH 


25 40 


1D4B 


JTYP 


220 








Pl=PlnK04 



CLQAD=*E40, EC LEVEL=128211 
COMMENTS 

READY FOR ADDRESS NEXT TIME 

C VALID FOR 2ND CHAR ONLY 

OKAY IF DISPLAY OP 

ALTER CONTROL OK IF CE KEY IS ON 

CONTROL STORE OP 

DO TRANSLATE 

IS IT A D 

YES DO A DISPLAY OP 

IS IT A 

CHECK FOR EITHER ALTER OP ,AUX 

INPUT ERROR GET OUT 

1ST CHAR A MEANS ALTER OP 

SET STATS FOR AUX OP 

DO TRANSLATE 

SET DO BIT6 FOR DI SPLAY 

SET DO BIT5 FOR TRANS TABLE CTL 
GO TO TRANSLATE TABLE HOIN,H10T 
TEST FOR NUMERIC 

BUILD CONSTANT TO TEST 
TRANSLATED CHARACTER 

CHARACTER IS HEXIDECIMAL DIGIT 

ERROR 

ADDRESS COMPLETE 

OFF FOR FIRST 2 CHAR 

PUT DO 7 ON AFTER 1ST TWO CHAR 

FIRST DIGIT CONTROL 

A OR D 1ST CHAR TO BUSSOUT 

TURN FOR ADDRESS 

BUSS OUT CHARACTER 

AUX OR CONTROL STORAGE OP 

1ST CHAR FLAG 

INV SET UP FOR DECIMAL CONVERT 

RST 1ST CHAR FLAG 

CROSS EBCDIC CHAR, ADD TO BUSSOUT 

EBCDIC+1 AND THROW AWAY HI 4 BTS 

NOT COMPLETE ADDRESS YET 

ALTER CONTROL STORAGE 

GET ALTER DISPLAY ADDRESS BUILD 

ADDRESS AND CONTROL DIGIT COUNT 

ACTUAL B STAR IS IN V PI BITS 

CONTROL DIGITS UNTIL FINAL ADDR 

ADDRESS COMPLETE 

SAVE ADDRESS BUILD FOR FOUR CHAR 
BUSS OUT CHAR 

CONTINUE IF OTHERWISE 
PUT 1ST IN POH 
RST 1ST STAT 
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ADOR 


WORO 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


2542 


0148 


JTYP 


221 




231 


ONEOK 


BR IF Gl BIT5=0 


2544 


CC3C 


JTYP 


223 




237 


ONEGKl 


BR IF P00=0 


2546 


8370 


JTYP 


230 




477 


ALTOYE 


BR 


2548 


C13C 


JTYP 


231 


ONEOK 


237 


ONEOKI 


BR IF G14=0 


254A 


0CC9 


JTYP 


232 








Z=PO+KCO 


25 4C 


F48C 


JTYP 


233 




237 


ONEOKI 


BR IF AC=0 


254E 


8370 


JTYP 


234 




477 


ALTOYE 


BR 


253 8 


4EC0 


JTYP 


235 


TWO 






PO=HOL+POH 


25 3 A 


1028 


JTYP 


236 








Pl=PlaK02 


253C • 


AE2A 


JTYP 


237 


ONEOKi 


215 


BUILD 


BR 


25 50 


4E03 


JTYP 


238 


THREE 






P1-H0XH+P1L 


2552 


101B 


JTYP 


239 








Pl=PlaK01 


2554 


AE2A 


JTYP 


240 




215 


BUILD 


BR 


0CD8 


4E0D 


JTYP 


241 


FOURTH 






P1=H0L*PIH 


0CI3A 


AE2A 


JTYP 


242 




215 


BUILD 


BR 


08 6E 


E172 


JTYP 


243 


ADCOMP 


245 


GETPTT 


BR IF Gl BIT6=0 


0870 


AE1E 


JTYP 


244 




254 


AOSTRT 


BR 


0872 


5AEF 


JTYP 


245 


GETPTT 






HO=T-I 


OB 74 


8538 


JTYP 


246 




323 


TRANSB 


BR 


2E32 


7222 


JTYP 


247 


CKKEY 






STH V DA,8C 


2E34 


4EC6 


JTYP 


248 








H=P 


2E36 


CI 3D 


JTYP 


249 




252 


CONAUX 


BR IF Gl BIT 4=1 


26 38 


A396 


JTYP 


250 




ISIC 023 


SETBST 


BAL 


2E 3A 


A412 


JTYP 


251 


WRITE 


025 


SETWRL 


BR 


2E3C 


42C6 


JTYP 


252 


CONAUX 






V=P 


2E3E 


A412 


JTYP 


253 




025 


SFTWRL 


BR 


2E1E 


2F53 


JTYP 


2 54 


AOSTRT 






Hi=0$K05 


2E20 


3F15 


JTYP 


255 








H1=H1$K10 


2E22 


4FFF 


JTYP 


2 56 








TE=H1 


2E24 


16DB 


JTYP 


257 








00=D0aK00 


2E26 


E23B 


JTYP 


258 


SETLCH 


251 


WRITE 


BR IF 00 8IT6=1 


2E28 


A406 


JTYP 


259 




022 


SETROL 


BR 


0710 


5C82 


JTYP 


260 


SETIO 






ROH P DA, A8 


0712 


3083 


JTYP 


261 








P1=P1$K08 


0714 


7C82 


JTYP 


2 62 








STH P 0A f A8 


0716 


128E 


JTYP 


263 








RTN 






JTYP 


264 


ASEQ 


AL07=0E 






090E 


CFA3 


JTYP 


265 


BEGIN 


275 


ROALTR 


BR IF TU BITO^l 


09 10 


CU4 


JTYP 


266 




268 


NCSOY 


BR IF Gl 8IT4=0 


0912 


924C 


JTYP 


267 




502 


CSDIS 


BR 


0914 


5F30 


JTYP 


268 


NCSDY 






RD8 HI V*Q 


0916 


0FF8 


JTYP 


269 








Z=HlaKOF 


0918 


C49D 


JTYP 


270 




272 


TSOISP 


BR IF Z=0 


091A 


85E4 


JTYP 


271 


TWBACK 


4 16 


TW 


BR 


091C 


E21B 


JTYP 


272 


TSDISP 


271 


TWBACK 


BR IF 00 BIT6=1 


091E 


5224 


JTYP 


2 73 








V=V + 1 


09 20 


8376 


JTYP 


2 74 




480 


TE 


BR 


0922 


5AEF 


JTYP 


275 


ROALTR 






H0=TI 


0924 


0AA9 


JTYP 


276 




278 


CANENO 


BR IF TT BIT5=1 


09 26 


894 8 


JTYP 


277 


TRBACK 


295 


TR 


BR 


0928 


1EC5 


JTYP 


278 


CANENO 






HO=HO*-KCO 


092A 


0E58 


JTYP 


2 79 








Z=H0aK05 


092C 


C488 


JTYP 


280 




286 


CONTST 


BR IF ZNZ 



CLQAD=*E40, EC LEVEL=128211 
COMMENTS 

NOT AUX SETUP 
VALID AUX DIGIT 

NOT CONTROL STORE OP 

TEST FOR 0-3 FOR 1 ST 

VALIO 1ST CHAR FOR CONTROL STORE 

PUT 2N0 IN POL 
RST 2ND STAT 

PUT 3RD IN P1H 
RST 3R0 STAT 

PUT 4TH IN P1L 

ADDRESS NOT COMPLETE 

GET BUSS IN CHAR 

STORE ORIGINAL B* 

PUT ADDRESS IN H REG 

AUX OR CONTROL STORAGE OP 

CONVERTED ADDRESSt DEC IN B STAR 

SET WRITE LATCH 

PUT ADDRESS IN B STAR 

ISSUE LINE FD 

CHARACTER 
BUSS OUT LINE FEED 
SET BIT4,6GN IF 01 SP* 5AND7 RST 
IS DISPLAY OPERATION 
DO ALTER OPERATION 
SET ERROR BIT INQ CLEAR 
SET ERROR BIT 

T ERROR BIT SET 



BRANCH IF READ 

NOT AUX OR CONTROL STORAGE OP 

READ MEMORY CHAR 

TEST FOR GMWM 

YES WE HAVE ONE , TE ST DISPLAY 

WRITE ROUTINE 

BR IF DISPLAY 

INCREMENT B STAR 

GO ENDING ROUTINE 

PUT BUSS IN CHAR IN HO 

ALT CODE CANCEL OR END TEST 

BRANCH TO READ ROUTINE 

STRIP CASE BITS 

EOS TEST 

BR IF NOT EOB 
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40 OR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXT LABEL STATEMENT 


39 2E 


C232 


JTYP 


281 




283 


NOTALT 


BR IF DO BIT4=0 


0930 


8376 


JTYP 


2 82 




480 


T€ 


BR 


09 32 


2FF3 


JTYP 


2 83 


NOTALT 






Hi=0$KOF 


0934 


7F38 


JTYP 


2 84 








ST8 HI V + l 


0936 


8376 


JTYP 


2 85 


TEBACK 


480 


TE 


BR 


0938 


8710 


JTYP 


286 


CONTST 


260 


SETIO 


BAL 


09 3 A 


OEAB 


JTYP 


287 








Z=H0nK0A 


09 3C 


C4C8 


JTYP 


288 




295 


TR 


BR IF ZNZ 


093E 


2F45 


JTYP 


289 








H1=0$K40 


0940 


C237 


JTYP 


290 




285 


TEBACK 


BR IF DO 8IT4=l 


0942 


8710 


JTYP 


291 


SETINQ 


260 


SETIO 


BAL 


0944 


CACB 


JTYP 


292 




296 


RTNTR 


BR IF TT BIT4=1 


09 46 


85AA 


JTYP 


293 




384 


TRA 


BR 






JTYP 


294 


* 




** READ 


ROUTINE STARTS HERE 


0948 


CAC3 


JTYP 


295 


TR 


291 


SETINQ 


BR IF TT BIT4=1 


094A 


CA4F 


JTYP 


296 


RTNTR 


298 


GOON 


BR IF HO BIT4=1 


09 4C 


8538 


JTYP 


297 




323 


TRANSB 


BR 


09 4E 


DA53 


JTYP 


29 8 


GOON 


300 


TSTO 


BR IF HO BIT5=i 


09 50 


85 3 8 


JTYP 


2 99 




323 


TRANSB 


BR 


09 52 


OEOB 


JTYP 


300 


TSTO 






Z=HOnKOD 


09 54 


F008 


JTYP 


301 




303 


ERR0R1 


BR IF LZNZ 


09 56 


FE60 


JTYP 


302 




307 


CHANGE 


BR IF HO BIT3=0 


0958 


2F45 


JTYP 


303 


ERR0R1 






Hi=0$K40 


095A 


8710 


JTYP 


304 




260 


SETIO 


BAL 


095C 


C26F 


JTYP 


305 


CKALTR 


314 


GETOUT 


BR IF DO BIT4=1 


095£ 


85AA 


JTYP 


306 




384 


TRA 


BR 


0960 


C269 


JTYP 


307 


CHANGE 


311 


ALTLF 


BR IF D04=l 


09 6 2 


2F55 


JTYP 


308 








H1=0$K50 


0964 


3FD3 


JTYP 


309 








H1=H1$K00 


0966 


85AA 


JTYP 


310 




384 


TRA 


BR 


0968 


2F15 


JTYP 


311 


ALTLF 






H1-=0$K10 


096A 


3F53 


JTYP 


312 








HI=H1$K05 


096C 


£273 


JTYP 


313 


TG 


316 


CKATT 


BR IF DO BIT6=1 


096E 


4FFF 


JTYP 


314 


GETOUT 






TE=Hl 


09 70 


A416 


JTYP 


315 




027 


STORE 


BR 


0972 


CEEE 


JTYP 


316 


CKATT 


314 


GETOUT 


BR IF TT BITO=0 


09 74 


5226 


JTYP 


117 








V=V-1 


0976 


8376 


JTYP 


318 




480 


TE 


BR 






JTYP 


319 


* 




** TRANSLATE BEGIN, BUSS IN 






JTYP 


32 


AEND 












JTYP 


321 


ASEQ 


AL07=36 






0536 


5AEF 


JTYP 


322 


TRAN 






HO = TI 


0538 


5EB9 


JTYP 


323 


TRANSB 






T1=H0 


053A 


1BC5 


JTYP 


324 








T1=T1*-KC0 


05 3C 


C4F8 


JTYP 


325 




357 


T8LKUP 


BR IF Z=0 


05 3£ 


CE66 


JTYP 


326 


TRANAG 


346 


LOCASE 


BR IF HO BlTO=0 


0540 


OBBB 


JTYP 


327 


UPCASE 






Z=TlnK0B 


0542 


F0C8 


JTYP 


328 




331 


NOTUCB 


BR IF LZNZ 


0544 


2B1B 


JTYP 


329 








T1=T1+K01 


0546 


857A 


JTYP 


330 




357 


TBLKUP 


BR 


0548 


OBOO 


JTYP 


331 


NOTUCB 






Z=TlnKOO 


054A 


FOOO 


JTYP 


332 




335 


NOT U CO 


BR IF LZNZ 


054C 


3BA3 


JTYP 


333 








TUTUKOA 



CLGAD=*E40, EC LEVEL=12B211 
COMMENTS 

BR IF NOT ALTER 

GO ENDING IF ALTER 

BUILD GMWM 

STORE GMWM, INCREMENT ADDRESS 

GO ENDING 

BAL TO SET 10 ERROR 

CK CANCEL 

TRY TO READ CHAR OUT 

PUT BLANK IN IN CASE OF READ OP 

IF ALTER GO ENDING ROUTINE 

SET ERROR 

READ ROUTINE ENTRY AFTER TRANS. 

IF TT BIT4=0 

KEY CHECK 

LOW 4 BITS OF PTT TO BE EXAMINED 

X0-X7 GO TO, TRANS BEGIN 

XC-XF POSSIBLE 

X8-XB GO TO TRANS BEGIN 

XC,XE,XF ARE NOT FUNCTIONAL, 

CHANGE TO 40 FOR READ SET 10 ERR 

DD, ID, FD, 30 ARE NOT FUNCTIONAL 

BUILD BLANK 

SET ERROR BIT 

IF ALTER, BUSS OUT AND RETURN 

RTN AFTER TRANSLATE 

GIVE LINE FEED OP IF A/D ROUTINE 

CHANGE ED OR 2D TO 5D EBCDIC 

NOT FUNCTIONAL OD OR CD ARE CHGE 

CHARACTER SET UP BYPASS TRANS 

DO LINE FEEO 



BUSS OUT CHARACTER 

BR NOT ATTENTION 

BACK UP B STAR IF END OF DISPLAY 
ATT AND DISPLAY, GO ENDING ROUTE 
CHAR IN HO 



FOR CONSOLE INTERRUPT 

PUT PTT IN BIAS 

STRIP CAS£,CK FOR SPACE 

IS SPACE GO TABLE 

LOWER CASE CHAR 

CK XB 

BR NOT UPPER CASE XB 

UPPER CASE XB IN XC LOCATIONS 

TEST FOR UPPER CASE LOV? ORDER 

NOT XO UPPER CASE 

CHANGE BIAS FOR XO CHAR TO XA 
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ADD* 


WORD 


SEQUENCE NO. 


LABEL NEXTSEQ 


NEXTLABt 


EL STATEMENT 


054E 


857A 


JTYP 


334 




357 


TBLKUP 


BR 


05 50 


E0F8 


jtyp 


335 


NOTUCO 


357 


TBLKUP 


BR IF HZ=0 


0552 


OB IF 


JTYP 


336 








Z=TlQKli 


05 54 


C4DA 


JTYP 


337 




340 


UCINVX 


BR IF ZNZ 


0556 


2BF3 


JTYP 


338 








Tl=0$K0F 


05 5 8 


857A 


JTYP 


339 




357 


TBLKUP 


BR 


055A 


DA60 


JTYP 


34 


UCINVX 


343 


UCINV 


BR IF HO 8IT5=0 


055C 


0B4B 


JTYP 


341 








Z=TinK04 


0556 


F0E2 


JTYP 


342 




344 


BIASSC 


BR IF LZNZ 


0560 


85 9E 


JTYP 


343 


UCINV 


378 


ERR0R2 


BR 


562 


2B88 


JTYP 


344 


8IASSC 






T1=T1+K08 


0564 


857A 


JTYP 


345 




357 


TBLKUP 


BR 


0566 


OBOD 


JTYP 


346 


LOCASE 






Z^TlnKOO 


0568 


EOFA 


JTYP 


347 




357 


TBLKUP 


BR IF HZNZ 


056A 


OBBB 


JTYP 


348 








Z^TlnKOB 


056C 


C4FB 


JTYP 


349 




357 


TBLKUP 


BR IF Z=0 


056E 


3BF5 


JTYP 


350 








T1=T1$KF0 


0570 


5BF9 


JTYP 


351 








Hl=Tl 


05 72 


OFAB 


JTYP 


352 








Z^HlaKOA 


05 74 


FOFE 


JTYP 


353 




362 


TRCOMP 


BR IF LZNZ 


05 76 


1FF3 


JTYP 


354 








HI=H1*-K0F 


0578 


857E 


JTYP 


355 




362 


TRCGMP 


BR 


057A 


2A65 


JTYP 


357 


TBLKUP 






T0=0$K60 


05 7C 


5FA0 


JTYP 


361 








ROB HI AS,T+0 


057E 


D26B 


JTYP 


362 


TRCOMP 


419 


TtfR 


BR IF DO BIT5=1 


0580 


C16B 


JTYP 


363 




419 


TWR 


BR IF Gl BIT4=1 


5 82 


OFOD 


JTYP 


364 








Z=HlaKOO 


0584 


C488 


JTYP 


365 




367 


TESTX 


BR IF ZNZ 


0586 


859E 


JTYP 


366 


ERRRS 


378 


ERRGR2 


BR 


0588 


CE13 


JTYP 


367 


TESTX 


372 


UPPER 


BR IF HO BIT0=1 


5 8A 


D526 


JTYP 


368 




382 


CVER 


BR IF Gl BIT 1=0 


5 8C 


0F7D 


JTYP 


369 


CHEC 






Z=HlaK70 


058E 


EC.8 7 


JTYP 


370 




366 


ERRRS 


BR. IF HZ=G 


0590 


85A6 


JTYP 


371 




382 


OVER 


BR 


0592 


D527 


JTYP 


372 


UPPER 


382 


OVER 


BR IF Gl BIT 1=1 


0594 


OFBB 


JTYP 


373 








Z=HiaKOB 


0596 


F08D 


JTYP 


374 




369 


CHEC 


BR IF LZ=0 


0598 


OFCB 


JTYP 


375 








Z=HlaKOC 


059A 


F08D 


JTYP 


376 




369 


CHEC 


BR IF LZ=0 


059C 


85A6 


JTYP 


377 




382 


OVER 


BR 


059E 


8710 


JTYP 


378 


ERR0R2 


260 


SETIO 


8AL 


05A0 


2F45 


JTYP 


379 








H1=0$K40 


05A2 


85AA 


JTYP 


380 




384 


TRA 


BR 


05A4 


2FE7 


JTYP 


381 


WORD 






H1=0$KEE 


05A6 


OFEF 


JTYP 


382 


OVER 






Z=HlaKEE 


05 A 8 


C4C7 


JTYP 


383 




398 


WORDMK 


BR IF Z=0 


05AA 


5D30 


JTYP 


384 


TRA 






ROB Pi V+0 


05 AC 


OOFB 


JTYP 


385 








Z=PlnKOF 


05 A E 


C4B2 


JTYP 


386 




388 


NOGMWM 


BR IF ZNZ 


05B0 


C260 


JTYP 


387 




411 


TOMUCH 


BR IF DO BIT4=0 


0582 


C23F 


JTYP 


388 


NOGMWM 


394 


CKMGDE 


BR IF DO BIT4=1 


05B4 


0D3E 


JTYP 


389 




394 


CKMODE 


BR IF PI BIT 1=0 


0586 


F53F 


JTYP 


390 




394 


CKMODE 


BR IF Gl BIT3=l 



CL0AD=*E40, EC LEVEL=1282 1i 

COMMENTS 

GO TABLE 

CX CHAR EXC CO ARE HANDLED HERE 

CK PTT FOR 

CK FOR INVALID UPPER CASE 

01 CHAR PUT IN OF POSITION 

INVALID UPPER CASE ONLY 
X5,X6,X7 ALLOWED 
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INVALID CHARACTER 
X5,X6,X7 UC PUT IN 
GO TABLE 



XD f XE,XF 



ALL EXC NUMS, POUND SIGN IN TABLE 



LOOK UP POUND SIGN 
OR F FOR NUMERICS 0-9 
PUT ANS IN HI TRANS COMP 
FA MUST BE CHANGED TO FO 
TRANS COMPLETE FOR 1-9 



REG 



TRANS COMPLETE FOR 

LOCATE 

READ TRANSLATED CHARACTER 

ALT DISPLAY SET UP 

ALTER RTN FOR AUX OR CONTROL OP 

NO TABLE ERROR, CK WM FLAG 

VALID SO FAR 

INVALID CHARACTER 

UPPER CASE CHECK 

NO H BALL 

LOW AND H,UP ANDNO H WITH XB,XC 

INVALID CHANGE TO BLANK 

CONTINUE VALID CHARACTER 

EXIT IF H BALL 

COULD BE 78 CHARACTER 

COULD 8E 7C CHARACTER 

INVALID CHARACTER 

PUT BLANK IN MEMORY 

PUT BLANK IN ACC TO MODE 

PUT IN EE FOR WM 

LOOK FOR WM 

BRANCH IF WORD MARK 

READ MAIN STORAGE BYTE 

TEST FOR GROUP MK WD MK 

NOT ALTER 
ALTER OPERATION 
READ OPERATION 



ADD* 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


05 B 8 


3F45 


JTYP 


391 


ORBTIN 






H1=H1$K40 


05 8 A 


7F38 


JTYP 


3 92 


STORCH 






STB HI V + l 


05BC 


85EA 


JTYP 


393 




419 


TWR 


BR 


05BE 


F542 


JTYP 


3 94 


CKMODE 


396 


RSTBTO 


BR IF Gl BIT3=0 


05C0 


F138 


JTYP 


395 




391 


ORBTIN 


BR IF Gl BIT7=0 


05C2 


1F45 


JTYP 


3 96 


R STB TO 






H1=H1*-K40 


05C4 


858A 


JTYP 


397 




392 


STORCH 


BR 


05C6 


3513 


JTYP 


398 


WQRDMK 






G1=G1$K0I 


05 C 8 


1F83 


JTYP 


399 








H1=H1*-KG8 


05CA 


90B6 


J T YP 


400 




467 


CKROLH 


BR 


05CC 


0254 


JTYP 


401 


TWRTN 


405 


CKINQC 


BR IF 00 BIT5=0 


05C£ 


C1D2 


JTYP 


402 




404 


THRU 


BR IF S4=0 


0500 


A 494 


JTYP 


403 




INTP 014 


CRTN 


BR 


0502 


A4FE 


JTYP 


404 


THRU 


186 


AORTN 


BR 


0504 


C153 


JTYP 


405 


CKINQC 


404 


THRU 


BR IF Gl 8IT4=i 


0506 


DADE 


JTYP 


406 




410 


EXITB 


BR IF TT BIT5=0 


05 8 


5A0F 


JTYP 


407 








P1 = TI 


05DA 


00A8 


JTYP 


408 








Z=PlaK0A 


05 DC 


F0E1 


JTYP 


409 




411 


TOMUCH 


BR IF LZ=0 


05DE 


896C 


JTYP 


410 


EXITB 


313 


TG 


BR 


05E0 


8710 


JTYP 


411 


TOMUCH 


260 


SETIO 


BAL 


0562 


8376 


JTYP 
JTYP 


412 
413 


* 


480 


TE 


BR 






JTYP 


414 


* 




** WRITE 


ROUTINE 






JTYP 


415 


* 








05E4 


0F6B 


JTYP 


416 


TW 


419 


TWR 


BR IF HI BIT1=1 


0566 


F56A 


JTYP 


417 




419 


TWR 


BR IF Gl BIT 3=0 


05E8 


F124 


JTYP 


418 




381 


WORD 


BR IF Gl BIT7=0 


05EA 


1513 


JTYP 


419 


TWR 






G1=G1*-K0i 


05EC 


907E 


JTYP 
JTYP 


42 
421 


AEND 


422 


STRING 


BR 


1D7E 


3F45 


JTYP 


422 


STRING 






Hi=Hl$K40 


1080 


CF12 


JTYP 


42 3 




432 


QUAOi 


BR IF Hi BITO^O 


10 82 


OFFD 


JTYP 


424 








Z=HlaKF0 


1084 


E088 


JTYP 


42 5 




427 


TSTLO 


BR IF HZNZ 


10 86 


9DB6 


JTYP 


426 




467 


CKROLH 


BR 


1088 


F08F 


JTYP 


42 7 


TSTLO 


430 


CHSPEC 


BR IF LZ=0 


108A 


1F45 


JTYP 


42 8 








H1=H1*-K40 


10 8C 


9DB6 


JTYP 


429 




467 


CKROLH 


BR 


108E 


3F73 


JTYP 


43 


CHSPEC 






H1=H1$K07 


1090 


9DB6 


JTYP 


431 




467 


CKRDLH 


BR 


1092 


0216 


JTYP 


432 


QUAOl 


434 


TSTBLK 


BR IF DO BIT 5=0 


1094 


8370 


JTYP 


433 


ERRS 


477 


ALT OY E 


BR 


1096 


C115 


JTYP 


434 


TST8LK 


433 


ERRS 


BR IF Gl BIT4=1 


1098 


0F4D 


JTYP 


43 5 








Z=HlaK40 


109A 


C4D0 


JTYP 


436 




447 


TSTLOW 


BR IF ZNZ 


109C 


CFC9 


JTYP 


43 7 




442 


TESTC 


BR IF TU BITO^i 


109E 


F550 


JTYP 


438 




447 


TSTLOW 


BR IF Gl BIT3=0 


10A0 


2FC5 


JTYP 


43 9 


PICK 






H1=0$KC0 


1DA2 


3F6 3 


JTYP 


440 








H1=H1$KQ6 


10A4 


9DB6 


JTYP 


441 




467 


CKROLH 


BR 


1DC8 


5AEF 


JTYP 


442 


TESTC 






HO=TI 


10CA 


CE50 


JTYP 


443 




447 


TSTLOW 


BR IF HO BITO=0 



CL0AD=*E40, EC LEVEL=1282 1l 
COMMENTS 

TAKE WM OUT 

STORE ANO INCR ADDRESS 

BR IF MOVE MODE 

LAST CHAR WM 

PUT WM IN 

STORE CHAR 

SET LAST CHAR WORD MARK INDICATE 

CHANGE EE TO E6 

ALT DISP SET UP 

CHECK ALT DISP RTN 

VALID CHAR FOR CONSOLE INT SETUP 

YES RETURN 

ALTER RTN FOR AUX OR CONTROL OP 

TEST FOR CANCEL 

CK BUSS IN CHARACTER 

WAS CANCEL 

NOT CANCEL GOBON 



NO WORD MARK 

BR IF MOVE 

BR IF LAST CHAR. NOT A WM. 

RST LAST CHAR WAS WORDMARK 



INSURE NO WORDMARK 

QUADRANT 1 

AUADRANT 3 

NOT NUMERIC 

NUMERIC, GET OUT 

TEST FOR SPECIAL CHARACTERS 

REGAIN QUADRANT2 

CHANGE C0,D0 f E0 TO C7,D7,E7 

ALT DISP SET UP TEST 

YES, THIS QUAD IS ERROR FOR SET 

ALTER RTN FOR AUX OR CONTROL ERR 

TEST BLANK 

NOT A BLANK 

BR IF READ LATCH 

MOVE MODE 
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RE EXAMINE PTT CHARACTER 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


1DCC 


1EC5 


JTYP 


444 




iOCE 


C4A0 


JTYP 


445 




10DO 


2A75 


JTYP 


447 


TSTLQW 


ID02 


2F 40 


JTYP 


451 




10D4 


5FB9 


JTYP 


452 




1006 


D55A 


JTYP 


453 


SHIFT 


1008 


1B8B 


JTYP 


454 




1DDA 


5CA0 


JTYP 


455 


NOHB 


10DC 


FB27 


JTYP 


456 




1DDE 


5CF9 


JTYP 


457 




1DE0 


90S 6 


JTYP 


458 




10A6 


5DF9 


JTYP 


459 


ODD 


IDAS 


CFC1 


JTYP 


460 




10 A A 


F537 


JTYP 


461 




10 AC 


6DA9 


JTYP 


462 




1DAE 


F0B6 


JTYP 


463 




1DB0 


FD37 


JTYP 


464 




10B2 


2F15 


JTYP 


465 


D0LFD1 


1DB4 


3F53 


JTYP 


466 




1D.B6 


CFBA 


JTYP 


467 


CKR DLH 


IDB8 


85CC 


JTYP 


468 




1QBA 


F13F 


JTYP 


469 


AROUND 


108C 


5224 


JTYP 


470 




10BE 


896C 


JTYP 


471 


NOINCR 


10C0 


5ACF 


JTYP 


472 


FUNCT 


1DC2 


OCOB 


JTYP 


473 




10C4 


FOB 3 


JTYP 


474 




1DC6 


9DB6 


JTYP 


475 








JTYP 


476 


* 


0370 


10C0 


JTYP 


477 


ALTDYE 


0372 


OF 02 


JTYP 


478 




0374 


0640 


JTYP 


479 




0376 


5C92 


JTYP 


480 


TE 


0378 


3C25 


JTYP 


481 




3 7A 


7C92 


JTYP 


482 




037C 


16F3 


JTYP 


483 




0376 


2C5 3 


JTYP 


484 




0380 


3C15 


JTYP 


485 




0382 


4FCF 


JTYP 


486 




0384 


OFiO 


JTYP 


487 




0386 


A412 


JTYP 


488 




01 4E 


5BE2 


JTYP 


489 


CSALT 


0150 


F258 


JTYP 


490 




0152 


4EB0 


JTYP 


491 




0154 


0147 


JTYP 


492 




0156 


6B28 


JTYP 


493 




0158 


5EB3 


JTYP 


494 


STEPOV 


015A 


7BE2 


JTYP 


495 




01 5C 


161B 


JTYP 


496 




015E 


8S6C 


JTYP 


497 




0146 


32F3 


JTYP 


498 


ALTAUX 


0L48 


7B28 


JTYP 


499 




014A 


81B6 


JTYP 


500 





NEXTSEQ 



NEXTLABEL STATEMENT 







H0=HO*-KCO 




439 


PICK 


BR IF ZN2 
T0=0$K7O 
H1=H1+K40 
T1=H1 




455 


NOHB 


BR IF Gl BIT1* 
Tl=TlaK08 
RDH P AS,T+0 


=0 


459 


ODD 


BR IF HI 8IT7= 
Hi=PO 


I 


467 


CKRDLH 


BR 
Hl=Pi 




472 


FUNCT 


BR IF TUO^l 




467 


CKRDLH 


BR IF Gl BIT3= 
P1C=*P1*T0*1 


I 


467 


CKRDLH 


BR IF LZNZ 




467 


CKRDLH 


BR IF PI 8IT3= 

H1=D$K10 

H1=H1$K05 


I 


469 


AROUND 


BR IF TU BITQ* 





401 


TWRTN 


BR 




471 


NOINCR 


BR IF Gl BIT7= 

V=V*1 


I 


313 


TG 


BR 
PO=TI 

Z=POaKOD 




465 


D0LFD1 


BR IF LZ=0 




467 


CKRDLH 


BR 






** TYPE 


ENDING 
RST S K=8C 
RST TA K=10 
RST BC K=04 
RDH P 0A,AA 
P0=P0$K20 
STH P DA,AA 
DO=DQ*-KOF 
P0=0$K05 
P0=P0$K10 
TE=PO 
RST TA K=01 




025 


SETWRL 


BR 

RDB Tl DAtBC 




494 


STEPOV 


BR IF DO 8IT7* 
T1=H0L+T1H 


= 


498 


ALTAUX 


BR IF Gl BIT5=1 






STB ri CS.V+1 








T1=H0XH 








STB Tl DA,BC 








00=D0aK01 




313 


TG 


BR 

V0=V0$K0F 
STB Tl AS,V*1 




517 


CKME 


BAL 





CL0AD=*E40, EC LE VEL^1282 11 
COMMENTS 



BUILD AUX ADDRESS 

RETRANSLATE TABLE FOR 1052 
USING MEMORY CHAR AS BIAS 
NO H BALL IN STATUS 

SHIFT TABLE FOR H BALL 
READ TABLE 
SELECT ODD 
EVEN 
DONE 

CHECK FUNCTION KEY IF READ 
DONE IF LOAD MODE 
TEST FOR LINE FEED 
ALL BUT 4DS5D MEMORY CHAR 
4D EXIT 
BUILD LINE FEED 

CHARACTER 
NOT READ LATCH 
READ RETURN 

WORD MARK DO NOT INCREMENT 
INCREMENT B STAR 

TEST ATT IF DISPtBUSS OUT, STORE 
LOOK AT BUSS IN CHAR 
CHECK FOR LINEFEED PTT 
IS FUNCTION KEY DO LINEFEED 



RST S0,S5,S4 

RST »ALT DISPLY ACTIVE 

RESET CONSOLE INTERRUPT 

GET STATUS 

SET SECONDARY BIT 

STORE IT BACK 



LINE FEED 

RESET ATTENTION IF ON 

GARBAGE WHEN DO BIT7=0 

OFF FOR FIRST CHAR OF ALTER BYT 

PUT IN 2ND CHAR OF ALTER BYTE 

ALTER AUX STORAGE 

ALTER AND INCREMENT B STAR 

PUT 1ST CHAR IN FOR AUX STORE 

STORE FIRST OR SECONO CHARACTER 

CHANGE STATE OF DO BIT 7 

GO BUSS CHAR OUT AND CONTINUE 

FORCE DONT CARE DIGIT TO F 

STORE ALTERED BYTE 
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ADOR 

014C 
12 4C 
124E 
12 50 
1252 
1254 
1256 
1258 
12 5A 
125C 
125E 
1244 
1246 
1248 
124A 
0186 
01B8 
01 BA 
018C 
01BE 



JTYP 
JTYP 
JTYP 
JTYP 

JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 



WORD SEQUENCE NO, LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



8158 
F253 
0145 
4B28 
5BB1 
5BF9 
5FAD 
8118 
5AF9 
161B 
85 6C 
32F3 
5B28 
81B6 
9252 
0280 
C4BC 
1285 
12F3 
128E 



JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 



004 
022 
025 
027 

051 
055 
074 
076 
080 
081 
085 
087 
097 
102 
104 
109 
110 
113 
114 
119 
121 
122 
123 
127 
128 
129 
135 
136 
142 



IOCM 
JTYP 
INTP 
INTP 
JYPE 
JTYP 
INRU 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 
JTYP 



037 
156 
233 
012 
046 
042 
062 
116 
074 
077 
079 
072 
057 
094 
097 
102 
106 
108 
111 
088 
117 
114 
123 
121 
125 
124 
058 
129 
092 
118 



501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
517 
518 
519 
52 9 
530 



JTYP 

JTYP 
INTP 



CSOIS 
SKIPOV 



494 
505 
512 



ICOM 002 UNPACK 



D1SAUX 



CKME 



RTNADR 



259 

019 JTYP 251 

057 ISTP 031 



STEPOV BR 

SKIPOV BR IF 00 8 IT 7=1 

DISAUX BR IF Gl BIT5=i 

ROB Ti CS,V+1 

T 1=T IX 

Hl=Ti 

T0=HIL 

BAL 

H1=T0 

D0=sD0aK01 

BR 

VO-VOSKOF 

ROB Tl AS,V+1 
CKME BAL 

SKIPOV BR 

2=V0QK80 
529 RTNAOR BR IF ZNZ 

VO^V0*-K80 

V0=V0*-K0F 

RTN 
********************************** 

* CROSS REFERENCE FOR CSECT JTYP * 

********************************** 



313 TG 



517 

505 



CL0AD=*E40, EC LEVEL=1282U 
COMMENTS 

CONTINUE AFTER ADDRESS CHECK 
OFF INITIALLY,WHEN 2ND CHAR UNPK 
DISPLAY AUX STORAGE 
FETCH 1ST BYTE FOR UNPACK f INC B* 

1ST CHAR PUT IN HI LOW FOR UNPK 

WHEN DO BIT7=1 2ND CHAR IN H1L 

DO THE UNPACK 

PUT IN REG FOR BUSS OUT 

CHANGE STATE OF DO BIT 7 • 

BUSS OUT CHAR OR END DISP IF ATT 

FORCE DONT CARE DIGIT TO F 

READ AUX BYTE FOR DISPLAY 

CONTINUE AFTER ADDRESS CHECK 
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ADDRESS OK 

ALLOW WRAP TO 0000 



AUX 



JTYP 253 
JTYP 024 



JTYP 488 
JTYP 151 



JTYP 200 JTYP 218 JTYP 315 JYPE 015 JYPE 023 JYPE 032 JYPE 037 



JTYP 075 JTYP 120 



JTYP 115 



JTYP 
JTYP 



119 
130 
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********************************** 

* CROSS REFERENCE FOR CSECT JTYP * 
********************************** 



JTYP 


152 


JTYP 


128 












jrvp 


155 


JTYP 


153 












JTYP 


157 


JTYP 


155 












JTYP 


169 


JTYP 


159 












JTYP 


172 


JTYP 


170 












JTYP 


174 


JTYP 


160 












JTYP 


178 


JTYP 


152 


JTYP 


161 


JTYP 


165 JTYP 169 JTYP 171 JTYP 183 


JTYP 


179 


JTYP 


177 












JTYP 


182 


JTYP 


175 












JTYP 


184 


JTYP 


179 












JTYP 


186 


JTYP 


404 












JTYP 


193 


JTYP 


191 












JTYP 


198 


JTYP 


168 


JTYP 


195 








J 1 YP 


199 


JTYP 


197 












JTYP 


201 


JTYP 


194 












JTYP 


204 


JTYP 


187 


JTYP 


201 


JTYP 


202 




JTYP 


205 


JTYP 


193 












JTYP 


209 


JTYP 


207 












JTYP 


215 


JTYP 


2 37 


JTYP 


240 


JTYP 


242 




JTYP 


219 


JTYP 


210 












JTYP 


231 


JTYP 


221 












JTYP 


235 


JTYP 


211 












JTYP 


237 


JTYP 


223 


JTYP 


231 


JTYP 


233 




JTYP 


238 


JTYP 


212 












JTYP 


241 


JTYP 


214 












JTYP 


243 


JTYP 


154 












JTYP 


245 


JTYP 


243 












JTYP 


247 


JTYP 


217 












JTYP 


251 


JTYP 


258 












JTYP 


252 


JTYP 


249 












J1YP 


254 


JTYP 


2 44 












JTYP 


260 


JTYP 


286 


JTYP 


291 


JTYP 


304 JTYP 378 JTYP 4i 1 




JTYP 


265 


JTYP 


122 












JTYP 


268 


JTYP 


2 66 












JTYP 


271 


JTYP 


2 72 












JTYP 


272 


JTYP 


270 












JTYP 


275 


JTYP 


265 












JTYP 


278 


JTYP 


276 












JTYP 


283 


JTYP 


281 












JTYP 


285 


JTYP 


290 












JTYP 


286 


JTYP 


280 












JTYP 


291 


JTYP 


295 












JTYP 


295 


JTYP 


277 


JTYP 


288 








JTYP 


296 


JTYP 


2 92 












JTYP 


298 


JTYP 


296 












JTYP 


300 


JTYP 


298 












JTYP 


303 


JTYP 


301 












JTYP 


307 


JTYP 


302 












JTYP 


311 


JTYP 


3C7 












JTYP 


313 


JTYP 


410 


JTYP 


471 


4TYP 


497 JTYP 511 
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********************************** 

* CROSS REFERENCE FOR CSECT JTYP * 
********************************** 

JTYP 314 JTYP 305 JTYP 316 

JTYP 316 JTYP 313 

JTYP 322 JTYP 126 

JTYP 323 JTYP 173 JTYP 181 JTYP 185 JTYP 246 JTYP 297 JTYP 299 

JTYP 331 JTYP 328 

JTYP 335 JTYP 332 

JTYP 340 JTYP 337 

JTYP 343 JTYP 340 

JTYP 344 JTYP 342 

JTYP 346 JTYP 326 

JTYP 357 JTYP 325 JTYP 330 JTYP 334 JTYP 335 JTYP 339 JTYP 345 JTYP 347 JTYP 349 

JTYP 362 JTYP 353 JTYP 355 

JTYP 366 JTYP 370 

JTYP 367 JTYP 365 

JTYP 369 JTYP 3 74 JTYP 376 

JTYP 372 JTYP 367 

JTYP 378 JTYP 343 JTYP 366 

JTYP 381 JTYP 418 

JTYP 382 JTYP 368 JTYP 371 JTYP 372 JTYP 377 

JTYP 384 JTYP 293 JTYP 306 JTYP 310 JTYP 380 

JTYP 388 JTYP 386 

JTYP 391 JTYP 395 

JTYP 392 JTYP 397 

JTYP 394 JTYP 388 JTYP 389 JTYP 390 

JTYP 396 JTYP 394 

JTYP 398 JTYP 3 83 

JTYP 401 JTYP 468 

JTYP 404 JTYP 402 JTYP 405 

JTYP 405 JTYP 401 

JTYP 410 JTYP 406 

JTYP 411 JTYP 367 JTYP 409 

JTYP 416 JTYP 271 

JTYP 419 JTYP 362 JTYP 363 JTYP 393 JTYP 416 JTYP 417 

JTYP 422 JTYP 420 

JTYP 427 JTYP 425 

JTYP 430 JTYP 427 

JTYP 432 JTYP 423 

JTYP 433 JTYP 434 

JTYP 434 JTYP 432 

JTYP 439 JTYP 445 

JTYP 442 JTYP 437 

JTYP 447 JTYP 436 JTYP 438 JTYP 443 

JTYP 455 JTYP 453 

JTYP 459 JTYP 456 

JTYP 465 JTYP 474 

JTYP 467 JTYP 400 JTYP 426 JTYP 429 JTYP 431 JTYP 441 JTYP 458 JTYP 461 JTYP 463 JTYP 464 JTYP 475 

JTYP 469 JTYP 467 

JTYP 471 JTYP 469 

JTYP 472 JTYP 460 

JTYP 477 INTP 040 JTYP 178 JTYP 192 JTYP 203 JTYP 230 JTYP 234 JTYP 433 



JTYP 


480 


JTYP 


127 


JTYP 


274 


JTYP 


489 


JTYP 


208 






JTYP 


494 


JTYP 


490 


JTYP 


5 01 


JTYP 


498 


JTYP 


492 






JTYP 


502 


JTYP 


267 






JTYP 


505 


JTYP 


502 


JTYP 


515 


JTYP 


512 


JTYP 


503 






JTYP 


517 


JTYP 


500 


JTYP 


514 


JTYP 


529 


JTYP 


518 
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********************************** 

* CROSS REFERENCE FOR CSECT JTYP * 
********************************** 

JTYP 282 JTYP 285 JTYP 318 JTYP 412 
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ENTRY POINT 
LABEL 



JYPE DESCRIPTIVE TEXT 



THIS IS THE EXCLUSIVE ENTRY FROM THE REQUEST HANDLING ROUTINE FOR HANDLING LOGOUT MESSAGES. 



4DDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



1F7C 
1F7E 
IF 80 
1F82 
IF84 
1F86 
1F88 
1F8A 
IF8C 
1F8E 
1F90 
1F92 
1F94 
1F96 
1F98 
1F9A 
IFA6 
1FA8 
1FAA 
1FAC 
IFAE 
1FB0 
IFB2 
1FB4 
1F86 



1F9C 
1F9E 
IFAO 
IFCC 
IFCE 



5EG8 
5032 
F827 
DIA3 
FBOD 
4FAF 
IF1B 
A416 
4FBF 
C596 
4A46 
1000 
9F88 
C19D 
ICIB 
A416 
C1CD 
5A92 
3A25 
IA83 
7A92 
D235 
2C80 
4FCF 
A 4 16 



2D45 
1C18 
A416 
4FDF 
1C1B 



JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 



001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
02 
021 
022 
023 
024 
02 5 
026 
02 7 
02 8 

02 9 

03 
031 
032 
033 
034 
035 
036 
037 
038 
039 



LABEL 



FIRST 
TEST 

SECOND 



EXIT 



CKEND 



LINEFD 



MORE 



SPACE 



024 
057 
016 



014 
035 

JTYP 027 

038 



** 1400 TYPE DISPLAY MESSAGES R.TAYLOR 

** THIS ROUTINE TAKES THE UNPACKED HALFWORD(S) AND TYPES OUT 

HI BIT7 TELLS IF IF FIRST OR SECOND HALF OF BYTE, S4 CONTROLS 
FIRST OR SECOND BYTE S5 TELLS ROUTINE TO UNPACK ANOTHER BYTE 
PI USED TO PROVIDE SPACE BETWEEN TYPED HALF WORDS PO ALSO 
SERVES AS LINE FEED CHARACTER AFTER EACH CONVERT AND UNPACK 
UPON ENTRY 1052 MODE IS ESTABLISHED CPU REGISTERS RESTORE 



CKEND 

CKUNPK 

SECOND 



JTYP 027 STORE 
021 EXIT 



TEST 

MORE 

STORE 

SPACE 



031 LINEFD 



JTYP 027 STORE 



JTYP 027 STORE 



AS,U+2 

DA, 8E 

PO BIT 7=1 

S5=l 

HI BIT 7=1 



RDH H 

RDH U 

BR IF 

BR IF 

BR IF 

TE=TO 

Hl=HlnK01 

BR 

TE=Tl 

BR IF S0=0 

T = G 

RST SO 

BR 

BR IF S4=l 

P0=P0nK01 

BR 

8R IF S4=l 

RDH T DA, AA 

T0=T0$K20 

T0=T0*-K08 

STH T DA,AA 

BR IF DO BIT5=1 

SET S4 

TE=PO 

BR 



Pi=0$K40 

P0=P0aK01 

BR 

TE=P1 

P0=P0nK0i 



RESTORE H REG 
RESTORE A STAR 
OFF TIL ENDING SEQUENCE 
TEST FOR ANOTHER UNPACK 

BUSS OUT 1ST 

TURN HI BIT7 ON FOR 2ND CHAR 

OFF AFTER SECOND 

BUSS SECOND 

FIRST TIME THRU S0=1 

MOVE NEXT BYTE IN 

LAST BYTE OF PRESENT UNPACK 

GO ON EXCEPT INSTRUCTION STEP 
ALLOW CKEND NEXT TIME SET 15 

MORE COMING NEED SPACE 
SEC BIT 

SET 



ON 

STORE NEW STATUS 
SETIC INSTRUCT STEP 



WANTS S4 OFF 



GIVE LINE FEED 

NEXT TIME I S DEVICE END 
S6 IS RESET , RTN IS TO 
LOOP AWAITING START KEY 

BUILD SPACE 

MAKE PO ODD 

ISSUE SPACE 
MAKE PO EVEN 



SEC ON 
SOFT STP 
EXIT 



A DOR 

IPO J 
1 f 2 
IPD4 
IR)6 
1F08 
I FDA 
1FDC 
1FB8 
IFBA 
[PBC 
IF BE 
IFC6 
1FC8 
iFCA 
1FCO 
1FC2 
IFC4 
1FA2 
IFA4 
1 TF6 
17F8 
17 FA 
17FC 
17FE 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



3400 
CBB8 
1602 
0080 
4E86 
3040 
A416 
F247 
E241 
5EF2 
S7F6 
5E42 
1613 
9F0A 
5E52 
1623 
9FDA 
0040 
AB08 
0080 
0F11 
FOFF 
1600 
9FDA 



JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 
JYPE 



040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 



047 GETAUX 



NEXT 
GETAUX 

ASTAR 

BSTAR 

CKUNPK 
CHECK 



SOFT 
NT SOFT 



JTYP 027 
051 
054 



045 
ISTP 012 

063 
045 



JYPE 


008 


JTYP 


073 


JYPE 


014 


JYPE 


020 


JYPE 


016 


JYPE 


012 


JYPE 


021 


JYPE 


017 


JYPE 


024 


JYPE 


010 


JYPE 


031 


JYPE 


029 


JYPE 


035 


JYPE 


021 


JYPE 


038 


JYPE 


024 


JYPE 


045 


JYPE 


053 JYPE 056 JYPE 


JYPE 


047 


JYPE 


041 


.JYPE 


051 


JYPE 


047 


JYPE 


054 


JYPE 


048 


JYPE 


057 


JYPE 


ou 


JYPE 


059 


JYPE 


050 


JYPE 


063 


JYPE 


061 



STORE 
ASTAR 
BSTAR 



059 CHECK 



045 NEXT 



NEXT 
TYPEAG 

NTSOFT 

NEXT 
******** 

* CROSS 
******** 



SET MODE K=80 
BR IF BB BIT4=0 
RST BC K=90 
RST S4 
H-I 

SET S K=84 
BR 

BR IF 00 BIT7=l 
BR IF 00 BIT6=1 
ROH H DA, BE 
BR 

RDH H DA, 98 
D0-=D0*-K01 
BR 

RDH H DA,9A 
D0=D0*-K02 
BR 

RST S5 
BR 

RST S4 
Z^HH-KOl 
BR IF LZ^O 
RST BC K=80 
BR 
******************** 

REFERENCE FOR CSECT 
******************** 



CL0AD=*E40, EC LEVEL*1282il 
COMMENTS 

SET CPU MODE 

NOT SET IC 

SET SOFT STOP ,SETIC LATCH RESET 

SET IC RST S4 

SET SO, S5 

PUT A STAR DISPLAY IN H 

PUT B STAR DISPLAY IN H 

PUT CODED STOP IN H 

CK TERMINATION 

READ A STAR DISPLAY 

RST STAT SET IN DISPLAY ROUT 

GO 00 IT 

GET B STAR DISPLAY 

RST STAT 

GO DO IT 

RESET S5 AFTER FLAG TO UNPACK 

GO UNPACK 

RST S4 THIS IS LAST UNPACK 

TEST 

REMOTE RESTART CAPABILITY 

SET SOFT STOP IF NOT REMOTE RST 
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****** 

JYPE * 
****** 



KAAA DESCRIPTIVE TEXT 
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START FILE ROUTINE 
ENTRY POINTS 
SRTFIL 



BBBTWO 



THIS IS THE INITIAL ENTRY POINT. ALL DISK OPER- 
ATIONS ENTER HERE FROM IOCM. 



ENTRY AT THIS POINT IS FROM THE KBBB ROUTINE 
DURING WRITE WITH ADDRESS* THE DCF IS DECODED TO 
A BINARY VALUE IN THIS PORTION OF THE ROUTINE. 



MOTSEK 



HDSLCT 



THIS PORTION IS USED BY ALL SEEKS REGULAR, ALT- 
ERNATE, AND DEFECTIVE TRACK. ENTRY IS FROM KBBE, 
KAAQ, OR KBBG. 



ENTRY AT THIS POINT IS FROM KBBG TO PERFORM HEAD 
SELECT DURING ALTERNATE TRACK ENDING. ENTRY IS 
FROM KAAH DURING MULTI TRACK HEAD SWITCHING. 



4 DOR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 






KAAA 


001 


T 








KAAA 


002 


* 








KAAA 


003 


* 








KAAA 


004 


* 








KAAA 


005 


* 








KAAA 


006 


* 








KAAA 


007 


* 








KAAA 


008 


* 








KAAA 


009 


* 








KAAA 


010 


* 








KAAA 


Oil 


* 








KAAA 


012 


* 








KAAA 


013 


* 








KAAA 


014 


# 








KAAA 


015 


* 








KAAA 


016 


* 








KAAA 


017 


* 








KAAA 


018 


* 








KAAA 


019 


* 




19EC 


7622 


KAAA 


02 


SRTFIL 




19EE 


7812 


KAAA 


021 






19F0 


5C02 


KAAA 


022 






19F2 


3CGD 


KAAA 


023 






19F4 


2DC7 


KAAA 


024 






19F6 


7D52 


KAAA 


025 






19F8 


7C32 


KAAA 


026 






19FA 


6C24 


KAAA 


027 






19FC 


2053 


KAAA 


02 8 






19FE 


2E45 


KAAA 


029 






I A 00 


5FD8 


KAAA 


030 


READBT 





NEXTLABEL STATEMENT 



COMMENTS 



KAAA START FILE R.HUTCHINSON 

*********************************************************** 

♦START 14XX FILE OPERATION ENTRY FROM I CYCLES 
*VREG=BBB U1 = 0P 01*R/W DO BIT7= MOVE 

THE FOLLOWING LIST REPRESENTS THE K ADDRESSABLE 
LOCATION USED DURING 14XX DISK OPERATION 

Kl TEMPORARY I REG STORAGE 

K2 TEMPORARY D REG STORAGE 

K3 COUNT FIELD ADDRESS MAIN STORAGE 

K4 FILE DATA FIELD ADDRESS 

K5 ZONE XFER INFORMATION t ADDRESS OF SELECTED 2311 

K8 FILE SET BRANCH CONDITIONS 

KB PREVIOUS FILE OP £ FILE SET BRANCH CONDITIONS 

KE PRESENT FILE MODULE VALUE £ 2311 CYL VALUE 

KF WORD COUNT FOR DATA XFER 

*********************************************************** 



STH D DA,8C 

STH I DA, 8 A 

RDH P DA, 88 

PG= PO-KOG 

P1=0 

STB PI DA,9A 

STH P DA,8E 

P=V+2 

U0=0$K05 

H0=0$K40 

RDB HI P*l 



BACK UP K2 

BACK UP Ki 

READ BIAS CONSTANT KO 

BUILD STORAGE ADDRESS 

CLEAR MARK AREA 

STORE COUNT ADDRESS FIELD K3 

MAKE P * 8BB+2 

SET COUNT = 5 

BUILD CM-6 BLANK 



A DDR 

1A02 
IA04 

IA06 

lAoa 

1AOA 
IAOC 
IAOE 
1A10 
1A12 
IA 14 
1A16 
1A18 
iAIA 
lAiC 

lAie 

1A20 
1A22 
1A24 
1A26 
IA28 
1A2A 
1A2C 
1A2E 
1A30 
1A32 
IA34 
IA36 
IA38 
1A3A 
1A3C 
1A40 
1A42 
1A44 
1A46 
1A48 
IA4A 
LA4C 
IA4E 
IA50 
1A52 
IA54 



WORD SEQUENCE NO. LABEL 



3F45 
6FE1 
C48C 
4026 
A70A 
3000 
C480 
240? 
2 5A5 
3513 
5F40 
5FE9 
5530 
6224 
7242 
E525 
5530 
1513 
5550 
35A5 
C12E 
25E8 
5C40 
2455 
5055 
C4B0 
35B5 
5F40 
EF40 
9CEA 
FA4F 
5530 
555D 
1513 
7C51 
C4CF 
2C85 
5 150 
4026 
253D 
5F40 



KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAlA 
KA^A 
KA'KA 
KAAI* 
KAA^ 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 



031 
032 
033 
034 
035 
036 
037 
038 
03 9 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 
083 



VALID 



NEXTSEQ 

036 

KAAQ 009 

030 



NEXTLA8EL STATEMENT 



VALID 
XERRQR 

READBT 



AUXADR 



DOITT 



048 JIUXAOR 



053 DOITT 



060 ST0P60 



STQP6Q 
DQITTQ 



. 061 

KEND 002 

068 



DOITTO 
STOP60 

OPGREG 



068 OPGREG 



OPGREG 



H1^H1$K40 

Hl^HlaHQ 

BR IF IHl 

U=V 

BR 

UO«UO-KOO 

BR IF ZNZ 

GO^O 

G1=0$KAG 

G1=G1$K01 

ROB HI AS f G 

HO^Hi 

ROB Gl V 

V=V*2 

STH V 0A f 98 

BR IF Gl BIT2=1 

ROB Gl V 

G1=*G1*~KG1 

G1=G1L 

G1^G1$KAG 

BR IF Gl BIT4=0 

G1^G1*K0£ 

RON P AS»G 

G0^0$K50 

G1=P1XL 

8R IF Z=0 

G1^G1$KB0 

ROB HI AS*G 

BR IF HI BIT2=0 

BR 

BR IF HO BIT7^1 

ROB Gl V 

Gi^GlL 

G1=G1*-K01 

PG=P0~G1*1 

BR IF Z=0 

P0=0$K80 

Gl^UlL 

G1=G1+K30 

ROB HI AS*G 



CL0AD=*E40, EC LEVEL^1282ll 

COMMENTS 

DESTROY WORD MARK 

COMPARE 

BR IF CHAR NOT BLANK 

MAKE A STAR VALID 

BR TO SET NO AOOR COMPARE 

DEC COUNT 

SET AUX 00 

SET A 

SET I 

GET MOD PROT AND COMP 01 S. 

READ BBB * POSITION 

UPDATE V TO B8B*2 

STORE V K4 

BR IF NOT * 

READ MOD SELECT BB8*2 

STRIP ODD BIT 

THROW AWAY HI ORDER 

BUILD R0« A 

1400 MODULE 1H ROW A LOOKUP 

IN ROW 8 FOR 1400 MODULE 8 

I4XXMGDULEP0L#NPL SELECT P1H 

RESTORE MOD 5 FOR AUX ADDR 

MODULE MISMATCH 

TLU-50BX 

CK FOR MORE THAN 1 MOD SEL 

MODULE MISMATCH 

BR IF NO OVFLO PROTECT 

READ ACTUAL MODULE VALUE B88+2 

STRIP BIT 7 

COMPARE EXPECTED AND ACTUAL 

CHECK FOR MOD MISMATCH 

SET MISMATCH MARK 

14XXGP TO Gl LOW 

MAKE A STAR VALID 

SET ROW 3 

TABLE OP TO HI 



PAGE 140 



THE FOLLOWING LIST REPRESENTS THE BIT 
SIGNIFICANCE OF THE H REGISTER 
Hl-0 SEEK Hl-6 SECTOR OVERLAY 

Hl-1 SCAN Hi- 7 READ BACK CHECK 

Hl-2 HIGH H0-3 READ 

Hl-3 EQUAL HO-5 MOVE 

Hl-4 TRACK HO-6 RECALIBRATE 

Hl-5 ADDR OP H0~7 COMPARE DISABLE 



AD OR 

1A56 
1A58 
1A5A 
IA3E 
1338 
1 3 3A 
13 3C 
132C 
1326 
13 30 
L332 
13 34 
1336 
07EC 
07 EE 
)7F0 
07 F 2 
07F4 
07F6 
076 8 
07EA 
0784 
J7B6 
07B8 
07BA 
07BC 
07BE 
07C0 
07C2 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



07C4 
07C6 
07C8 
07CA 
07CC 
07CE 
0700 
07D2 
0704 
0706 
0708 
07DA 
07 DC 
070E 



CC3E 
CF3F 

9CEA 
9338 
EA2C 
2E13 
932E 
2EC7 
F332 
3E15 
F236 
3E43 
87EC 
3480 
F5EF 
5ECF 
C4E9 
A 500 
8390 
4ECF 
8468 
490F 
56B2 
7C52 
EEF5 
0EF4 
FAF5 
CEEO 
8BF0 



E754 
0753 
FGD6 
CF58 
1740 
0759 
3E23 
8708 
C659 
1745 
1685 
FB79 
C?78 
9F6C 



KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 



084 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 



CONTIN 
BREAK 



OPHREG 
DISABL 

WRITE 

STMODE 

SETMO 

CUBUSY 



NOTROY 

RESET 

SLECT 



087 
087 
KENO 002 
088 
091 

092 

094 

096 

097 

098 

103 
KAAN 029 
KAAQ 015 



101 

101 

101 

KAAQ 019 

KBBG 027 



132 
133 



CKSEQ 

NOSAVE 

SAVE 



133 
133 



137 
137 

KEND 010 



CONTIN 

CONTIN 

STOP60 

BREAK 

OPHREG 

DISABL 

WRITE 

STMOOE 

SETMO 

CUBUSY 

RESET 
ERROR 
NOTROY 



338 CCTEST 



NOTROY 
NOTROY 
NOTROY 
BUSY 

ATTEN 

****** 



BR IF PO BITO=0 

BR IF HI BIT 0=1 

BR 

BR 

BR IF HO BU6=0 

H0=0$K01 

BR 

H0=0 

BR IF 01 BIT7=0 

H0=H0$K10 

BR IF DO BIT7=0 

H0=H0$K04 

BR 

SET MODE K=88 

BR IF OASl BIT3=1 

P0=DS 

BR IF Z=Q 

BAL 

BR 

FBO=PQ 

BR 

MS=P1 

RDH D DA, AE 

STH P 0A,9A 

BR IF OS BIT 2=1 

BR IF OS BIT 1=0 

BR IF OS 8IT7=1 

BR IF DS BIT0=0 

BAL 
********************* 



CLOAD=*E40, EC LEVEL=1282 1i 

COMMENTS 

BR IF NO MISMATCH 

CHECK SEEK OP 

MISMATCH NOT SEEK - STOP 

BR IF COMP DISABLE OFF 
SET COMP DISABLE MARK 



BR IF OP IS WRITE 
SET HO BIT3=READ 
BR IF LOAD 
SET HO BIT5=M0VE 

CPU ZONE FILE MODE 
BR IF CUB ERASING 

BR IF UNSELECTED FILE STATUS=0 
GO STORE REGS 
GO SET NOT READY 
RESET FILE BUSS 
GO TEST CC HARDWARE 
SELECT FILE 

READ PREVIOUS OP TO D KB 

STORE NPL MODULE SELECT K5 

BR IF UNSAFE 
BR IF NOT ON LINE 
BR IF SEEK INCOMPLETE 
BR IF NOT READY TO BUSY EXIT 
GO RESET ATTEN 
******************************** 
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THE FOLLOWING LIST REPRESENTS THE FILE SET 
BRANCH CONDITIONS LOCATED IN KB ODD BYTE 
BIT RBC INTL,K BIT 4 W WLR 

BIT 1 RECAL SEQ 8 IT 5 Y ANY ERROR 

BIT 2 X UNEQUAL COMP B IT 6 V VALIDITY 
BIT 3 BUSY BIT 7 N NOT READY 

*********************************************************** 



131 CKSEQ 



NOSAVE 
SAVE 



133 SAVE 



SAVE 
SAVE 



OPRRBC 
OPRRBC 
STOPIO 



BR IF Dl BIT 2=0 

Z=Di*-K05 

BR IF LZNZ 

BR IF HI BITO=0 

Dl=DlnK40 

BR IF Di BIT 1=1 

H0=H0$K02 

BR 

BR IF DO BIT0=1 

Dl=Di*-K40 

D0=D0*-K80 

BR IF HI BIT7=i 

BR IF 01 BIT0=0 

BR 



BR IF NOT X ERROR 

X ERROR CK VAL-WLR 

BR IF NOT SEEK 

SEEK OP INVERT SEQ BIT 

BR IF 1ST OF SEQ 

SET RECAL MARK 

BR IF PREV OP WAS SEEK 

CLEAR SEQ BIT 

CLEAR SEEK FROM PREV OP 

BR IF RBC OP 

CHECK RBC INTL,K 

BR TO STOP IF RBC INTL'K ON 



AD OR 

07F8 
37 FA 
7FC 
U7FE 
1E48 
1E4A 

ie4C 

1E4E 

iE50 

IE 52 
LE54 
1E56 
IE58 

1EOO 
IEG2 
1E04 



It 06 
IE 08 
iEOA 
IEOC 
IEOE 
1E10 
It 12 
LE14 
1616 
IE 18 
tEIA 
1EIC 
IEIE 
IE20 
IE22 
1624 
IE26 
IE28 
1E2A 
1E2C 
IE26 
IE30 
IE 32 
1E34 
IE36 
IE38 
1E3A 
163C 
IE3E 
1E40 
IT.42 
1E44 



WORD SEQUENCE NO- 



17B5 
577B 
2E08 
9E48 
CF4E 
3685 
9E02 
FBOl 
5F69 
FE03 
DF03 
3785 
9E02 
6F65 
76B2 
25C7 



3400 
5738 
5769 
5738 
58E2 
5680 
1813 
78E2 
10EE 
F31E 
2040 
1713 
F22Z 
3713 
2655 
577D 
272D 
5960 
50 38 
5089 
F934 
2020 
1013 
01BA 
3013 
0040 
50 70 
3775 
5B60 
69B9 
50 38 
CF5A 



KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 



137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 



LABEL 
OPRRBC 

MAINSR 
PROCEE 



RBC 
PREVOP 



NEXTSEQ 



NEXTLABEL STATEMENT 
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COMMENTS 



BBBTWO 



SETOCF 

CKHUNO 
AUXTLU 



TENEVN 



UNTLU 



141 
144 

151 
150 

151 

151 



CLR INTL'K 6 ERROR CODES 
RST FLAG REG 



Oi=Dl*-K80 

D1=D1H 

SET FI8 K=4G 
MAINSR BR 

PROCEE BR IF HI BITO=0 

D0=D0$K80 
PRES/OP BR 

RBC BR IF HI BIT7=i 

00 = HI 
PREVOP BR IF HO 8IT3=i 

PREVOP BR IF Hi 8ITl=i 

Oi=Dl$K80 
151 PREVOP BR 

H1=H1$D0 

STH 0A f AE 

G1=0 

**************************************** ******************* 



BR IF NOT SEEK 

SET SEEK TEMP IN PRE V OP 

BR IF RBC 

MOVE THIS OP TO PREVIOUS OP 

BR IF OP IS READ 

BR IF OP IS SCAN 

OP IS WRITE SET RBC INTL'K 

RBC MOVE PREVIOUS OP TO HI 
STORE PREVIOUS OP t ERROR KB 



WRT ADR OP ENTERS HERE FOR CM6 TO BINARY DECODE 



**************************** 

SET MODE K=80 

ROB 01 V+l 

00=01 

ROB 01 V*l 

ROH I OA,BC 

I0=D0L 

IO=IO*-KOl 

STH I OA,BC 

RST S K=FE 
170 CKHUNO BR IF 01 8IT7=0 

SET S5 

D1=D1*-K01 
172 AUXTLU BR IF 00 BIT7=0 

01=0i$K01 

D0=0$K50 

D1=D1L 

D1=D1+K20 

ROB II- AS,0 

ROB PI V*l 

I0=PI 
181 TENEVN BR IF PI BIT7=0 

SET S6 

P1=P1*-K01 
184 UNTLU BR IF S5=0 

Pi=Pl$K01 

RST S5 

Dl=PIL 

01=01$K70 

ROB Tl AS,0 

I1C=II+T1+1 

ROB PI V*i 
196 NOTSEK BR IF HI BITO=0 



******************************* 
CPU ZONE CPU MOOE 
READ DISK CTRL FLO HUNOS 
MOVE HUNOS TO WORK 
REAO DISK CTRL FLO TENS 

MOVE MODULE VALUE TO 10 

REMOVE ODO CYLINDER 

SAVE MODULE FOR AOR RESTORE KE 

RESET S REG 

CHK TENS FOR 000 UNITS 

UNITS ONE INDICATOR 

CLR 000 UNITS 

CHK HUNOS LESS THAN 50 

ADD 50 

SET AUX STORAGE 5 

TENS CHAR FOR TLU 

SET ROW TWO 

REAO. CYL TENS 

READ UNITS BBB + 4 

SAVE UNITS CHAR FOR SEEK 

BR IF UNITS EVEN 

HEAD ONE INOICATOR 

CLR ODD UNITS 

BR IF TENS EVEN 

MAKE UNITS QOD 

UNITS CHAR FOR TLU 

UNITS CHAR FOR TLU 

READ UNITS TABLE 

ADD BIN TENS SUNITS CYL + 1 

REAO HEAD BBB+5 

BR IF NOT SEEK 



A DDR 


WORD 


SEQUENT 


:e no. 


LABEL 






KAAA 


190 


* 






KAAA 


191 


* 






KAAA 


192 


* 






KAAA 


193 


* 






KAAA 


194 


* 


1E46 


A43E 


KAAA 


195 




LE5A 


5A32 


KAAA 


196 


NGTSEK 


IE5C 


28G7 


KAAA 


197 




IE5E 


78B8 


KAAA 


198 




IE60 


993E 


KAAA 


199 




I93E 


F944 


KAAA 


200 


MNSTAM 


1940 


2040 


KAAA 


201 




1942 


1013 


KAAA 


202 




19 44 


E1C8 


KAAA 


203 


CKHOOO 


1946 


3D13 


KAAA 


204 




1948 


5D70 


KAAA 


205 


MOVEHD 


194A 


3775 


KAAA 


206 




19 4C 


5960 


KAAA 


207 




19 4E 


78B8 


KAAA 


208 




19 50 


5D38 


KAAA 


209 




W52 


5DDD 


KAAA 


210 




19 54 


D1D8 


KAAA 


211 




1956 


2DAB 


KAAA 


212 




1958 


2D1B 


KAAA 


213 


RC0RD1 


19 5A 


7DB8 


KAAA 


214 




19 5C 


E500 


KAAA 


215 








KAAA 


216 


* 






KAAA 


217 


* 






KAAA 


218 


* 






KAAA 


219 


* 






KAAA 


220 


* 


19 5E 


9D-6A 


KAAA 


221 








KAAA 


222 


* 






KAAA 


223 


* 






KAAA 


224 


* 






KAAA 


225 


* 






KAAA 


226 


* 






KAAA 


227 


* 






KAAA 


228 


* 






KAAA 


229 


* 






KAAA 


23 


* 






KAAA 


231 


* 






KAAA 


232 


* 






KAAA 


233 


* 






KAAA 


234 


* 






KAAA 


235 


* 


1900 


2485 


KAAA 


236 


WRTADR 


1902 


5E59 


KAAA 


237 




1904 


4026 


KAAA 


238 




1906 


EB1F 


KAAA 


239 




1908 


DF14 


KAAA 


240 




190A 


3415 


KAAA 


241 




190C 


EF15 


KAAA 


242 





CL0AD=*E40 f EC LEVEL=128211 PAGE 143 
COMMENTS 



NEXTSEQ NEXTLA8EL STATEMENT 

****** ********************** ************ ******************* 

SEEK OP EXITS HERE. BINARY CYL IN II REG. SEEK TYPE NOT DECODED 



KBBE 008 SKCHK 



*********************************************************** 

BR IF OP IS SEEK SEEK ADR IN II 
READ COUNT FIELD ADR K3 



DA, 8E 



200 
203 



MNSTAM 
CKHDOD 



205 MOVEHD 



213 RC0RD1 



BR 

RDH T 

10=0 

STH I T+2 

BR 

BR IF PI BIT 

SET S5 

P1=P1*-K01 

BR IF S6=0 

P1=P1$K01 

D1=P1L 

D1=D1$K70 

RDB II AS f D 

STH I T + 2 

RDB PI V*l 

PI=P1L 

BR IF S5=0 

P1=P14-K0A 

P1=P1+K01 

STB PI T*l 

BR IF Gl BIT; 



STORE BIN CC 1 THRU 100 

7=0 BR IF HEAD EVEN 

RECORD TEN INDICATOR 

CLR ODD HEAD 

BR IF UNITS EVEN 

ODD HEAD 

HEAD FOR TLU 

UNITS CHAR FOR TLU 

READ HEAD TABLE 

STORE BIN HH THRU 9 

READ RECORD BBB+6 



BR IF ODD HEAD 
ADD TEN 
ADD ONE 

STORE BIN RECORD 1 THRU 20 
236 WRTADR BR IF Gl 8IT2-0 BR IF NOT ADR OP 

*********************************************************** 



WRT ADR OP EXIT. BINARY ADR STORED IN MAIN STORAGE COUNT FIELD 

*********************************************************** 

KAAF 048 WRCLCQ 8R BR IF ADR OP TO CLOCK COUNT XFER 

*********************************************************** 

THE FOLLOWING LIST REPRESENTS THE BIT 
SIGNIFICANCE OF THE G REGISTER 

Gl-0 ALTER TRK RETURN 

Gl-1 DCF DONE 

Gi-2 ADOR OP 

Gl-3 READ 

Gl-4 SECTOR 000 

Gl-5 MOVE MODE 

Gl-6 RECALIBRATE 

Gl-7 2ND SEARCH 



SET 1ST SEARCH 

SET Gl BIT3 IF READ BIT5 IF MOVE 

U=BBB*7 

BR IF SECTOR OVERLAY 

BR IF NOT SCAN 

SET GO BIT3 IF SCAN 

BR IF HIGH 





GO-0 1ST SEARCH 




GO-1 1ST XFER 




GO-2 XFER 




GO-3 SCAN 




GO-4 RBC 




GO-5 RO 




GO-6 LO 




GO-7 EQ 


************************> 




G0=0$K80 




G1=H0 




U=V 


251 CNTADR 


BR IF HI BIT6=1 


246 BBBATE 


BR IF HI BIT 1=0 




G0=G0$K10 


246 BBBATE 


8R IF HI BIT2=1 



4DDR 


WORD 


SEQUENCE NO. 


LABEL 


190E 


3413 


KAAA 


243 




1910 


FF15 


KAAA 


244 




1912 


1438 


KAAA 


245 




1914 


5224 


KAAA 


246 


BBBATE 


1916 


6224 


KAAA 


247 




1918 


DB1E 


KAAA 


248 




19 1A 


3525 


KAAA 


249 




191C 


FA21 


KAAA 


250 




19 IE 


1513 


KAAA 


251 


CNTADR 


1920 


27C7 


KAAA 


252 


KEY 


1922 


77B8 


KAAA 


253 




19 24 


26C7 


KAAA 


254 




1926 


2725 


KAAA 


255 




1928 


CB2E 


KAAA 


256 




192A 


26B3 


KAAA 


257 




192C 


2740 


KAAA 


258 




192E 


274F 


KAAA 


259 


DALLQW 


1930 


76BA 


KAAA 


260 




1932 


D163 


KAAA 


261 




1934 


CB60 


KAAA 


262 




19 36 


26A3 


KAAA 


263 




1938 


2775 


KAAA 


264 




193A 


27AB 


KAAA 


265 




19 3C 


9962 


KAAA 


2 66 




1960 


379B 


KAAA 


267 


NQTTRK 


1962 


76F2 


KAAA 


268 


WRDCNT 


19 64 


FB68 


KAAA 


269 




1966 


3483 


KAAA 


270 




1968 


6AA6 


KAAA 


2 71 


HEDPOS 


196A 


56B0 


KAAA 


2 72 




i960 


7242 


KAAA 


2 73 




196E 


3480 


KAAA 


274 








KAAA 


2 75 


* 






KAAA 


276 


* 






KAAA 


277 


* 






KAAA 


278 


* 






KAAA 


2 79 


* 


1970 


519F 


KAAA 


2 80 




1972 


A800 


KAAA 


2 81 


ALLSEK 






KAAA 


282 


* 






KAAA 


283 


* 






KAAA 


284 


* 






KAAA 


2 85 


* 






KAAA 


2 86 


* 


2800 


34 80 


KAAA 


287 


MOTSEK 


2802 


518F 


KAAA 


288 




2804 


3785 


KAAA 


2 89 




2806 


7893 


KAAA 


290 




2808 


F490 


KAAA 


291 




280A 


1785 


KAAA 


292 




280C 


281B 


KAAA 


293 




2806 


18FF 


KAAA 


2 94 




2310 


2D 15 


KAAA 


295 


HDMASK 



NEXTSEQ NEXTLABEL STATEMENT 



246 BBBATE 



251 CNTADR 



252 KEY 



259 DALLQW 



268 
267 



268 WRDCNT 



271 HEDPOS 



G0=G0$K01 
BR IF HI BIT 
G0=G0QK03 
V=V + i 
V = V*2 

BR IF HI BIT 
G1=G1$K20 
BR IF HO BIT 
G1=G1*-K0i 
D1=0 

STB Dl T + l 
D0=0 

Dl=0$K20 
BR IF Hi BIT 
D0=Q$K0B 
Dl=Dl+K40 
D1=DH-K44 
STH D T-2 
BR IF Gi BIT 
8R IF HI BIT 
DQ=0$K0A 
D1=0$K70 
DI=D1*K0A 
BR 

D1=D1-K09 
STH D DA, BE 
BR IF HI BIT 
G0=G0$K08 
T = T-2 
RDH D T 
STH V DA, 98 
SET MODE K=8 
******************** 



WRDCNT 
NOTTRK 



CLQAD=*E40, EC LEVEL=128211 
COMMENTS 

SET GO BIT7 EQUAL 
3=1 BR IF EQUAL 

SET GO BIT6 LOW CLR BIT7 EQUAL 

V=BBB+8 

V=BBB + 10 
5=0 BR IF NOT ADR OP 

SET Gl BIT2 = ADR OP 
7=1 BR IF COMP DISABLE ON 

CLEAR 2ND SCH 

ZERO KL POS 

ZERO HIGH DL 

BUILD LOW DL 
4=0 BR IF SECTOR MODE 

00=2816 

01=96 

01=164 TRACK 100 SECTOR 

STORE DATA LENGTH IN DLDL 
5=1 BR IF MOVE COUNT CORRECT 

4=0 8R IF NOT TRACK 

00=2560 

Dl=112 

01=122 LOAD TRK WORD CNT= 2682 

D1=5A LOAD SECTOR WORD CNT= 90 
STORE IN COUNT LOCATION KF 

7=0 BR IF NOT RBC 

SET GO BIT4=RBC 
POINT T TO HEAO 
READ BIN HEAD Dl 
DATA ADR TO K4 

8 SET CPU ZONE FILE MODE 

*************************************** 
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OP DECODE IS COMPLETE. THE HEAD TO BE SELECTED IS IN THE 01 REG 

*********************************************************** 

Il=FBI READ OLD ADR TO BECOME NEW CYL 

287 MOTSEK BR 

*********************************************************** 

MOTION SEEKS ENTER HERE. RTH, DIRECT, AL TERN ATE , AND DEFECTIVE 

*********************************************************** 

SET MODE K=88 MOTION SEEKS ENTRY CYL II HD Dl 

IO=FBI OLD ADR TO 10 

Di=Dl$K80 SET FORWARD 

10=10-11 COMPARE OLD ADR-NEW ADR 

295 HDMASK BR IF AC=0 BR IF FORWARD 

Dl=Dl*-K80 REVERSE CLR FORWARD 

IQ=I0+K01 

IO=IOQKFF COMPL 

P1=0$K10 



4DDR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E40, EC LEVEL=1282 11 

COMMENTS 
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2812 
2814 
2816 
2818 
28 1A 
281C 
281E 
2820 
28 2 2 
2824 
2826 
2828 
282A 
282C 
28 2E 
2830 
28 32 
28 34 
2836 
2838 
283A 
283C 
283E 
2840 
2842 
2844 
2846 
2848 
28 4A 
1862 
1B64 
IB 66 
1B68 
1B6A 
1B6C 
IB6E 
1B70 
1872 



0468 
046A 
046C 
046E 
0470 
0472 
0474 
0476 
0478 
047A 
04 7C 



2C07 
4EDF 
4BDF 
4BCF 
4E9F 
2D45 
4BDF 
4BCF 
4E7F 
2025 
4B0F 
4BCF 
4E8F 
0811 
F4B6 
CF49 
9B62 
ADOC 
2D85 
4B0F 
4BCF 
2D25 
4EDF 
2D13 
4B0F 
C54B 
004B 
82C0 
A854 
2043 
4E0F 
6D03 
FD66 
4BDF 
2065 
4D0F 
1445 
128E 



3 210 
5D79 
0E08 
2302 
2304 
3110 
3029 
4FDF 
43DF 
8526 
5FCF 



KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 



2 96 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
33 7 
33 8 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 



KAAF 



MOTION 



SEKOQN 
RECRTN 
HOSLCT 

P13 



KEND 
KBBG 



ASEQ 
CCTEST 



* 

* 

AL07=68 



PG=0 
FB0=P1 
TGR0=P1 
TGRO=PO 
FB0=I1 
P1=0$K40 
TGRO=Pi 
T GRO= PO 
FB0=D1 
P1=0$K20 
TGRO=Pi 
TGR0=P0 
FBO=I0 
Z=IQ+K01 
314 MOTION BR IF AC=0 

323 SEKDON BR IF HI BITO=i 
325 HDSLCT BAL 

012 RUSAVS BR 

P1=G$K80 

TGR0=P1 

TGRO=P0 

P1=0$K20 

FB0=P1 

Pl=0$K01 

TGR0-P1 

324 RECRTN BR IF Gl BIT 
324 RECRTN BR IF GO BIT 
017 SEKEND BR 
008 RECRTN BR 

Pi=0$KG4 
FB0=P1 
P1=P1+PI 
327 P13 BR IF PI 

TGR0=P1 
P1=0$K60 
FF0=P1 
G0=GG*-K40 
RTN 
**************************** 

CYCLIC CODE 
**************************** 



0=1 
5=1 



BIT3=0 



RESET HD REG 


BUS 


CONTROL 


TAG 


RESET 


TAG 


NEW CYL TO BUS 


BUS 


SET CYL 


TAG 


RESET 


TAG 


HEAD a DIRECTION 


BUS 


SET HEAD 


TAG 


RESET 


TAG 


DIFFERENCE 


BUS 


CHK FOR DIFFERENCE 




BR IF MOTION SEEK 




BR IF OP IS SEEK 





SET DIFFERENCE 
RESET 

SEEK START 



TAG 
TAG 

BUS 



CTRL LATCH 

BR IF ALT TRK SEEK 

BR IF REC 

SEEK COMPLETE BR TO SEEK END 

GO WAIT FOR ATTEN, 

SEL HEAD ALL OPS EXCEPT SEEK 

SEL HEAD 



CTRL 

SET CMD CH AND SILI 

SET FLAGS 

CLEAR 1ST SCH 

****************************************** 

HARDWARE TEST ** 

****************************************** 



440 PEDS 



SET MMSK K=8i 

01= PI 

RST FIB K=40 

SET DIAC K=10 

SET DIAC K=20 

SET DIAB K=81 

Pl=0-K20 

F0P=P1 

FEB0=P1 

BAL 

PO=FOP 



SET PRIORITY TO PREVENT DC TRAPS 

MOVE MOD SEL VALUE DURING CC TST 

INITIAL RESET DROPS CHAIN END 

SET DIAGNOSTIC 3 1400 FILE MODE 

SET DIAG INDEX 

DIAG ADDR OSCOMP GATEtRAISE READ 

SET CONSTANT DF 

LOAD OP REG WITH DF 

LOAD WRITE BUFFER WITH DF 

TST FOR DF IN WR BFR.ALUCHK =ERR 

GET OP REG BITS 



AD OR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD^*E40, EC LEVEL=12821l 

COMMENTS 
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04 7E 


1CFF 


KAAA 


349 


04 80 


C4FA 


KAAA 


350 


04 8-2 


4FCF 


KAAA 


351 


04 84 


5FCF 


KAAA 


3 52 


04 86 


C4FA 


KAAA 


353 


04 88 


8512 


KAAA 


354 


048A 


5BCF 


KAAA 


355 


04 8C 


8528 


KAAA 


356 






KAAA 


357 


04 8E 


5ECF 


KAAA 


358 


0490 


C4FA 


KAAA 


359 


0492 


2310 


KAAA 


360 


0494 


2390 


KAAA 


361 


04 96 


2013 


KAAA 


362 


0498 


4FDF 


KAAA 


363 


049A 


2025 


KAAA 


364 


049C 


430F 


KAAA 


365 


04 9E 


3110 


KAAA 


366 


04A0 


851E 


KAAA 


367 


04 A 2 


2035 


KAAA 


368 


04 A4 


201B 


KAAA 


369 


04 A6 


4F0F 


KAAA 


370 


04A-8 


8516 


KAAA 


371 


04AA 


5BCF 


KAAA 


372 


04AC 


2085 


KAAA 


3 73 


04 A E 


3D2 3 


KAAA 


3 74 


0480 


8528 


KAAA 


375 


04B2 


3073 


KAAA 


376 


04B4 


8524 


KAAA 


377 


04B6 


3114 


KAAA 


378 






KAAA 


379 


04 B 8 


851A 


KAAA 


380 


048A 


2D A 3 


KAAA 


381 


04 BC 


8524 


KAAA 


3 82 


04BE 


ID 00 


KAAA 


383 


04C0 


CAFB 


KAAA 


3 84 


04C2 


2380 


KAAA 


385 


04C4 


3114 


KAAA 


3 86 






KAAA 


387 


04C6 


851A 


KAAA 


388 


04C8 


2045 


KAAA 


389 


04CA 


3DE3 


KAAA 


390 


04CC 


8 524 


KAAA 


391 






KAAA 


392 


04CE 


1000 


KAAA 


393 


0400 


2390 


KAAA 


394 


0402 


3114 


KAAA 


395 






KAAA 


396 


04D4 


2308 


KAAA 


397 


0406 


2075 


KAAA 


398 


04D8 


3DA3 


KAAA 


399 


04DA 


8524 


KAAA 


400 






KAAA 


401 







PO=POaKFF 


418 


ALUCHK 


BR IF ZNZ 

FOP=P0 

P0=FOP 


418 


ALUCHK 


BR IF ZNZ 


430 


SHIFT8 


BAL 
PO=SDI 


441 


XOR 


BAL 

EXIT TO ALUCHK 
PO=DS 


418 


ALUCHK 


BR IF ZNZ 

SET DIAC K=01 

SET DIAC K=09 

P1=0$K01 

FQP=P1 

P1=0$K20 

FEBO=Pl 

SET DIAB K=81 


436 


SHIFT2 


BAL 

P1=0$K30 
P1=P1*K01 
F0P=P1 


432 


SHIFT6 


BAL 

PG=SDI 
Pi=0$K80 
P1=P1$K02 


441 


XOR 


BAL 
Pl^Pi$K07 


439 


SET3 


BAL 

SET DIAB K^Al 


READ GATE. OIAG 


AODR 2 AND DIAG 


434 


SHIFT4 


BAL 
Pl^OSKOA 


439 


SET3 


BAL 

RST FIA K=80 


418 


ALUCHK 


BR IF DS4=l 
SET DIAC K=08 
SET DIA8 K=A1 


READ GATE. DI AG 


ADDR 2 AND OIAG 


434 


SHIFT4 


BAL 

Pi^0$K40 

Pl^PUKOE 


439 


SET3 


BAL 

RST FIA K=80 
SET DIAC K=09 
SET DIAB K=Al 


READ GATE. OIAG 


AOOR 2 ANO OIAG 






SET DIAC K=40 






P1=0$K70 






P1=P1$K0A 


439 


SET3 


BAL 



MASK FOR CORRECT OP REG BITS 
BR IF OP REG NOT FF 
RESET OP REG 
GET OP REG BITS 
BR IF OP REG NOT ALL ZERO 
ADVANCE BIT RING 8 TIMES 
GET READ BUFF BITS EXTERNAL B 
TST XFER WR TO RD BFR,OF 
IF OF HEX WAS NOT XFERRED TO READ BFR 
GET DIAG INFO FROM WR BFR-GADDR- 
BR IF WR BUFF NOT RESET TO ZERO 
ADV TO ZONE 1 

AOV TO ZONE 2&SET SEP DATA BIT 
SET WRITE BIT OF OP REG 
LOAD OP REG WITH 01 

SET WR BFR TO 20 

OIAG AODRGfcCOMP GATE, RAISE READ 

2 BIT RING AOV WITH WR PHASE A 

SET SEARCH EQ 10 OP 31 HEX 
SCH EQ 10 TO OP REG HARDWARE 
6 BIT RING ADV WITH DIAG WR PH A 
GET READ BUFF BITS 

SET PI TO TEST FOR 82 I N RD BFR 
TEST READ BUFFER FOR 82 
PI TO 87 HEX 

TEST CC REG FOR ION, 16 ,17 OFF 
OIAG AODR OSDIAG COMP PH TURN ON 
COMP PH TURN ON COMPARE TGR 

4 BIT RING AOV WITH DIAG WR PH A 

TEST FOR UNEQ COMP AND WR CLK BT 
RST HI LO CC ERR&TRAP LATCH 
EXIT IF UNEQUAL COMP NOT RESET 
SET SEPERATEO DATA BIT 
OIAG AOOR OSOIAG COMP PH TURN ON 
COMP PH TURN ON COMPARE TGR 

4 BIT RING AOV WITH OIAG WR PH A 

PI SET TO 4E 

TEST FOR CC REG 16 ON, UNEQ COMP 

BIT RING 7 AND WRITE CLOCK ON 
RST HI LO CC ERR£TRAP LATCH 
AOV TO ZONE 3£SET SEP DATA BIT 
DIAG AOOR OSDIAG COMP PH TURN ON 
COMP PH TURN ON COMPARE TGR 

AOV BIT RING WITH OIAG WR PH A 

Pl=7A 

TEST FOR CCi6,17, CC ERR- 
UNEQ COMP € WR CLOCK BIT 



ADOR 


WORD 


SEQUENCE NO. 


LABEL 


04 DC 


1D00 


KAAA 


402 




04DE 


3114 


KAAA 


4 03 




04EG 


2380 


KAAA 


404 




04 E 2 


2308 


KAAA 


4 05 




04E4 


2D35 


KAAA 


406 




04E6 


3DA3 


KAAA 


407 




04 E 8 


8524 


KAAA 


408 




04EA 


1D00 


KAAA 


409 




046C 


3114 


KAAA 


410 








KAAA 


411 


* 


04EE 


2308 


KAAA 


412 




04F0 


2D55 


KAAA 


413 




04F2 


3DB3 


KAAA 


414 




04F4 


8524 


KAAA 


415 




04F6 


1D00 


KAAA 


416 




04F8 


8506 


KAAA 


417 




04FA 


2100 


KAAA 


418 


ALUCHK 


04FC 


1EQ0 


KAAA 


419 




04FE 


0EC8 


KAAA 


420 




0500 


1210 


KAAA 


421 




0502 


A5D0 


KAAA 


422 




0504 


8B58 


KAAA 


423 




05U6 


2100 


KAAA 


424 


CCDONE 


05 08 


3E00 


KAAA 


425 




050A 


0F08 


KAAA 


426 




05 0C 


1210 


KAAA 


42 7 




050E 


5709 


KAAA 


428 




0510 


87B4 


KAAA 


429 




0512 


2308 


KAAA 


430 


SHIFT8 


0514 


2308 


KAAA 


431 


SHIFT7 


0516 


2308 


KAAA 


432 


SHIFT6 


05 18 


2308 


KAAA 


433 


SHIFT5 


05 1A 


230 8 


KAAA 


434 


SHIFT4 


05 1C 


2308 


KAAA 


435 


SHIFT3 


051E 


2308 


KAAA 


436 


SHI F 12 


0520 


23C8 


KAAA 


437 


SHIFTl 


0522 


128E 


KAAA 


438 




0524 


2112 


KAAA 


439 


SET3 


0526 


5ECF 


KAAA 


440 


PEDS 


0528 


6CD1 


KAAA 


441 


XOR 


052A 


C4AF 


KAAA 


442 




052C 


84FA 


KAAA 


443 




052E 


128E 


KAAA 


444 


RETURN 



NEXTSEQ 



NEXTLABEL STATEMENT 



KAAA 


020 


IOCM 


025 


KAAA 


030 


KAAA 


037 


KAAA 


036 


KAAA 


033 


KAAA 


048 


KAAA 


046 


KAAA 


053 


KAAA 


051 


KAAA 


060 


KAAA 


056 


KAAA 


061 


KAAA 


059 







RST 


FIA K=80 






SET 


0IA8 K=A1 






SET 


DIAC K=08 






SET 


DIAC K=40 






P1=Q$K30 






Pl=Pi$KOA 


439 


SET3 


BAL 








RST 


FIA K=80 






SET 


DIAB K=A1 


READ GATE. Di AG 


ADDR 


2 AND DIAG CQMP 






SET 


DIAC K=40 






P1=0$K50 






Pl«l 


n$K0B 


439 


SET3 


BAL 








RST 


FIA K=80 


424 


CCDCNE 


BR 








SET 


DIAB K=00 






RST 


FIB K-80 






RST 


FIB K=40 






RST 


MMSK K=81 


KAAN 029 


ERROR 


BAL 




KAAN 052 


ALUCHK 


BR 








SET 


DIAB K=00 






SET 


FIB K=80 






RST 


FIB K-40 






RST 


MMSK K=81 






Pl=i 


E>1 


105 


SLECT 


BR 








SET 


DIAC K=40 






SET 


DIAC K=40 






SET 


DIAC K=40 






SET 


DIAC K=40 






SET 


DIAC K=40 






SET 


DIAC K-40 



CLQAD=*E40, EC LEVEL=1282 1l 

COMMENTS 

RST HI LO CC ERRSTRAP LATCH 
DIAG ADDRO&COMP GATE ,RE AD-COMP 
SET SEP DATA BIT 
ADV BIT RING WITH DIAG WR PH A 

P1=3A 

TST CC17,CCERRtUNEQUAL,WR CLK BT 
RST HI LO CC ERR&TRAP LATCH 
DIAG ADDR O&DIAG COMP PH TURN ON 
PH TURN ON COMPARE TGR 
ADV BIT RING WITH DIAG WR PH A 

P1=5B 

TST CC16,CCERR UNEQ,WR CLK&DA BT 

RST HI LO CC ERRfcTRAP LATCH 

CC TEST FINISHED 

RST DIAG ADDR LATCHES 

CHAIN END RESET 

INITIAL RST,DROP CHAIN END&DIAG 

RELEASE PRIORITY f ALLOW TRAPS 

STORE DIAGNOSTIC INFO IN OOBOAUX 

SET ALUCHK,NQT READY AND EXIT 

RESET DIAGNOSTIC ADDRESS LATCHES 

SET NTO LATCH 

INITIAL RST,DROPS NTO&DIAG MODE 

RELEASE PRIORITY,ALLOW TRAPS 

REPLACE MOD SELECT VALUE IN PI 

RETURN TO MAIN STREAM 

ADV BIT RING WITH DIAG WR PH A 
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444 
418 



SET DIAC K^40 

SET DIAC K=40 

RTN 

SET DIAB K*ll 

PO=DS 

PO=POaPl 
RETURN BR IF Z=0 
ALUCHK BR 

RTN 

********************************** 

* CROSS REFERENCE FOR CSECT KAAA * 
********************** ************ 



SET DIAG ADDR 3 

MASK FOR EQUAL VALUES 
BR IF NO ERROR 
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* CROSS REFERENCE FOR CSECT KAAA * 



KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 



068 
087 
088 
091 
092 
094 
096 
097 
098 
101 
103 
105 
131 
132 
133 
137 
141 
144 
150 
151 
158 
170 
172 
181 
184 
196 
200 
203 
205 
213 
236 
246 
251 
252 
259 
267 
268 
271 
287 
295 
314 
323 
324 
325 
327 
338 
418 
424 
430 
432 



KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
K8B8 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 
KAAA 



061 
84 
087 
088 
090 
092 
094 
096 
098 
108 
100 
429 
123 
125 
126 
134 
140 
141 
144 
143 
047 
167 
170 
178 
181 
189 
199 
200 
203 
211 
215 
240 
239 
250 
256 
262 
261 
269 
281 
291 
310 
311 
321 
312 
328 
104 
350 
417 
354 
371 



KAAA 066 
KAAA 085 



KAAA 109 KAAA 110 



KAAA 128 KAAA 130 KAAA 131 
KAAA 135 



KAAA 146 KAAA 147 KAAA 149 



KAAA 242 KAAA 244 
KAAA 248 



KAAA 266 

KAAQ 059 KB8E 030 KB8G 016 



KAAA 322 

KAAH 092 KBBG 021 KBBG 025 



KAAA 353 KAAA 359 KAAA 384 KAAA 443 



KAAA 434 
KAAA 436 
KAAA 439 
KAAA 440 
KAAA 441 
KAAA 444 



KAAA 380 
KAAA 367 
KAAA 377 
KAAA 347 
KAAA 356 
KAAA 442 
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********************************** 

* CROSS REFERENCE FOR CSECT KAAA * 
********************************** 



KAAA 388 



KAAA 382 KAAA 391 KAAA 400 KAAA 408 KAAA 415 
KAAA 375 
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KAAF OESCRIPTIVE TEXT 



SEARCH 10 ROUTINE 



OBJECTIVES 

INITIAL ENTRY 
TRACK SEEK, 



OR RE-ENTRY FROM ALTERNATE OR DEFECTIVE 



I. CHECK TO SEE IF READER OR PUNCH IS BUSY . WAIT FOR NOT 
BUSY, THEN SET PRIORITY LEVEL TO BLOCK ALL TRAPS WITH 
LESS THAN FILE PRIORITY. 

I. DECODE MOVE OR LOAD MODE AND SET INTO HARDWARE. 

3. CHECK COMPARE DISABLE BIT IF ON AND NOT ALTERNATE 

TRACK, EXIT TO KAAH ROUTINE TO SET UP RECORD FOR A 
SEARCH ARGUMENT, 



A. IF ADDRESS OPS AND NOT COMPARE DISABLE, SEARCH FOR 
THE ADDRESS DECODED FROM THE DCF. IF FOUND SEARCH 
FOR RO IFOR ORIENTATION), 

B. FOR ADDRESS OPS WITH COMPARE DISABLE ON, SEARCH FOP 
RECORD ONLY. 

4. ENTRY WITH ADDRESS OP, COMPARE DISABLE, AND ALTERNATE 

TRACK INDICATES THAT THE RO SEARCH ARGUMENT HAS BEEN 

PREVIOUSLY SET UP AND THE SEARCH CAN NOW BE DONE ON 
ALTERNATE TRACK. 



AD'DR 


WORD 


SEQUENCE NO. 


LABEL 






KAAF 


001 


T 






KAAF 


002 


* 






KAAF 


003 


* 






KAAF 


004 


* 






KAAF 


005 


* 






KAAF 


006 


* 






KAAF 


007 


* 






KAAF 


008 


* 






KAAF 


009 


* 






KAAF 


010 


* 






KAAF 


Oil 


* 


2 DOC 


3462 


KAAF 


012 


RUSAVS 


2 DOE 


043 5 


KAAF 


013 


PCHBSY 


2D 10 


EG8E 


KAAF 


014 




2D I 2 


3480 


KAAF 


015 




2014 


220E 


KAAF 


016 




20 16 


0E04 


KAAF 


017 


NOTBSY 


2018 


0340 


KAAF 


018 




201A 


DUE 


KAAF 


019 




2D1C 


2340 


KAAF 


02 




2D1E 


F109 


KAAF 


021 


START 


2D20 


2717 


KAAF 


022 


RESTOP 


2022 


2720 


KAAF 


023 




2024 


4F7F 


KAAF 


02 4 




20 26 


3000 


KAAF 


02 5 




2028 


3485 


KAAF 


02 6 





NEXTSEQ 



NEXTLABEL STATEMENT 

14XX FILE COMP. 
ROUTINE KAAF 



COMMENTS 
R.E. AVIS 
SEARCH ID 



8/16/67 



**************************** ********* ********************** 

* * 

* THIS ROUTINE WILL SET THE DAC OP REG UP TO * 

* PERFORM A SEARCH EQ CN T OP REG =31 * 

* * 
*********************************************************** 



013 PCHBSY 



021 
033 



START 
CKALTR 



SET MODE K=96 

Z=G0*-K30 

BR IF HZNZ 

SET MODE K=88 

SET MMSK K=70 

RST FIB K=20 

RST DIAC K=04 

BR IF Gl BIT 5=0 

SET DIAC K=04 

BR IF Gl BIT7=1 

Di=0$Kll 

D1=01*K20 

FQP=D1 

SET FIA K=80 

G0=G0$K80 



SET 2540 MODE AND ZONE 
CK FOR RD OR PCH BUSY 

2311 MODE 

PREVENT LOW PRIORITY TRAP 

SET COLD START 

RST MOVE LATCH 

BR IF LOAD OP 

SET MOVE LATCH 

CK COMP DISABLE 1ST SCH 

SET SCH EQ CNT 

SET WRITE 

SEND OP 

SEND GO 

SET SCH MARK 



40 DR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 
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COMMENTS 
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20 2 A 
202C 
20 2E 
2D 30 
2D32 
20 34 
2008 
2004 
200b 
2000 
2002 
2004 



106A 
ID6C 
1D6E 
1070 
1072 
1074 
1076 
1078 



0407 
3490 
28C7 
2953 
5A32 
A034 
C521 
A728 
AAC6 
DFAC 
C52C 
A7CE 



3490 
5BD9 
20 8B 
5DC9 
5CD9 
6DB1 
C4F2 
A8BC 



KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 
KAAF 



027 
02 8 

02 9 
030 
031 
032 
033 
034 
035 
036 

03 7 
038 

03 9 

04 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 



035 SCHXFR 



CLKSCH 



STABRi 
CKALTR 

SCHXFR 
SCHOES 



WRCLCO 



COMPRE 



CNTO 



032 
022 

KAAH 155 

KBBH 008 

028 

028 

KAAQ 035 



052 
KBBC 009 



KAAF 


012 


KAAA 


313 


K8BG 


022 


KBBG 


026 


KAAF 


013 


KAAF 


014 










KAAF 


017 


KAAH 


093 










KAAF 


021 


KAAF 


019 










KAAF 


022 


KAAF 


033 


KAAH 


132 


KAAH 


173 


KAAF 


028 


KAAF 


036 


KAAF 


037 


KAAH 


047 


KAAF 


032 


KAAF 


032 










KAAF 


033 


KAAF 


021 










KAAF 


035 


KAAF 


027 










KAAF 


036 


KBBH 


028 










KAAF 


048 


KAAA 


221 










KAAF 


052 


KAAF 


054 











STABRI 

RESTOP 

SETRO 

INC DCF 

CLKSCH 

CLKSCH 

RSTTAG 



BR IF GO BIT 1=1 

SET MODE K=89 

10 = 

I1=0$K05 

ROH T 0A f 8E 

BR 

BR IF Gl 8IT0=1 

BR 

BR 

BR IF 

BR IF 

BR 



FOP BIT 1=0 
Gl BIT0=0 



BR IF 1ST XFER 

SET 2311 MODE AND ZONE 

CNT HIGH EQ 

CNT LOW EQ 5 

READ COUNT FIELD ADR K3 

WAIT FOR STATUS 

CK FOR ALTER TRK ENTRY 

ADDR OP CMP DISA COMPARE RO ONLY 

GO INCREMENT DCF 

BR IF NOT MT 

MT CK FOR ALTER TRK 

HD SW ON ALT TRK GO SEEK BACK 



**************************** ************ ******************* 

* * 

* ENTER HERE AFTER DCF TO BIN * 

* CONVERT ON WRITE ADDR. OP * 

* THIS LOOP CLOCKS THE 8 BYTE COUNT FIELD. * 

* * 
*********************************************************** 



COMPRE 
OECSEC 



SET MODE K=89 

P1=T1 

P1=P1+K08 

P0=P1 

P 1= PO 

Pl=PlnTl 

BR IF ZNZ 

BR 



SET 2311 MODE AND ZONE 

GET DATA ADDR IN P REG 

ADD 8 

SAVE ADDR 

RE-INITIALIZE COUNT 

COMPARE 

EXIT AFTER 8 BYTES 

GO TO DECREMENT SECTOR CNT 



********************************** 

* CROSS REFERENCE FOR CS6CT KAAF * 
********************************** 



KAAH 179 KAAQ 092 



CLGAD=*E40, EC LEVEL=1282U PAGE 152 



KAAH DESCRIPTIVE TEXT 



MAIN STATUS ROUTINE 



OBJECTIVES 
1 



ALL FILE TRAPS FORCE ADDRESS 0140. THIS ROUTINE INTERRO- 
GATES THE STATUS. DECISIONS ARE MADE TO CONTINUE OR END 
THE OPERATION. 

CHECK FOR UNUSUAL CONDITIONS IF NONE EXIST CHECK 1400 

OPERATION TYPE. CHECK PROGRESS OF OPERATION. 

A. UNUSUAL CONDITION AND MT HEAD SWITCH ON BRANCH TO 
PORTION OF ROUTINE THAT PERFORMS HEAD SWITCHING. 

B. UNUSUAL CONDITION AND RECALIBRATE BUT NOT HEAD 
SWITCH EXIT TO KBBG TO HANDLE STATUS. RECALIBRATE 
TRAP OCCURS 15 MS AFTER THE COMMAND IS ISSUED. 

C. UNUSUAL CONDITION, NOT RECALIBRATE AND NOT HEAD 
SWITCH EXIT TO KAAN TO DETERMINE TYPE OF ERROR* 

NOT UNUSUAL STATUS* CHECK FOR RO OF A DEFECTIVE TRACK. 
EXIT TO KAAN FOR ALTERNATE TRACK SEEK. 



4. 

5. 

6. 
7. 



CHECK FOR MODE ERROR 



IF ON EXIT TO KAAQ. 



CHECK STATUS MODIFIER BIT. IF ON (SUCCESSFUL SEARCH OR 
EQUAL SCANJ, DETERMINE OPERATION BEING DONE. 



SEARCH OP OR DATA TRANSFER END 

SEARCH OP, STATUS MODIFIER NOT ON 
DONE 



END CHECK PROGRESS, 



HAS 2ND SEARCH BEEN 



A. ADDRESS OPS, NOT 2ND SEARCH, EXIT TO KAAF FOR RETRY. 

B. ADDRESS OPS, 2ND SEARCH ON CHECK FOR RBC. IF NOT 
RBC, RETRY SEARCH. 

6. RBC CHECK FOR EQUAL BEING SET INDICATING SUCCESSFUL 
SEARCH FOR RO. IF EQUAL, EXIT TO KBBB TO SET UP 
TRANSFER OF DATA FOR RBC OF ADDRESS OP. IF NOT 
EQUAL, RETRY SEARCH. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 






KAAH 


001 


T 








KAAH 


002 


* 








KAAH 


003 


♦ 








KAAH 


004 


* 








KAAH 


005 


* 








KAAH 


006 


* 








KAAH 


007 


♦ 








KAAH 


008 


* 








KAAH 


009 


* 








KAAH 


010 


* 








KAAH 


Oil 


# 








KAAH 


012 


* 








KAAH 


013 


ATABLE 


ADDR=0140 


0140 


3210 


KAAH 


014 






142 


3480 


KAAH 


015 






0144 


95FE 


KAAH 


016 




KAAH 018 






KAAH 


017 


AEND 




15FE 


5EDF 


KAAH 


018 


MSTAT1 





NEXTLABEL STATEMENT 

14XX FILE COMP. 
ROUTINE KAAH 



COMMENTS 
R.E. AVIS 8/16/67 
MAIN STATUS 1# 



*********************************************************** 

* # 

* STATUS TRAP FROM DAC WILL ENTER HERE. STATUS IS * 

* CHECKED FOR UNUSUAL, * 

* HEAD SWITCHING AND RECALIBRATE * 

* * 
* ******** *********** ******************** ******************* 



SET MMSK K=8 1 
SET MODE K=8 8 
MSTAT1 BR 

P1 = DS 



PREVENT ALL TRAPS 
SET CPU ZONE 



ADDR 

1600 
1602 
1604 

1606 
1608 
160A 
16 0C 
160E 
16 10 
1612 



WORD SEQUENCe NO, 



LABEL 



NEXTSEQ 



NEXTLA8EL STATEMENT 



1634 
1636 
1638 
lb3A 
16 3C 
163fc 
1640 
1642 
1644 
1646 
1648 
164A 
164C 
164F 
1638 



165A 
165C 
165E 
1660 
1662 
1664 
1666 
1668 
166A 
166C 
166E 
1670 
1672 
1674 



C1B4 
2CG7 
4BCF 
1D00 
OFDB 
E110 
1210 
A854 
A5D0 
8EC8 



1000 
1210 
0059 
C801 
FDCF 
C44C 
F148 
CC48 
F048 
8F2C 
3DO0 
A02C 
AB82 
A722 
9C6A 



1210 
2613 
4E6F 
2630 
4F6F 
2653 
26FF 
C4E6 
2613 
4B6F 
4BCF 
2643 
4E6F 
0AB1 



KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 



019 
020 
021 
022 
02 3 
024 
025 
026 
027 
028 

02 9 

03 
031 
032 
033 
034 
03 5 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 



BAD 





036 


MSTAT2 


BR IF OASI BIT4=0 

P0=0 

TGRO=P0 

RST FIA K=80 




058 


SWHEAD 


BR IF FOP BIT1=1 




027 


BAO 


BR IF Gl BIT6=0 
RST MMSK K=81 


KBBG 


008 


RECRTN 


BR 


KAAN 


029 


ERROR 


BAL 


KAAN 


081 


UNSTA1 


BR 



CL0AD=*E40, EC LEVEL=1282il PAGE 153 
COMMENTS 

BRANCH IF NOT UNUSUAL 

RESET TRAP GATE AND TAGS 

RESET TRAP LATCH 

BR IF MT 

BR IF NOT RECALIBRATE 

ALLOW FILE TRAPS 

GO TO RECALIBRATE ROUTINE 

GO STORE REGS 

GO TO UNUSUAL STATUS 



MSTAT2 



RETRY 

CHDEV1 
HOD IF Y 
FLAG 



050 
KAAQ 005 
049 
048 
046 
046 
046 
KBBB 056 

KAAF 028 
105 
152 

KAAN 130 



SWHEAD 



DELAY 



************* ******* *********** ********* ******************* 

* * 

* COME HERE WITH NOT UNUSUAL STATUS * 

* * 
*********************************************************** 



RST FIA K=80 
RST MMSK K=81 



FLAG 

MODER 

MODIFY 

CHDEV1 

RETRY 

RETRY 

RETRY 

OPREST 

CLKSCH 
RESUME 
ST MODI 
RODONE 



BR 
BR 



IF GO BIT5=i 
IF FGA BIT4^1 



BR IF FFI BIT3-1 

BR IF GO BITO=0 

BR IF Gl B1T7=0 

BR IF GO BIT4=0 

BR IF GO BIT7=0 

BR 

SET FIA K=80 

BR 

BR 

BR 

BR 



RESET TRAP LATCH 

ALLOW FILE TRAPS 

BR IF JUST READ RO RECORD 

CK FOR MODE ERROR 

BR IF STATUS MODIFIER 

BR IF NOT SCH 

HAS 2ND SCH BEEN DONE 

BR IF NOT RBC OP 

RBC 2ND SCH DONE X EXP GO XFER 

SET GO 

RETRY SEARCH 

CK END STATUS 

CK STATUS MODIFIER 

GO SET UP ALT TRK SEEK 



*********************************************************** 

* * 

* ENTER HERE FOR MULTI TRK HEAD SWITCHING. * 

* * 
*********************************************************** 



064 DELAY 



078 EOCEND 



RST MMSK K=81 

D0=0$K01 

FBO^DO 

D0=D0+K30 

FOP=DO 

D0=0$K05 

DO=DO+KFF 

BR IF IHl 

DO=0$KOl 

TGR0=D0 

TGRQ=PO 

D0=0$K04 

FB0=D0 

BR IF DS BIT5=1 



ALLOW FILE TRAPS 

SET HO. ADV. 

SEND HD ADV 

RESET MT 

SEND OP 

SET DELAY C TR 

DELAY 

CTR WILL DELAY 10.8 U SEC. 

SET CTRL PULSE 

SEND TAGS 

RESET TAGS 

SET HD. SEL 

SEND HD SEL 

BR IF END OF CYL 



ADDR 

16 76 
1678 
167A 
167C 
1676 
1680 
1630 
163? 
16 14 
1616 
1618 
161A 
16 1C 
161E 
1620 
1622 
1624 
1626 
1628 
162A 
16 2C 
162E 



WORD SEQUENCE NO, LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



2B82 
2884 
2B86 
2B88 
2B8A 
2B8C 
288E 
2B90 
2B92 
2B94 
2B96 
2898 
2B9A 
2B9C 
2B9E 
2BA0 
2BA2 
2BA4 
2BA6 
2BA8 



3462 

E9 95 
3480 
2615 
486F 
9680 
2EC7 
9EA6 
3480 
2007 
2CC7 
3EC8 
4BCF 
4FCE 
4DCF 
021E 
5CC4 
C4A2 
22 OE 
F8AA 
9B62 
AD16 



3490 
7A42 
2F07 
4C86 
C48E 
2F€5 
5DB0 
ODFB 
C496 
3F45 
7F52 
3480 
5242 
5652 
C141 
0630 
F42E 
C628 
AB60 
2707 



KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 



072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 
083 
084 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
113 
119 
120 
121 
122 
123 
124 



080 RDTRAP 



WAITBR 
EOCENO 

RDTRAP 



077 
KAAN 152 



COUNT 



INDEX 



091 
KAAA 325 
KAAF 017 



RESUME 



CKGMWM 



STMARK 



SCC KC T 

SCNWLR 
SCCNTO 



126 
127 
134 
124 

KAAQ 076 



WAITBR 
TOOFAR 



087 COUNT 



INDEX 

HDSLCT 

NOTBSY 



SET MODE K=9 6 

BR IF RS BIT6=1 

SET MODE K=88 

D0=0$K10 

T GRQ= DO 

BR 

H1*0 

BR 

SET MODE K=88 

P1=0 

P0=0 

SET FIB K^CO 

TGRO-PO 

FOP-PO 

FFQ*PO 

RST MMSK K=71 

P=P*1 

BR IF IHl 

SET MMSK K=70 

BR IF FGA BIT7=0 

BAL 

BR 



CL0AD=*E40, EC LEVEL=1282U 

COMMENTS 

READ PCH MODE 
CK READ REQ 

SET CTRL 

SEND TAGS 

WAIT FOR STATUS 



2311 MODE 



SET NTO 

RST TAGS 

RST OP 

RST FLAGS 

RELEASE PRIORITY 

DELAY 

SET PRIORITY 
WAIT FOR INDEX 
GO SEL HEAD 
GO SEARCH 



PAGE 154 



******************** ******** ******************************* 

* * 

* ENTER THIS ROUTINE WITH ALL DATA XFER END STATUS,* 

* THIS ROUTINE WILL STORE THE DATA ADDRESS INTO * 

* THE V REG AND K4 OF AUX STORE, A CHECK IS MADE * 

* ON ENDING CONDITIONS, CHECK FOR SECT* CNT 000 * 

* FOR GMWM AND DATA CNT 0, * 

* * 
*********************************************************** 



ill CKGMWM 



115 STMARK 



SSSO 

CHDEV2 
WLREC 
SCCNTO 
SCNERR 



SET MODE K*89 

STH T DA, 98 

Hl^O 

P-I 

BR IF IHl 

H1~Q$K80 

RD8 PI T 

Z^PloKOF 

BR IF ZNZ 

H1-H1SK40 

STB Hi DA,9A 

SET MODE K*8S 

RDH V 0A,98 

RDH D 0A f 9A 

BR IF Gl BIT4-1 

BR IF DO BIT 1-0 

BR IF GO 8IT3^Q 

BR IF DO 81TO-0 

BR 

Dl-0 



SET 2311 MODE AND ZONE 

STORE DATA ADDR IN BUMP 

ZERO Hi REG 

CK COUNT ZERO 

BR IF CNT NOT ZERO 

SET MARK CNT WAS ZERO 

GET SET TO CK GMWM 

CK TOR GMWM 

BR IF NO GMWM 

SET MARK WAS GMWM 

STORE MARKS IN AUX 

CPU ZONE 

PUT DATA ADDR IN V REG 

GET MARKS 

BR IF SECT 000 

BR IF NOT GMWM 

BR IF NOT SCAN 

SCAN CK CNT 

SCAN WLR GO TO SCAN COND 



AODR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E40, EC LEVEL=1282ll 
COMMENTS 



PAGE 155 



2BAA 
2BC0 
2BBO 
2BB2 
2BB4 
2BB6 
2BB8 
2BBA 
2BAC 
2BAE 
2BBC 
2BBE 



2722 
2724 
2726 
2728 
272A 
272C 
272E 
2730 
2732 
27 34 
2736 
2738 
273A 
27 3C 
273E 
27 40 
2742 
2744 
2 746 
2748 
274A 
274C 
270E 
2710 
2712 
2714 



AB64 
AB3E 
E53D 
F427 
C02C 
C62E 
FDC2 
AD20 
C63B 
8CBA 
C62E 
8F4C 



E51A 
F10F 
3E08 
5632 
5664 
5EE2 
C535 
51FF 
7EE2 
F140 
2C13 
6CF3 
5D70 
6CD1 
C48B 
7F70 
273B 
2FC7 
7F70 
3513 
0E04 
A020 
C015 
3425 
8F3C 
152D 



KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 
KAAH 



125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 



SSSO 
CHDEV2 



RCSEOK 
CKCNT 
WLREC 
CKCNTO 



KAAQ 078 

KAAQ 109 

135 

123 

133 

134 

KAAQ Oil 

KAAF 022 

132 

KAAQ 013 

134 

KBBB 031 



STMGD1 



SEFRO 



STRACT 



STORE 



187 
174 



2NDCMP 
EXI T01 

RCAOOR 



KAAF 022 
177 



SCNCNO 

SECTRO 

CKCNTO 

SCNWLR 

CKCNT 

WLREC 

VERROR 

RESTOP 

RCSEOK 

WLRERR 

WLREC 

SENOGO 



BR 

BR 

BR IF Gl BIT2=l 

BR IF GO BlT3=i 

BR IF GO BIT4=0 

BR IF DO BIT0=0 

BR IF FFI BIT3^0 

BR 

BR IF DO BITO=l 

BR 

BR IF DO 8IT0=0 

BR 



GO TO SCAN COND 

SECT GO TO END OP 

BR IF ADDR OP 

BR IF SCAN OP 

BR IF NOT RBC OP 

RBC CK CNT WLR IF NOT 

CK STAT MOD V ERR IF NO 

RBC OK OR SECT OP OK GO SCH 

SECT OP CK CNT WLR IF NOT 

WLR GO TO ERROR END 

ADDR OP CK CNT WLR IF NOT 

GO XFER SECTOR 



**4t»«* ****************************************** *********** 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



ENTER HERE WITH STATUS MODIFIER. 

THIS ROUTINE SETS UP THE SCH ARGUMENT 

FOR ADDRESS OPERATIONS, 

IF COMPARE DISABLE IS ON, 

THE SCH WILL BE MADE ON RECORD ONLY, 

OTHERWISE A 1ST SCH USING THE 14XX 

DCF AND THEN THE RO ADDR WILL BE DONE, 

ADDR, OP RBC WILL PERFORM TWO RO SCHS. 

ONE IS DONE TO ORIENT THE 2311 AT REC 



THE 2ND 



I 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



^^e^e^*************** ********************************* ******* 



STM0D2 
2N0CMP 



161 STRACT 



167 STORE 



KAAQ 009 XERRGR 



RESTOP 
RCADDR 



KBBB 023 RESECH 



BR IF 
BR IF 
SET F 
RDH D 
D=D«-1 
RDH H 
BR IF 
Hi=FB 
STH H 
BR IF 
P0=0$ 
P0 = P0 
RDB P 
P0=P0 
BR IF 
STB H 
D1 = D1 
H1=0 
STB H 
Gi = Gl 
RST F 
BR 

BR IF 
G0=G0 
BR 
G1=G1 



Gl BIT2=0 
Gl BIT7=1 
IB K=CO 
0A,8E 

DA, BC 

Gl 8IT0=1 
I 

DA,BC 

Gl BIT7=0 
KOI 
♦HI 
1 D 
nPl 

Z = 
I D 
♦KG 3 

1 D 
$K01 
IB K=20 

GO BIT 4=1 

$K20 

nK 20 



BR IF NOT ADDR OP 
ADDR OP CK 2ND SCH 
SET NTQ RST FLAG REG 
READ COUNT FIELD ADR K3 

GET PRES CYL BUMP LOC 

BR IF ON ALTER TRK 

GET ACTUAL CYL LOC FROM 2311 

STORE CYL IN BUMP 

CK IF ENTERING WITH COMP DISABLE 

2311 CYL VALUE PLUS 1 

CK FOR CYL OVFLO 

GO SET X ERROR CYL OVFLO 

STORE CYL IN MAIN 

UPDATE TO REC POS ADDR 

ZERO FOR REC 

STORE REC IN MAIN 

SET 2ND SCH 

SET COLD START 

GO SCH ID ON RO REC 

BR IF RBC ADDR OP 

SET XFER 

GO XFER ADDR OP OR SECT OP 

REMOVE ADDR OP MARK 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLA8EL STATEMENT 



CL0AD=*E40, EC LEVEL=128211 PAGE 156 
COMMENTS 



2716 


3433 


KAAH 


178 










2718 


AD20 


KAAH 
KAAH 
KAAH 


179 

180 
181 


* 
* 


KAAF 


022 


RESTOP 






KAAH 


182 


* 






* 






KAAH 


183 


* 






* 






KAAH 


184 


* 






* 






KAAH 


185 


* 






**** 






KAAH 


186 


* 








271 A 


F401 


KAAH 


187 


STM0D2 




191 


CKSCH1 


27 IC 


CG10 


KAAH 


188 






175 


EXIT01 


271E 


C408 


KAAH 


189 






195 


EXIT 


2720 


8F2C 


KAAH 


190 


EXIT02 


KBB8 


056 


OPREST 


2700 


C421 


KAAH 


191 


CKSCH1 




190 


EXIT02 


2702 


3583 


KAAH 


192 










2704 


2CC7 


KAAH 


193 










2706 


4DCF 


KAAH 


194 










2708 


A882 


KAAH 


195 


EXIT 




105 


RESUME 



G0=G0$K03 
BR 



SET LG-EQ , RBC AOOR OP 
GO OQ 3RD SCH RBC AOOR 



*********************************************************** 

CONTINUE STATUS MODIFIER CHECK * 

*********************************************************** 



CK SCAN OP 

CK RBC 

CK SCH 

GO XFER RBC OR SCAN 

CK SCH 

SCAN HIT SET SECT 000 



BR IF GO BIT3=i 

BR IF GO BIT4=0 

BR IF GO BIT-OaO 

BR 

BR IF GO BIT0=1 

G1=G1$K08 

P0=0 

FF0*P0 RST CMO CH 

BR 
********************************** 

* CROSS REFERENCE FOR CSECT KAAH * 
********************************** 



KAAH 


018 


KAAH 


016 


KAAH 


027 


KAAH 


024 


KAAH 


036 


KAAH 


019 


KAAH 


046 


KAAH 


042 KAAH 043 KAAH 044 


KAAH 


048 


KAAH 


041 


KAAH 


049 


KAAH 


040 


KAAH 


050 


KAAH 


038 


KAAH 


058 


KAAH 


023 


KAAH 


064 


KAAH 


065 


KAAH 


077 


KAAH 


077 


KAAH 


078 


KAAH 


071 


KAAH 


080 


KAAH 


073 


KAAH 


087 


KAAH 


089 


KAAH 


091 


KAAH 


091 


KAAH 


105 


KAAH 


048 KAAH 195 


KAAH 


111 


KAAH 


109 


KAAH 


115 


KAAH 


113 


KAAH 


122 


KAAQ 


116 


KAAH 


123 


KAAH 


128 


KAAH 


124 


KAAH 


122 


KAAH 


126 


KAAH 


119 


KAAH 


127 


KAAH 


120 


KAAH 


132 


KAAH 


133 


KAAH 


133 


KAAH 


129 


KAAH 


134 


KAAH 


121 KAAH 130 KAAH 135 


KAAH 


135 


KAAH 


127 


KAAH 


152 


KAAH 


049 


KAAH 


155 


KAAF 


034 


KAAH 


161 


KAAH 


158 


KAAH 


167 


KAAH 


161 


KAAH 


174 


KAAH 


153 


KAAH 


175 


KAAH 


188 



KAAH 177 
KAAH 187 
KAAH 190 
KAAH 191 
KAAH 195 
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********************************** 

* CROSS REFERENCE FOR CSECT KAAH * 
********************************** 



KAAH 174 
KAAH 152 
KAAH 191 
KAAH 187 
KAAH 189 



ADDK 


WORD 


SEQUENCE NO. 


LABEL 






KAAN 


001 


T 






KAAN 


002 


* 






KAAN 


003 


* 






KAAN 


004 


* 






KAAN 


005 


* 






KAAN 


006 


* 






KAAN 


007 


* 






KAAN 


008 


* 






KAAN 


009 


* 






KAAN 


010 


* 






KAAN 


Oil 


* 






KAAN 


012 


* 






KAAN 


013 


♦ 






KAAN 


014 


* 






KAAN 


015 


* 






KAAN 


016 


* 






KAAN 


017 


* 






KAAN 


018 


* 






KAAN 


019 


* 






KAAN 


02 


* 






KAAN 


021 


* 






KAAN 


022 


* 






KAAN 


023 


* 






KAAN 


024 


* 






KAAN 


02 5 


* 






KAAN 


026 


* 






KAAN 


027 


* 






KAAN 


028 


* 


25D0 


2E07 


KAAN 


02 9 


ERROR 


2502 


2FB5 


KAAN 


030 




2504 


5612 


KAAN 


031 




25D6 


76E8 


KAAN 


32 




2508 


5A6F 


KAAN 


033 




25 DA 


5E7F 


KAAN 


034 




250C 


1723 


KAAN 


035 




25DE 


76E8 


KAAN 


036 




25E0 


507F 


KAAN 


037 




25E2 


1783 


KAAN 


03 8 




25E4 


5 56F 


KAAN 


039 




2566 


1635 


KAAN 


040 




25E8 


4760 


KAAN 


041 




25EA 


5C7F 


KAAN 


042 




25EC 


5770 


KAAN 


043 




25EE 


1713 


KAAN 


044 




25F0 


76E0 


KAAN 


045 




25F2 


0683 


KAAN 


046 




25F4 


FOFO 


KAAN 


047 




25F6 


1E00 


KAAN 


048 




25F8 


3202 


KAAN 


049 




25FA 


8222 


KAAN 


050 




25FC 


128E 


KAAN 


051 


NOC HE K 


OB 58 


56E0 


KAAN 


052 


ALUCHK 


0B5A 


3785 


KAAN 


053 





NEXTSEQ NEXTLABEL STATEMENT 

1400 FILE COMP. 
ROUTINE KAAN 



CLGAD=*E40, EC LEVEL=12821i PAGE 158 
COMMENTS 



UNUSUAL STATUS 1# 



******************** 


* 




* 


THE FILE EX 


* 

* 
*AUX00B0 


BITS ARE ST 


AUX 0082 


* 


TC REG 


* 


DC IN CNT 


*I NEXT 


1 TRK OVRUN 


* 


2 NRF 


* 


3 MAM 


* 


4 DATA CK 


* 


5 OVERRUN 


* 


6 TK COND 


* 


7 



* 

******************** 
***************************** 
TO DISPLAY FILE OP WHICH STOR 
2 SU8STRACT BIAS, HEX 3C0NVERT 
RESULTING ADDRESS WITH I/O TY 
***************************** 



*************************************** 

* 
TERNAL REGS WITH UNUSUAL CONDITION * 

ORED AS FOLLOWS, * 

* 

AUX 00B3 AUX GOB 4 AUX 00B5 * 

DS REG DASI REG FGA REG * 

READY HD COMP ALUCHK * 

1 ON LINE 1 SKIP 1 * 

2 UNSAFE 2— 2 * 

3 3— TGRI-- 3 — * 

4 TPGT NOT ER4 4 WLR * 

5 EOC 5 MACH CK 5 UNIT EX * 

6 6 STR PRT 6 FLAG BT6* 

7 SK INC 7 STR WRP 7 * 

* 
*************************************** 
****************************************** 
ED UNUSUAL CONDITIONS 1DI SPLAY I NEXT, HEX 

TO DECIMAL 4SUB TRACT 8, DEC. 5 DISPLAY THE 
PEWRITER, MANUAL DISPLAY 
****************************************** 



051 NQCHEK 



ITRP Oil MACHCK 



H0=0 

H1=0$KB0 

RDH D DA, 8A 

STH D AS, H+2 

DO=TC 

Di=DS 

Di=Dl*-K02 

STH AS, H+2 

D1=TGRI 

D1=D1*-K08 

D0=DASI 

D0=D0*-K30 

D0=D1L*D0H 

Dl^FGA 

D1=91L 

D1=D1*~K01 

STH D AS,H 

Z=D0*-K08 

BR IF LZ=0 

RST FIB K=80 

LINK U MMSK9=1 

BR 

RTN 

RDH D AS,H 

D1=D1$K80 



SEJ AUX =00 

80 
GET I CYCLE BACKUP 
PUT I CYC BACK-UP IN BO AUX BFR 
GET TC REG 
GET DS REG 
STRIP LO COMP 
STORE TC - DS 
GET TGRI REG 
REMOVE MOD 20 TRAP BIT 
GET DASI REG 
SAVE HD COMP SKIP BIT 
MERGE DASI - TGRI 
GET FGA REG 
STRIP MOD SELS 
STRIP INDEX 
STORE DASI-TGRI-FGA 
STRIP TRAP GATE BIT FROM TAGRI 
CK FOR MACHINE CHECK 
TURN ON CH END 

CPU ERROR DURING SHARE CYCLE 
GO LOG MACHINE CK 

GET UNUSUAL CONDITIONS 

OR IN ALUCHK, FLUNKED CC TEST 



AD OR 


WORD 


SEQUENCE NO. 


LABEL 


08 5C 


76E0 


KAAN 


054 




0B5E 


8390 


KAAN 


055 








KAAN 


056 


* 






KAAN 


057 


* 






KAAN 


058 


* 






KAAN 


059 


* 






KAAN 


060 


* 






KAAN 


061 


* 






KAAN 


062 


* 






KAAN 


063 


* 






KAAN 


064 


* 






KAAN 


065 


* 






KAAN 


066 


♦ 






KAAN 


067 


* 






KAAN 


068 


* 






KAAN 


069 


* 






KAAN 


070 


* 






KAAN 


071 


* 






KAAN 


07? 


* 






KAAN 


073 


* 






KAAN 


074 


* 






KAAN 


075 


* 






KAAN 


076 


* 






KAAN 


077 


* 






KAAN 


078 


* 






KAAN 


079 


* 






KAAN 


080 


* 


0EC8 


2FC7 


KAAN 


081 


UNSTA1 


OECA 


5AEF 


KAAN 


082 




OECC 


0E55 


KAAN 


83 




OECE 


E003 


KAAN 


084 




OEOO 


3F25 


KAAN 


085 




0EO2 


0EB5 


KAAN 


86 


NOTX 


0ED4 


E009 


KAAN 


087 




0E06 


3F13 


KAAN 


088 




0E08 


0E33 


KAAN 


089 


NQTN 


OEOA 


FOEB 


KAAN 


090 




OEDC 


3F23 


KAAN 


091 




OEOE 


FE66 


KAAN 


092 


NQTF 


OEEO 


3F27 


KAAN 


093 




0EE2 


05E6 


KAAN 


094 




0EE4 


3F13 


KAAN 


095 




0EE6 


5EEF 


KAAN 


096 


NOMI SS 


0EE8 


9E98 


KAAN 


097 




OEEA 


EA5E 


KAAN 


098 


NOTV 






KAAN 


099 


* 






KAAN 


100 


* 






KAAN 


101 


* 






KAAN 


102 


# 






KAAN 


103 


♦ 


OEEC 


3E00 


KAAN 


104 


REAORO 


OEEE 


1210 


KAAN 


105 




OEFO 


2725 


KAAN 


106 





NEXTSEQ NEXTLABEL STATEMENT 



CL0AD==*E40 f EC LEVEL^1282 11 

COMMENTS 



PAGE 159 



KAAQ 015 



STH AS,H STR UNUSUAL CONO WITH A 

NOTROY BR GO SET NOT READY Z EXIT 

**************************************************** 

* 

THE OAC ERROR STATUS CONDITION 

IS DECODED IN THIS ROUTINE. 

THE 14XX ERROR BRANCH BYTE IS SETUP AND 

STORED IN KB OF AUX STORE. 

THE READING OF RECORD FOR ALTERNATE SEEKS 

IS ALSO DONE IN THIS ROUTINE. 



THE FOLLOWING IS A LIST OF DAC ERROR CONDI T 
AND THE CORRESPONDING 14XX ERROR THAT IS SE 



* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
**************************************************** 



DATA CK IN COUNT 

TRACK OVERRUN 

END OF CYLINDER 

DATA CHECK 

OVERRUN 

NOT READY 

NOT ON LINE 

UNSAFE 

SEEK INCOMPLETE 

MISSING ADDR MRK 

WRONG LGTH REC 



NO REC FOUND 
NOT READY 
NRF ♦ WLR 
VALIDITY 
VALIDITY 
NOT READY 
NOT READY 
NOT READY 
NOT READY 
NO REC FOUND 
MODE ERROR 



X ERROR 
N ERROR 
X ♦ WLR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
N ERROR 
X ERROR 
WLR ♦ V 



LUCHK 

******* 

* 
* 
* 
* 
* 
* 
* 
* 

IONS * 

T * 

* 
* 

RROR * 
* 
* 
* 
* 
* 
* 
* 

RROR * 
* 

******* 



086 NOTX 

089 NOTN 

098 NOTV 

096 NOMISS 

096 NOMISS 



145 UNSTA2 
092 NOTF 



H1=0 

HO=TC 

Z=HO*-K50 

BR IF HZ=0 

H1=HUK20 

Z*=HO*-KBO 

BR IF HZ=0 

H1=H1$K01 

Z=H0*-K03 

BR IF LZ=0 

Hl=Hi$K02 

BR IF HO BIT3=0 

Hl=Hi$K22 

BR IF DASI BITi=0 

H1=H1$K01 

HO^DS 

BR 

BR IF HO 8IT6=0 



ZERO HI REG 

CALL IN ERROR REG FOR ERROR ASEM 

CHK FOR X,DC CT,NRF 

BR IF NOT X 

SET X 

CK FOR N, TRACK OVERRUN 

BR IF NOT N 

SET N 

CK FOR V,DC OR DATA OVERRUN 

BR IF NOT V 

SET V 

CHECK FOR MISSING ADDRESS MARK 

SET X AND V 

CK ATTEN 

SET N 

CALL IN DISK STATUS REG 

GO TO UNUSUAL STATUS 2# 

BR IF NOT FLAGGED TRACK 



**************************************************************** 

* READ IN RECORD OF DEF. TRACK * 

**************************************************************** 



SET FIB K=80 
RST MMSK K=8i 
DI=0$K20 



NTO RESET TO RST ERRORS HOLD MS 
ALLOW FILE TRAPS 



AD OR 


WORD 


SEQUENCE NO. 


LABEL 


0EF2 


40 7F 


KAAN 


107 




0EF4 


2715 


KAAN 


108 




0EF6 


48 7F 


KAAN 


109 




0EF8 


0340 


KAAN 


110 




OEFA 


3763 


KAAN 


111 




OEFC 


0E04 


KAAN 


112 




OEFE 


ZE 08 


KAAN 


113 




OF 00 


4F7F 


KAAN 


114 




OF 02 


3000 


KAAN 


115 




OF 04 


3443 


KAAN 


116 




OF 06 


3490 


KAAN 


117 




OF 08 


2807 


KAAN 


118 




OFOA 


2943 


KAAN 


119 




OFOC 


5A32 


KAAN 


120 




OF OE 


28 88 


KAAN 


121 




0F10 


8F10 


KAAN 


122 


STABRO 






KAAN 


123 


* 






KAAN 


124 


* 






KAAN 


125 


* 






KAAN 


126 


* 






KAAN 


127 


* 






KAAN 


128 


* 






KAAN 


129 


* 


1C6A 


58E2 


KAAN 


130 


ROOONE 


1C6C 


519F 


KAAN 


131 




1C6E 


78E2 


KAAN 


132 




IC70 


5E32 


KAAN 


133 




IC72 


2F 88 


KAAN 


134 




1C74 


58F8 


KAAN 


135 




1C76 


56F0 


KAAN 


136 




1C78 


A7E6 


KAAN 


137 








KAAN 


138 


* 






KAAN 


139 


* 






KAAN 


140 


* 






KAAN 


141 


* 






KAAN 


142 


* 






KAAN 


143 


* 






KAAN 


144 


* 


I £98 


CE22 


KAAN 


145 


UNSTA2 


IE9A 


DE22 


KAAN 


146 




1E9C 


EE23 


KAAN 


147 




1E9E 


FA23 


KAAN 


148 




iEAO 


9EA4 


KAAN 


149 




1EA2 


3F13 


KAAN 


150 


SETN 


1EA4 


DA2A 


KAAN 


151 


DSOK 


1EA6 


3F83 


KAAN 


152 


TOOFAR 


1EA8 


3F25 


KAAN 


153 




1EAA 


2E25 


KAAN 


154 


FFORST 


1EAC 


4DEF 


KAAN 


155 




1EAE 


2E07 


KAAN 


156 




1EB0 


4FEF 


KAAN 


157 




1E82 


3F43 


KAAN 


158 




1EB4 


56B2 


KAAN 


159 





NEXTSEQ NEXTLABEL STATEMENT 



FF0=D1 

01=0$K10 

TGRO^Dl 

RST DIAC K=04 

Dl=0i$K06 

RST FIB K=20 

SET FIB K=40 

FGP=D1 

SET FIA K=80 

G0=G0$K04 

SET MODE K~89 

10=0 

I1=0$K04 

RDH T DA,8E 

T1=T1+K08 

BR 



CLOAD=*E40, EC LEVEL=12B2U 
COMMENTS 

SET SILI 

SET CTRL 
RST MOVE 
01=16 

RST FLAG REG 

SEND OP 

SEND GO 

SET RO IN G REG 

SET 2311 MODE AND ZONE 

CNT HIGH EQ 

CNT LOW EQ 4 

READ COUNT FIELD ADR K3 

GET TO RO DATA ADDR 



PAG€ 160 



122 STABRO 



* * 

* ENTER HERE AFTER READING RO RECORD * 

* * 
*********************************************************** 



KAAQ 047 DAS I BR 



ROH I DA f BC 
U = FBI 
STH I DA,BC 
RDH H DA»8E 
Hl=Hl*K08 
ROH I H+2 
RDH D H 
BR 



SAVE MOD VALUE 

GET OA 

STORE CYL 

READ COUNT FIELD ADR 

GET TO RO CYL POS ADDR 

PUT CYL IN U 

PUT HD IN Dl 

GO TO ERASE WAIT 



K3 



*********************************************************** 

* * 

* CONTINUE UNUSUAL STATUS CHECK. * 

* * 
*********************************************************** 



CHECK NOT READY 
CHECK NOT ON LINE 
CHECK UNSAFE 
CHECK SEEK INCOMPLETE 



150 


SETN 


BR IF HO BIT0=0 


150 


SETN 


BR IF HO BIT 1=0 


150 


SETN 


BR IF HO BIT 2= I 


150 


SETN 


BR IF HO BIT7=1 


151 


DSOK 


BR 
H1=H1$K01 


154 


FFORST 


BR IF HO 8IT5=0 

Hi=Hl$K08 

H1=H1$K20 

H0=O$K2O 

FFO=H0 

H0 = 

F0P=H0 

H1=H1$K04 

RDH D DA,AE 



SET NOT READY 
CHECK EOC 
SET WLR 
SET X 



SET ANY 

SAVE PREVIOUS OP 



AD OR 



WORO SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLOAD=*E40, EC LEVEL=1282 11 
COMMENTS 



PAGE 161 



IEB6 
IEB8 
1EBA 
1EBC 
1EBE 
1ECO 
1EC2 
1EC4 
1EC6 
1EC8 
IECA 
1ECC 
1ECE 
1EO0 
1ED2 
1ED4 
1ED6 
1E80 
1E82 



1E84 
1E86 
1E83 
1E8A 
1E8C 
IE8E 
1E90 
1E92 
IE 94 
1E96 
0236 
0238 
023A 
1ED8 
IEOA 
IE DC 
1EDE 
IEEO 



D73A 
3F45 
5FT9 
76B2 
1E00 
1D00 
1210 
C54C 
F5C7 
0EQ8 
8236 
E501 
D559 
CG56 
F457 
E017 
986E 
F516 
EF17 



56B2 
C217 
5E32 
2F4B 
5DF0 
FD17 
3725 
3743 
76B2 
85EE 
5652 
497F 
A7CC 
3400 
6206 
6226 
6226 
9804 



KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 
KAAN 



160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
2 02 
203 



162 NO BIT 



NOB IT 
RSTCTL 

RESET 
ENDCK 



SECTOi 

CKWR 
CKX 



171 
168 

196 
177 
199 
176 
176 
195 
KEND 033 
195 
195 



NTMSMK 
ALTTRK 



SETUP 



ENDCK 
RESET 

ALTTRK 

CKWR 

SETUP 

SECTOI 

SECTOI 

NTMSMK 

SECEND 

NTMSMK 

NTMSMK 



BR IF Dl BIT 1=0 

H1=H1$K40 

D1 = H1 

STH D DA,AE 

RST FIB K=80 

RST FIA K=80 

RST MMSK K=8 1 

BR IF Gl 8IT0=0 

BR IF DASl BIT3=1 

RST FIB K*40 

BR 

BR IF Gl BIT2=i 

BR IF Gl BIT1=1 

BR IF GO BIT4=0 

BR IF GO 8IT3=i 

BR IF GO BIT6=i 

BR 

BR IF Gl BIT3=0 

BR IF HI BIT2^i 



CK RECAL SEQ 

SAVE RECAL SEQ BIT 

ASSEM. ERROR BYTE 

STORE ERROR 

CHAIN END RESET 

RST TRAP LATCH 

ALLOW FILE TRAPS 

BR IF NOT ON ALT TRK 

WAIT FOR ERASE TO FINISH 

RST CHAIN END WITH INITIAL 

BR IF ADDR OP 

BR IF MORE THAN ONE SECTOR 

CK RBC 

CK FOR RBC OF SCAN OP 

CK LO FOR RBC ADDR OP 

GO TO END SECT OP 

BR IF WRITE ADDR. OP. 

BR IF NO COMP ON ADDR OP 



RST 



********************************************** ****** ******* 

* * 

* ENTER HERE ON ADDR. OPS TO CHECK FOR MISSING AM. * 

* * 
*********************************************************** 



KAAN 029 
KAAN 051 
KAAN 052 
KAAN 081 
KAAN 086 
KAAN 089 



KAAA 101 
KAAN 047 
KAAA 423 
KAAH 028 
KAAN 084 
KAAN 087 



KAAA 422 KAAH 02? 



ROH D DAtAE 
195 NTMSMK BR IF DO BIT4=* 

RDH H DA, 8E 

H1=H1*K04 

ROB PI H 
195 NTMSMK BR IF PI BIT3= 

D1=D1$K20 

D1=D1$K04 

STH D OA* AE 

BR 

RDH D DA,9A 

MS=D1 

BR 

SET MODE K=80 

V=U-2 

V=V-2 

V=V-2 

BR 
************************ 

* CROSS REFERENCE FOR CS 
************************ 

KAAQ 054 KBBG 012 



KEND 030 ADRENO 



KAAQ 034 DESLHD 



KB BO 010 SECEND 



GET PREV. OP. 

BR IF TRK ADDR OP 

READ COUNT FIELD ADR 

UPDATE TO REC POS 

RD REC 

BR IF REC 16 OR MORE 

POST MISSING ADDR. MARK 

SET ANY 

GO TO END OP ADDR OP 
END ON ALT TRK 
RE SELECT MODULE 
GO SEEK BACK 
SET CPU MODE AND ZONE 
GET V TO DCF 
GET V TO DCF 
GET V TO DCF 
GO UPDATE DCF 
********** 

ECT KAAN * 
********** 



K3 
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********************************** 

* CROSS REFERENCE FOR CSECT KAAN * 
********************************** 



KAAN 


092 


KAAN 


098 
















KAAN 


096 


KAAN 


092 


KAAN 


094 












KAAN 


098 


KAAN 


090 
















KAAN 


122 


KAAN 


122 
















KAAN 


130 


KAAH 


050 
















KAAN 


145 


KAAN 


097 
















KAAN 


150 


KAAN 


145 


KAAN 


146 


KAAN 


147 


KAAN 


148 




KAAN 


151 


KAAN 


149 
















KAAN 


152 


KAAH 


079 
















KAAN 


154 


KAAN 


151 


KAAQ 


008 


KAAQ 


010 


KAAQ 


012 


KAAQ 014 KAAQ 018 


KAAN 


162 


KAAN 


160 
















KAAN 


164 


KAAQ 


097 
















KAAN 


168 


KAAN 


168 
















KAAN 


171 


KAAN 


167 


KBB'G 


018 












KAAN 


176 


KAAN 


173 


KAAN 


174 












KAAN 


177 


KAAN 


171 
















KAAN 


195 


KAAN 


175 


KAAN 


177 


KAAN 


178 


KAAN 


187 


KAAN 191 


KAAN 


196 


KAAN 


170 
















KAAN 


199 


KAAN 


172 

















ADDR 



1650 
1652 
1654 
1656 
270A 
270C 
2BC2 
2BC4 
OCBA 
OCBC 
0390 
0392 
0394 
0396 
07E0 
07E2 
07 E 4 
07E6 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



27CC 

27CE 
2700 
27D2 
2704 
2706 
2708 
270A 
27 DC 
27DE 
27E0 
27E2 
27E4 
27E6 
27E8 
27EA 
27EC 
27EE 
27F0 
27F2 



2F23 
1423 
1525 
9EAA 
2F2 5 
9EAA 
2F23 
9EAA 
2F83 
9EAA 
2F13 
15E5 
1483 
9EAA 
2F07 
49FF 
2F15 
8392 



9FEC 
58E2 
5E32 
2F 3B 
57F0 
57F9 
C4E6 
DFE6 
5EB2 
3F25 
3FC3 
7EB2 
9FEC 
F5E7 
3E08 
02 IE 
2F07 
4BFF 
40FF 
C1F8 



KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 



001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 

02 
021 
022 
023 
024 
025 
026 
027 
028 
029 
030 
031 
032 
033 
034 
035 
036 

03 7 
03 8 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 



MODER 

XERROR 

VERROR 

WLRERR 

NQTRDY 
CLEAR 

BUSY 



KAAN 154 
KAAN 154 
KAAN 154 
KAAN 154 



FFORST 
FF ORST 
FFORST 
FFORST 



KAAN 154 FFORST 



016 CLEAR 



14XX FILE CQMP. 

ROUTINE KAAQ 

H1=0$K02 

G0=G0*-K02 

G1=*G1*-K20 

BR 

H1=0$K20 

BR 

H1=0$K02 

BR 

Hi=0$K08 

BR 

Hl=0$K0i 

G1=G1*-KE0 

G0=GQ*-K08 

BR 

Hi=0 

MS=H1 

H1=0$K10 

BR 
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END CONDITIONS 

SET V 
CLEAR LO 
CLEAR ADDR OP 

SET X 

SET V 

SET WLR 

SET NOT READY 

CLR ADDR OP DCF DONE AND ALT TRK 

CLR RBC OP 



DESEL MOD 
SET BUSY 



************************************************ ******* **** 

* * 

* ENTER HERE IF END OR HD. SW. ON ALTER. TRK. * 

* THIS ROUTINE SETS UP THE CYL AND HD VALUES FOR * 

* SEEKING TO ALTERNATE SURFACES AND RETURN TO DEF * 

* SURFACES, THE CYL VALUE IS PLACED IN II REG* * 

* THE HD VALUE IS PLACED IN THE Dl REG* * 

* * 
*********************************************************** 



DESLHD 
RSTTAG 



060 FORCE 



DASIBR 



047 
047 



060 
047 



DASIBR 
DASIBR 



FORCE 
DASIBR 



056 NOUNS 



BAL 

RDH I DA,BC 

RDH H DA, 8E 

H1=H1+K03 

RDB Dl H 

H1=?D1 

BR IF ZNZ 

BR IF FOP BIT 1=0 

RDH H DAtAE 

Hl=Hl$K20 

Hl=HX$KOC 

STH H DA f AE 

BAL 

BR IF DAS I BIT3=1 

SET FIB K«CO 

RST MMSK K=71 

HL=0 

TGRO^Hl 

FFO=Hl 

BR IF DAS I BIT4=0 



GET CYL 

READ COUNT FIELD 
UPDATE TO HD POS 
PUT HD IN Dl 



ADR 



K3 



BR IF HEAD NOT ZERO 
HEAD IS ZERO CK HEAD SW 

SET X ERROR 
SET WLR AND ANY 
STORE ERROR 

WAIT FOR ERASE DONE 

SET NTO RST FLAG REG 

RELEASE PRIORITY 

ZERO HI 

RESET TAGS 

RESET FLAGS 

BR IF NO UNUSUAL STAT 



AOOR 

27F4 
27F6 
27F8 
2 7 FA 
27 FC 
27FE 
IFEC 
IFF 6 
1FFO 
IFF2 
1FF4 
1FF6 
1FF8 



WORD SEQUENCE NO. LABEL 



28 60 
2662 
2B64 
2866 
2B68 
2B6A 
28 6C 
2B6E 
2B70 
2B72 
2874 
28 76 
2878 
287A 
28 7C 
2B76 
2880 
2B50 
2852 
28 54 
28 56 
2858 
28 5A 
284A 
28 4C 
28 4E 



A5O0 
8 390 
2F 18 
DF78 
2F07 
A800 
C179 
3583 
5E52 
5EF9 
3F25 
7F52 
128E 



2725 

3583 
2F15 
F0F3 
2F65 
E96E 
2FC5 
E04A 
EF74 
3583 
5C82 
4F0B 
7C82 
C151 
6204 
5224 
A020 
3E00 
0E04 
E75B 
2F07 
9EBE 
8C8A 
FC7 5 
CF73 
A874 



KAAQ 

KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 
KAAQ 



054 
055 
056 
057 
058 
059 
06 
061 
062 
063 
064 
065 
066 
067 
06 8 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 
083 
084 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
104 
105 
106 



NQUNS 



FORCE 



RTN 



* 
* 
* 
* 

* 

* 
* 
* 



SCNERR 



SCNCNO 



CKSCLO 

HJHIT 

BRREG 



CHREG 



EXITOi 

END WLR 

HIOP 



CL0AD=*E40» EC LEVEL* 1282 11 

COMMENTS 

GO STORE REGS 
ONUS STAT GO END 
DELAY BEFORE SEEK 



GO SEEK 
CK SECT. 
FORCE SECTOR 



STORE MARK SECT FORCED 



*********************************************************** 

* * 

* THIS ROUTINE CHECKS THE DAC SCAN CONDITION. * 

* THE 14XX SCAN BRANCH BYTE IS SET UP AND * 

* STORED IN K8 OF AUX STORAGE. * 

* * 

******************************* ********* ******************* 
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NEXTSEQ 


NEXT LABEL 


STATEMENT 


KAAN 029 


ERROR 


BAL 


015 


NOT ROY 


BR 
Hi=Hl+K01 


056 


NOUNS 


BR IF HI BIT 1*0 

H1=0 


KAAA 287 


MOTSEK 


BR 


066 


RTN 


BR IF Gl BlT4*l 

G1=G1$K08 
ROH H 0A,9A 
H1*H0 
H1=H1$K20 
STB Hi DA,9A 
RTN 



KAAF 022 RESTOP 



098 ENDWLR 



KAAN 164 
013 
086 
085 
086 



D1=0$K20 

G!*Gl*K08 

H1=0$K10 

HIHIT BR IF FFI BIT3*1 

H1=0$K60 

CKSCLO BR IF PI BIT6^0 

Hl=0$KCO 

HIOP BR IF GO BIT6=0 

BRREG BR IF HI BIT2=0 

Gl=Gl$K08 
ROH P DA* A8 
P1=H1H+PIL 
STH P DA,A8 
BR IF Gl BIT4=1 
V=U+2 
V=V*1 
BR 

SET FIB K=80 
RST FIB M=20 
BR IF 01 BIT2=1 
H1=0 

RSTCTL BR 

WLRERR BR 

BRREG BR IF GO BIT 7= I 

HIHIT BR IF HI BITO^i 

BRREG BR 



085 
083 

099 

086 



093 CHREG 



SET WLR 

SE? SECT 

SET EQUAL 

BR IF SCAN WAS €0 

SET UNEQ. LO 

BRANCH IF SCAN WAS LO 

SET UNEQ. HI 

BR IF HI OR EQ. -OP. 

OP WAS LO BR IF NOT SCAN LO 

SET SECT 

READ OUT BR REG SAVE HI HALF 

SET NEW COND. 

BR IF SECT 



NOT GO SCH ID 
SET NTO 
RST NTO 
BR IF WLR 

GO TO END CHECK 

WLR GO TO ERROR END 

BR IF EQ. OP. 

OP WAS HI BR IF SCAN WAS HI 



******************** *************************************** 

* * 

* ENTER HERE FROM STATUS WITH SECTOR 000 * 

* * 



AD OR 



WORD SEQUENCE NO, LABEL 



NEXTSEQ NEXTLABEL STATEMENT 
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KAAQ 107 


* 




************************ 






KAAQ 108 


* 








283E 


F45D 


KAAQ 109 


SECTRO 


115 


SCCKGM 


BR IF GO BIT 3*1 


2B40 


C65A 


KAAQ 110 




098 


ENDWLR 


BR IF 00 BITO=0 


2B42 


06 5A 


KAAQ 111 




098 


ENDWLR 


BR IF 00 BIT 1=0 


2B44 


C056 


KAAQ 112 




096 


EXIT01 


BR IF GO BIT4=0 


2B46 


FDD7 


KAAQ 113 




096 


EXITOi 


BR IF FFI BIT3=1 


2B48 


ABC2 


KAAQ 114 




Oil 


VERROR 


BR 


2B5C 


0660 


KAAQ 115 


SCCKGM 


076 


SCNERR 


BR IF 00 BIT 1=0 


285E 


A8A4 


KAAQ 116 




KAAH 122 


SCCKCT 


BR 



BR IF SCAN TO CK GMWM 

NOT SCAN BR IF NOT CNT 

BR IF NOT GM WM 

CK RBC 

RBC CK STAT MOD 

NO STAT MOO RBC V ERROR 

SCAN CK GMWM WLR IF NOT 

GMWM OK GO TO CH AND OEV 1# 



********************************** 

* CROSS REFERENCE FOR CSECT KAAQ * 
********************************** 



KAAQ 


005 


KAAH 


039 










KAAQ 


009 


KAAA 


035 


KAAH 


166 






KAAQ 


Oil 


KAAH 


131 


KAAQ 


114 






KAAQ 


013 


KAAH 


134 


KAAQ 


098 






KAAQ 


015 


KAAA 


102 


KAAN 


055 


KAAQ 


055 KBBG 013 


KAAQ 


016 


KAAQ 


022 










KAAQ 


019 


KAAA 


111 










KAAQ 


034 


KAAN 


198 










KAAQ 


035 


KAAF 


038 










KAAQ 


047 


KAAN 


137 


KAAQ 


040 


KAAQ 


041 KAAQ 047 


KAAQ 


056 


KAAQ 


053 


KAAQ 


057 






KAAQ 


060 


KAAQ 


034 


KAAQ 


046 






KAAQ 


066 


KAAQ 


060 










KAAQ 


076 


KAAH 


123 


KAAQ 


115 






KAAQ 


078 


KAAH 


125 










KAAQ 


083 


KAAQ 


081 










KAAQ 


085 


KAAQ 


079 


KAAQ 


100 






KAAQ 


086 


KAAQ 


084 


KAAQ 


099 


KAAQ 


101 


KAAQ 


093 


KAAQ 


089 










KAAQ 


096 


KAAQ 


112 


KAAQ 


113 






KAAQ 


098 


KAAQ 


095 


KAAQ 


110 


KAAQ 


ill 


KAAQ 


099 


KAAQ 


083 










KAAQ 


109 


KAAH 


126 










KAAQ 


115 


KAAQ 


109 











ADDR 


WORD 


SEQUENCE NO. 


LABEL 






KB8B 


001 


T 






KB8B 


002 


* 






KBBB 


003 


* 






KBBB 


004 


* 






KBBB 


005 


♦ 






KBBB 


006 


* 






KBBB 


007 


* 






KBBB 


008 


♦ 






KBBB 


009 


♦ 






KB8B 


010 


♦ 






KBBB 


on 


* 






KBBB 


012 


* 






KBBB 


013 


* 






KBBB 


014 


♦ 






KBBB 


015 


♦ 






KBBB 


016 


* 






KBBB 


017 


* 






KB88 


018 


* 






KBBB 


019 


* 






KBBB 


020 


* 






KBBB 


021 


* 






KBBB 


022 


* 


0F3C 


1485 


KBBB 


023 


RESECH 


0F3E 


2753 


KBBB 


024 




OF 40 


F544 


KBBB 


025 




OF 42 


271B 


KBBB 


026 




OF 44 


E538 


KBBB 


027 


CKAOOR 


0F46 


271D 


KBBB 


028 




0F48 


278B 


KBBB 


029 




0F4A 


4F7F 


KBBB 


030 




0F4C 


3000 


K888 


031 


SENDGO 


0F4E 


3490 


KBBB 


032 




0F50 


2807 


KBBB 


033 




OF 52 


2915 


KBBB 


034 




OF 54 


5A32 


KBBB 


035 




OF 56 


3480 


KBBB 


036 




OF 58 


F56A 


KBBB 


037 




0F5A 


3490 


KBBB 


038 




OF 5C 


6CA4 


KBBB 


039 




0F5E 


50C9 


KBBB 


040 




0F60 


6081 


KBBB 


041 


CPCTZR 


0F62 


C4E9 


KBBB 


042 




0F64 


5C0 9 


KBBB 


043 




0F66 


8F60 


KBBB 


044 




0F6A 


5224 


KBBB 


045 


WRADGP 


0F6C 


2F07 


KB88 


046 




0F6E 


9E06 


KBBB 


047 




0F68 


9 800 


KBBB 


048 


EXIT03 






KBBB 


049 


* 






KBBB 


050 


* 






KBBB 


051 


* 






KBBB 


052 


♦ 






KBBB 


053 


* • 



NEXTSEQ 



NEXTLABEL STATEMENT 

14XX FILE COMP. 
ROUTINE KBBB 
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XFER COMMAND DECODE 



*********************************************************** 



* 
♦ 
* 

* 

* 

♦ 



* 
THIS ROUTINE DECODES THE 14XX CMD INTO NPL FORM ♦ 
THE G REG CONTAINS THE TYPE OF 14XX CMD TO BE * 

PERFORMED AND THE DAC OP REG IS SET AS FOLLOWS * 



♦READ DATA 

♦WRITE DATA 

♦READ CNT KEY DATA 

♦WRITE CNT KEY DATA 

♦READ BACK CHECK EQ 

♦SCAN EQ 



ADDR AND SECT XFER ENTER HERE 



OP 


REG = 


06 


OP 


REG =* 


05 


OP 


REG = 


IE 


OP 


REG * 


ID 


OP 


REG = 


6D 


OP 


REG = 


20 



♦ 
♦ 
♦ 
♦ 

* 

♦ 
♦ 
♦ 
♦ 
♦ 



*********************************************************** 



027 CKADDR 
062 SCXFER 



045 WRADOP 

048 EXIT03 
041 CPCTZR 



KAAA 158 8BBTW0 
KBBD 008 BINCM6 



G0=G0^-K80 

D1=0$K05 

BR IF Gi BIT3=*0 

D1=D1+K01 

BR IF SI BIT*»S 

D1~D1+K10 

D1=DH*08 

FOP«Di 

SET FIA K=80 

SET MODE K»89 

I0«0 

U=0SK10 

RDH T 0A,8E 

SET MODE K«88 

BR IF Gl BIT3=0 

SET MODE K*89 

P=T*»2 

PO-Pl 

Pl^PlaTl 

BR IF Z=0 

P1=P0 

BR 

V^V + l 

H1=0 

BR 

BR 



RST SCH IN G REG 

SET DATA WRITE 

CK WRITE OP 

SET READ 

CK AD9R OP • 

AOOR OP SET CNT 

SET KEY 

SEND OP 

SEND GO 

2311 MODE AND ZONE 

CNT HI EQ 

CNT LOW Ea 16 

READ COUNT FIELD ADR K3 

CPU ZONE 

CK WR ADDR OP 

READ ADDR 2311 ZONE FOR CLOCKING 

SET CNT 

COMPARE 

READ 2 BYTES THEN BR 

GO COMP AGAIN 

WR ADDR OP GET B STAR «-l 

GO CONVERT DCF TO BIN 
GO CONVERT BIN TO DCF 



********** ****************************** ******************* 

* ♦ 

* RBC AND SCAN XFER ENTER HERE ♦ 

* ♦ 



AOOR 


WORD 


SEQUENCE NO* 


LABEL 


NEXTSEQ 


NEXTLAI 






KBBB 


054 


* 




**** 






KBBB 


055 


* 






0F2C 


1485 


KBBB 


056 


QPRESI 






0F2E 


2703 


KBBB 


057 








OF 30 


F437 


KBBB 


058 




061 


SCANEQ 


0F32 


3765 


KBBB 


059 








0F34 


EC 71 


KBBB 


060 




064 


RCADDR 


0F36 


3725 


KBBB 


061 


SCANEQ 






0F38 


3445 


KBBB 


062 


SCXFER 






0F3A 


8F7A 


KBBB 


063 




069 


START 


OF 70 


5A42 


KBBB 


064 


RCADOR 






OF 7 2 


2B6B 


KBBB 


065 








OF 74 


F4F8 


KBBB 


066 




068 


NUOAAO 


0F76 


2A18 


KBBB 


067 








0F78 


42A6 


KBBB 


068 


NUOAAO 






OF 7 A 


4F7F 


KBBB 


069 


START 






OF 7C 


3000 


KBBB 


070 








0F7E 


A8BC 


KBBB 


071 




KBBC 009 


DECSEC 
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*********************************************************** 



G0=G0*-K80 
D1=0$K00 
BR IF GO BIT3=l 
01=D1$K60 
BR IF GO BIT6=i 
01=01$K20 
G0=G0$K40 
BR 

RDH T DA, 98 
T1-TU-K06 
BR IF AC=0 
T0=T0+K01 
V = T 

FQP^Dl 

SET FIA K=80 
BR 
********************************** 

* CROSS REFERENCE FOR CSECT KBBB * 
********************************** 



RST SCH IN G REG 

SET KEY, DATA, WRITE 

BR ON SCAN OP 

SET RBC EQ« 

CK LO FOR RBC OF AODR OP 

SET SCAN EQ«, 

SET 1ST XFER 



RBC ADDR OP START OF +6 

ADD 6 TO ADDR TO BYPASS CNT 

CK FOR CARRY 

ADD CARRY 

STORE NEW DATA ADDR. 

SEND OP 

SEND GO 

GO DECREMENT SECTOR CNT 



KBBB 


023 


KAAH 


176 


KBBB 


027 


KBBB 


025 


KBBB 


031 


KAAH 


136 


KBBB 


041 


KBBB 


044 


KBBB 


045 


KBBB 


037 


KBBB 


048 


KBBB 


042 


KBBB 


056 


KAAH 


045 KAAH 190 


KBBB 


061 


KBBB 


058 


K8BB 


062 


KBBB 


027 


KBBB 


064 


KBBB 


060 


KBBB 


068 


KBBB 


066 


KBBB 


069 


KBBB 


063 



AD OR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 
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KB8C 


001 T 






KB8C 


002 * 






KBBC 


003 * 






KBBC 


004 * 






KBBC 


005 * 






KBBC 


006 * 






KBBC 


007 * 






KBBC 


008 * 


28BC 


3400 


KBBC 


009 OECSEC 


28BE 


2CB5 


KBBC 


010 


28C0 


D145 


KBBC 


Oil 


28C2 


2CF5 


KBBC 


012 


28C4 


2007 


KBBC 


013 REAOAD 


28C6 


5718 


KBBC 


014 


28C8 


5918 


KBBC 


015 


28CA 


5B10 


KBBC 


016 


28CC 


67C5 


KBBC 


017 


28CE 


69C5 


KBBC 


018 


2800 


6BC5 


KBBC 


019 


2802 


57FD 


K8BC 


02 


2804 


5960 


KBBC 


021 


2806 


5BE0 


KBBC 


022 


2808 


10EE 


KBBC 


023 


280A 


3000 


KBBC 


024 


28DC 


7E0F 


KBBC 


025 


28DE 


760F 


KBBC 


026 


28E0 


7F0F 


KBBC 


027 


28E2 


4EBD 


KBBC 


028 


28E4 


4690 


KBBC 


029 


28E6 


4F70 


KB8C 


030 


28E8 


7B1A 


KBBC 


031 


28EA 


791A 


KBBC 


032 


28EC 


7710 


KBBC 


033 


28EE 


E5F9 


KBBC 


034 


28F0 


3583 


KBBC 


035 


28F2 


3480 


KBBC 


036 


28F4 


2025 


KBBC 


037 


28F6 


400F 


KBBC 


038 


28F8 


7242 


KBBC 


03 9 NOCNTO 


28FA 


3490 


KBBC 


040 


28FC 


5A42 


KBBC 


041 


28FE 


58F2 


KBBC 


042 


2900 


53BC 


KBBC 


043 PRDALG 






KBBC 


044 * 


2902 


A900 


KBBC 


045 



KBBC DEC SECTOR R.HUTCHINSON 

*********************************************************** 

KBBC THIS ROUTINE DECREMENTS THE SECTOR COUNT G1BIT4 IS SECTOR 
DATA XFERS OCCUR DURING PREFETCH, END TRAP WILL FORCE 
ADDR 0140 ROUTINE KAAH 

*********************************************************** 
SET MODE K=80 

BUILO MOVE MASK 
BR IF MOVE 
BUILD LOAD MASK 



013 REAOAO 



PO=0$KBO 

BR IF Gl BIT5=*1 

PO^OSKFO 

Pi=0 

RDB 01 U+l 

RDB II U + l 

ROB Tl U 

Dl^DUPO 

Il^IlSPO 

Tl^TlSPO 

Hl^DlL 

OO^IIL 

H0=TIL 

RST S K=FE 

SET SO 

HQO=H0iPH-C 

D0C=D0aPUC 

H1C=H13PH-C 

T1=HGL+T1H 

I1=D0L+I1H 

Dl^HiL+DiH 

STB Tl U-i 

STB II U-l 

STB 01 U 
039 NOCNTO BR IF S2*l 

G1=G1*K08 

SET MODE K=88 

Pi=0$K20 

FF0=P1 

STH V DA, 98 

SET MODE K=89 

RDH T DA, 98 

RDM I DA, BE 

ROB FE80 T+l 
T REG ADDR. WILL 
043 PRDALO BR 

********************************** 

* CROSS REFERENCE FOR CSECT KBBC * 
********************************** 



READ SI BBB+7 

READ S2 BBB+8 

READ S3 BBB+9 

DESTROY ZONE 
DESTROY ZONE 
DESTROY ZONE 
Si TO WORK - 

52 TO WORK 

53 TO WORK 
RESET S REG 
SET COMP 
DEC S3 
DEC S2 
DEC SI 
RESTORE S3 
RESTORE S2 
RESTORE SI 
STORE S3 
STORE S2 
STORE SI 

BR IF NOT SECTOR 
SET Gl BIT4 SECTOR COUNT 
CPU ZONE FILE MODE 
RESET CC 
RESET CC 

OATA ADR TO STORAGE K4 

FILE MGDEfcZQNE 
DATA ADR TO T K4 

WORD COUNT TO I KF 

PRE FETCH BYTE OF DATA 

INCRE. *1 WHEN DATA CYCLE OCCURS 
UNTIL END TRAP OCCURS 



KBBC 009 KAAF 055 KBBB 071 

K8BC 013 KBBC Oil KBBD 062 

KBBC 039 KBBC 034 

KBBC 043 KBBC 045 



AD OR 


WORD 


SEQUENCE NO* LABEL 






KBBO 


001 T 






KB BO 


002 * 






KBBD 


003 * 






KBBO 


004 * 






KBBO 


005 * 






KBBO 


006 * 






KBBO 


007 * 


1800 


3400 


KBBO 


008 BINCM6 


1802 


5242 


KBBO 


009 


1804 


2CF5 


KBBD 


010 SECEND 


1806 


O10A 


KBBO 


Oil 


1808 


2CB5 


KBBO 


012 


180A 


5F30 


KBBD 


013 LOAD 


18QC 


6FC5 


KBBO 


014 


180E 


1FF3 


KBBO 


015 


1810 


7F38 


KBBO 


016 


1812 


5632 


KBBD 


017 CNFLAD 


1814 


5A78 


KBBO 


018 


1816 


5864 


KBBO 


019 


1818 


2788 


KBBO 


020 


131A 


6BB3 


KBBO 


021 


18 1C 


67B3 


KBBO 


022 


18 IE 


5A70 


KBBD 


023 


1820 


5F30 


KBBD 


024 


1822 


6FC5 


KBBO 


025 


1824 


56E2 


KBBO 


026 


1826 


10EE 


KBBO 


027 


1828 


76AF 


KBBO 


02 8 


182A 


46F0 


KBBO 


029 


182C 


7F38 


KBBO 


03 


182E 


5F30 


KBBO 


031 


1830 


6FC5 


KBBD 


032 


1832 


4AF5 


KBBO 


033 


1834 


7F38 


KBBD 


034 


1836 


5098 


KBBO 


035 


1838 


5F90 


KBBD 


036 


183A 


3F0D 


KBBD 


037 


183C 


5F79 


KBBO 


03 8 


183E 


2002 


KBBO 


039 


1840 


3F9B 


KBBD 


040 


1842 


E0C9 


KBBD 


041 


1844 


10EE 


KBBO 


042 


1846 


57F9 


KBBD 


043 


1848 


2A95 


KBBD 


044 HDWGRK 


184A 


40A0 


KBBD 


045 


184C 


70AF 


KBBD 


046 


184E 


F402 


KBBO 


047 


1850 


2B1B 


KBBO 


048 


1852 


5730 


KBBD 


049 HEA04 


1854 


67C5 


KBBD 


050 


1856 


4B70 


KBBD 


051 


1858 


77 38 


KBBD 


052 


185A 


5730 


KBBO 


053 



NEXTSEQ NEXTLABEL STATEMENT 



CLGAD=*E40, EC LEVEL~l282 1i 
COMMENTS 



PAGE 169 



KBBO BINARY TO CM-6 R.HUTCHINSON 

*********************************************************** 

KBBD THIS ROUTINE CONVERTS BINARY COUNT FIELDS TO CM-6 

DURING READ ADOR OPERATION AND AT THE COMPLETION OF SECTOR OPS 



**************************** 

SET MOOE K=*80 

RDH V 0A f 98 

PO=0$KFO 
013 LOAD BR IF Gl BIT 5*0 

PO=0$KBO 

RDB HI V 

Hi=Hl$PO 

Hl=Hl*-KOF 

STB HI V+l 

RDH D DA,8E 

ROH T 0*2 

I = D+l 

01=DH-K08 

TI=T1*T1 

D1=DHT1 

RDH T D 

ROB Hi V 

H1=H1$P0 

RDH DA,BC 

RST S K=FE 

D0O=D03T0+C 

H1=00L+H1H 

STB HI V + l 

ROB HI V 

H1=HI$P0 

H1=T0XL$H1H 

STB. HI V + i 

RDB PI 1*1 

RDB HI I 

H1=H1-K00 

D1=H1 

SET S3 

Hl^=Hi-K09 
044 HDWORK BR IF HZ=G 

RST S K=FE 

Hl=Dl 

T0=0$K90 

TQ=P1L+T0H 

pic*PiaTO*c 

049 HEAD4 BR IF AC=0 

T1=T1+K0l 
RDB Dl V 
Dl=Dl$PO 
D1=T1L+D1H 
STB Dl V*l 
RDB Dl V 



******************************* 
SET CPU MODE ZONE 
READ OATA ADR K4 

BLD LOAD MASK NO ZONE NO WM 
BR IF LOAD 

BUILD MOVE MASK NO ZONE 
READ 1ST 14XX STORAGE POS 
DESTROY ZONE 
ZERO DIGITS 
STORE 1ST POSITION 
READ COUNT FIELD ADR K3 

READ BIN CYL 
POINT TO HR 
POINT ADR TO TABLE 
MAKE CYL EVEN 
ADD CYL TO BASE 

READ TABLE TO T TOH=TENS L=HUND 
REAO CM6 HUNDS 
DESTROY* ZONE 

READ OCF MODULE VALUE KE 

RESET S REG ' 
ADD MODULE 
MERGE HUNO VALUE 
STORE HUNOS 
READ CM6 TENS 
DESTROY ZONE 
MERGE TENS VALUE 
STORE TENS 
READ BINARY HEAD 
REAO BINARY RECORD 
REMOVE I FROM RECORD 
BIN RECORD 

SET RECORD TEN INDICATOR 
REMOVE TEN 

BR IF TEN HI CORRECT 
RST RECORO TEN INDICATOR 
RESTORE RECORO 
BUILD DECIMAL DIGIT 
MERGE HEAD VALUE 
DOUBLE HEAD 
BR IF HEAD 40R LESS 
ADD ONE TO UNITS 
READ CM6 UNITS 
DESTROY ZONE 
MERGE UNITS 
STORE UNITS 
READ CM6 HEAD 



AD OR 



WORD SEQUENCE NO, LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLQAD=*E40, EC LEVEL=128211 
COMMENTS 



PAGE 110 



185C 


67C5 


KBBO 


054 


185E 


4070 


KBBD 


055 


1860 


7738 


KBBD 


056 


1862 


5730 


KBBO 


057 


1864 


67C5 


KBBO 


058 


1866 


4F7D 


KBBO 


059 


1868 


7738 


KBBO 


060 


18 6A 


E56E 


KBBD 


061 


186C 


A8C4 


KBBO 


062 



KBBO 008 
KBBD 010 
KBBD 013 
KBBO 044 
KBBO 049 



KBBB 048 
KAAN 203 
KBBO Oil 
KBBO 041 
KBBO 047 



KENO 033 
KBBC 013 



D1=D1$P0 

D1=P1L+D1H 

STB 01 V*i 

RD8 Di V 

D1=01$PO 

01=H1L+D1H 

STB 01 V*l 
SECENO BR IF Gl BIT2=0 

REAOAO BR 

********************************** 

* CROSS REFERENCE FOR CSECT KBBO * 
********************************** 



DESTROY ZONE 

MERGE HEAD 

STORE HEAO 

READ CM6 RECORD 

DESTROY ZONE 

MERGE RECORD 

STORE RECORD V POINTS TO ISTDATA 

BR IF SECTOR OP 

OP IS REAO ADR 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 






KBBE 


OOi 


T 






KBBE 


002 


* 






KBBE 


003 


* 






KBBE 


004 


♦ 






KBBE 


005 


♦ 






KBB6 


006 


* 






KBBE 


007 


♦ 


243E 


ODBB 


KBBE 


008 


SKCHK 


2440 


FOE 6 


KBBE 


009 




2442 


1E23 


KBBE 


010 




2444 


3900 


KBBE 


Oil 




2446 


58B9 


KBBE 


012 




2448 


3B45 


KBBE 


013 




244A 


2A07 


KBBE 


014 




24 4C 


57A0 


KBBE 


015 




24 4E 


3480 


KBBE 


016 




2450 


516F 


KBBE 


017 




2452 


3400 


KBBE 


018 




2454 


iOEE 


KBBE 


019 




2456 


E75C 


KBBE 


020 




2458 


F75D 


KBBE 


021 




245A 


3002 


KBBE 


022 




245C 


7690 


KBBE 


023 


INC DEC 


245E 


C5E4 


KBBE 


024 




2460 


F5E5 


KBBE 


02 5 




2 462 


16FF 


KBBE 


026 




2464 


5699 


KBBE 


027 


NEWCYL 


2466 


2713 


KBBE 


028 


RNTOHM 


2468 


EA6D 


KBBE 


029 




246A 


A800 


KBBE 


030 








KBBE 


031 


* 






KBBE 


032 


* 






KBBE 


033 


* 






KBBE 


034 


* 






KBBE 


035 


* 






KBBE 


036 


* 


246C 


3480 


KBBE 


037 


RTNOOO 


246E 


3523 


KBBE 


03 8 




2470 


2023 


KBBE 


039 




2472 


4EDF 


KBBE 


040 




2474 


2D15 


KBBE 


041 




2476 


4BDF 


KBBE 


042 




2478 


A478 


KBBE 


043 


0ELA¥1 



NEXTSEQ NEXTLABEL STATEMENT 



CLOAO=*E40 f EC LEVEL=l282 1l PAGt: 
COMMENTS 



1 M 



043 



KBBE 008 KAAA 195 

KBBE 023 KBBE 020 KBBE 021 

KBBE 027 KBBE 024 KBBE 025 

KBBE 028 KBBE 009 

KBBE 037 KBBE 029 

KBBE 043 KBBE 043 



KBBE SEEK OP R^HUTCHINSON 

******************** ******** ******************************* 

KBBE THIS ROUTINE WILL OECODE A SEEK OP ADDRESS INTO A BINARY 
VALUE 



**************************** 



028 RNTOHM 



023 INCOEC 
023 INCDEC 



027 NEWCYL 
027 NEWCYL 



037 RTNOOO 
KAAA 287 MOTSEK 



Z=i>lBKO& 
8R IF LZNZ 

H0=H0*-K02 

I1=I1-K00 

T1=I0 

Ti=Tl$K40 

T0=0 

ROB 01 AS,T 

SET MODE K=88 

00=FBI 

SET MODE K=80 

RST S K=FE 

BR IF 01 BIT2=*0 

BR IF 01 BIT3«l 

SET S K=90 

DOC*DQ%IH»C 

BR IF S0=0 

BR IF S3=i 

DO^DOaKFF 

11=00 

Dl=0$KOi 

BR IF HO BIT6=l 

BR 



**************************** 

THIS ROUTINE ISSUES A RECALIBRATE COMMAND. 
15 MILS RETURN WILL BE TO KBBG KECRTM 



******************************* 

CHECK FOR # DIRECT SEEK 

BR IF RETURN TO HOME SEEK 

CLR RECALIBRATE 

REMOVE 1 FROM BIN CYL 

BBB+4 CHAR FOR TLU 

FORCE WM POSITION 

SET AUX STORAGE 

READ BBB+4 IN DECIMAL 

SET CPU ZONE FILE MODE 

PRESENT CYLINDER VALUE TO DO 

SET CPU ZONE CPU MODE 

RESET S R€G 

8R IF POSITIVE 

BR IF POSITIVE 

SET S0£S3 OP IS REVERSE 

BINARY 

BR IF FORWARD 

BR IF WITHIN LIMITS 

MAKE CYL WITHIN LIMITS 

NEW CYL TO U 

BUILD HEAD1 

BR IF RECALIBRATE 

GO SEEK 
******************************* 



A TRAP WILL OCCUR IN 



*********************************************************** 
SET MODE K=88 CPU ZONE FILE MODE 

G1=GI$K02 SET Gl BI T6=RECALI BRATE 

Pl=0$K02 

FB0=P1 RETURN TO BUS 

P1=0$K10 
TGRO^Pl CONTROL TAG 

DELAY1 BR WAIT HERE UNTIL TRAP OCCURS 

********************************** 

* CROSS REFERENCE FOR CSECT KBBE * 
********************************** 



AODR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E40 f EC LEVEL=12#211 
COMMENTS 
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2854 
2 856 
2858 
285A 
28 5C 
285E 
2860 
2862 
2864 
2866 
2868 
284C 
284E 
28 50 
2852 
28 6 A 
28 6C 
286E 
28 70 
OBFO 
0BF2 
0BF4 
0BF6 
0BF8 
OBFA 
OBFC 
OBFE 



CEE1 
EEOD 
FADD 
A854 
A500 
8390 
8BF0 
E166 
A800 
C14C 
9ECC 
C56A 
1585 
9B62 
ADOC 
1443 
3585 
9B62 
AOOC 
2C45 
4ECF 
2C15 
4BCF 
2C07 
4 EOF 
4BCF 
128E 



KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KB8G 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 
KBBG 



T 

* 

* 
* 



KBBG 008 
KBBG 012 
KBBG 014 
KBBG 017 
KBBG 019 
KBBG 023 
KBBG 027 



KAAA 324 
KBBG 0-09 
KBBG 008 
KBBG 015 
KBBG 017 
KBBG 019 
KAAA 112 



001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
02 3 
024 
025 
026 
02 7 
028 
029 
030 
031 
032 
033 
034 



KAAH 026 
KBBG 010 



KBBG 014 



RECRTN 

NOTRDY 
SGA 



SECTCK 

ENOCHK 
ALTRTN 



CLRRCO 



ATTEN 



014 

012 

012 

008 

KAAN 029 

KAAQ 015 

027 

017 

KAAA 287 

019 

171 

023 



KAAN 



KAAA 325 
KAAF 012 



KAAA 325 
KAAF 012 



KBBG Oil 



KBBG DEVICE END R.HUTCHINSON 

*********************************************************** 

THIS ROUTINE WILL WAIT FOR DEVICE ENDS AS A RESULT OF SEEKS TO 
DEF/ALT TRACKS AND RECALIBRATE OPERATION 

*********************************************************** 



SGA 

NOTRDY 

NOTRDY 

RECRTN 

ERROR 

NOTRDY 

ATTEN 

SECTCK 

MOTSEK 

ALTRTN 

ENDGK 

CLRRCD 



BR IF 
BR IF 
BR IF 

BR 
BAL 
BR 
BAL 



OS 
OS 

DS 



BIT 0=1 
BIT 2=1 
BIT 7=1 



BR 

BR 
BR 
BR 
BR 



IF Gl BIT6=0 



IF Gl BIT4=0 



BR IF READY 
BR IF UNSAFE 
BR IF SEEK INCOMPLETE 
WAIT FOR READY 
GO STORE REGS 
GO SET NOT READY 
GO RESET ATTEN 
BR IF NOT RECALIBRATE 
GO SEEK 
BR IF NOT SECTOR 



HDSLCT 
RUSAVS 



HDSLCT 
RUSAVS 



IF Gl BITO=0 
G1=G1*-K80 
BAL 
BR 

G0=G0*-K04 
G1=G1$K80 
BAL 
BR 

P0=O$K4O 
F8Q=P0 
P0=0$K10 
TGRO=P0 
P0=0 
FBG=PO 
TGRQ=PO 
RTN 
********************************** 

* CROSS REFERENCE FOR CSECT KBBG * 
********************************** 



BR IF NOT ALT TRK RETURN 



CLR ALT TRACK RETURN 

CONTINUE OP NEXT HEAD 

CLR RECORD 

SET ALT TRACK RETURN 

CONTINUE OP NEXT HEAD 

* RESET 
SET READ GATE 

* ATTENTION 
SET CTRL * 

* 
RST READ GATE * 
RST CTRL * 



CL0AD=*E40 f EC LEVEL=1282 1i PAGE 173 



A DOR 


WORD 


SEQUENC 


;e NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 






KBBH 


001 


T 






KBBH INC 


DCF 


R.HUTCHINSON 






KBBH 


002 


* 






*********************************************************** 






KBBH 


003 


♦ 
















KBBH 


004 


* 






KBBH THIS 


ROUTINE WILL INCREMENT THE BINARY OCF. IF THE HEAD 






KBBH 


005 


* 






VALUE IS 


CHANGED, THE OP REG 


WILL BE SET FOR HEAD SWITCH 






KBBH 


006 


* 
















KBBH 


007 


* 






******************************* **************************** 


2AC6 


5E32 


KBBH 


008 


INCOCF 








ROH H DA,8£ 


READ COUNT FIELD ADR K3 


2AC8 


2F4B 


KBBH 


009 










H1=H1+K04 


SET HI TO RECORD POSITION 


2ACA 


57F0 


KBBH 


010 










ROB 01 H 


READ RECORD 


2ACC 


F768 


KBBH 


Oil 






025 


INCREM 


BR IF 01 BIT3=0 


BR IF RECORD LESS THAN 16 


2ACE 


0368 


KBBH 


012 






025 


INCREM 


BR IF 01 BIT 5=0 


BR IF RECORD LESS THAN 4 


2A0O 


2713 


KBBH 


013 










01=0$K01 


RECORD IS 20 MAKE 1 


2AD2 


26B5 


KBBH 


014 










00=0$KBO 




2 A 04 


3613 


KBBH 


015 










DO=DO$KOi 




2AD6 


4F6F 


KBBH 


016 










FOP=DO 


SET OP=MULTI-TRK SEARCH 


2A08 


77FA 


KBBH 


017 










STB 01 H-l 


STORE RECORD 


2ADA 


57F0 


KBBH 


018 










ROB 01 H 


READ BINARY HEAO 


2 A DC 


G79B 


KBBH 


019 










2=DlnK09 


CHK FOR HEAD 9 


2ADE 


C4E8 


KBBH 


020 






025 


INCREM 


BR IF ZNZ 


BR IF NOT HEAO 9 


2AE0 


2707 


KBBH 


021 










01 = 


HEAD 9 MAKE 


2AE2 


77F0 


KBBH 


022 










STB 01 H 


STORE HEAD 


2AE4 


6EE6 


KBBH 


02 3 










H=H-2 


POINT H TO CC 


2AE6 


57F0 


KBBH 


024 










ROB 01 H 


READ CYL 


2AE8 


271B 


KBBH 


02 5 


INCREM 








D1=OH-K01 


INCREMENT CYL OR RECORD OR HEAD 


2AEA 


77F0 


KBBH 


026 










STB 01 H 


STORE RECORD OR HEAO OR CYL 


2AEC 


3545 


KBBH 


02 7 


OCFDON 








Gi=Gl$K40 


SET OCF DONE 


2AEE 


ADGO 


KBBH 


028 




KAAF 


036 


SCHDES 


BR 


BR TO SEARCH DECISION 
















********************************** 
















* CROSS REFERENCE FOR CSECT KBBH * 
















********************************** 


KB8H 


008 KAAF 035 
















KBBH 


025 KBBH Oil 


KBBH 


012 KBBH 


020 











KEND DESCRIPTIVE TEXT 



CLQAD=*E40, EC LEVEL*12821i PAGE 174 



ENTRY POINTS 
ST0P60 



STOPIO 



THIS ENTRY IS FROM THE START FILE ROUTINE WHEN A 
MODULE MISMATCH IS DETECTED. 



ENTRY HERE IS FROM THE START FILE ROUTINE FOR A 
READ SACK CHECK INTERLOCK STOP. 



SEKEND 



ADR END 



SEC END 



NORMAL ENTRY FROM START FILE ROUTINE FOR PERFORM- 
ING ENDING OF A SEEK OPERATION. 



NORMAL ENTRY USED FOR ENDING READ/ WRITE WITH 
ADDRESS OPERATIONS. 



NORMAL ENTRY USED FOR ENDING SECTOR OPERATIONS, 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






KEND 


001 


T 




KEND RESTORE STARS 


1CEA 


2665 


KEND 


002 


STOP60 






D0=0$K60 


ICEC 


5412 


KEND 


003 








RDH G DA f 8A 


1CEE 


6446 


KEND 


004 








G=G-2 


1CFO 


6446 


KEND 


005 








G=G-2 


1CF2 


6446 


KEND 


006 








G*G-2 


1CF4 


6446 


KENO 


007 








G=G-2 


1CF6 


7412 


KEND 


008 








STH G DA,8A 


1CF8 


9F72 


KEND 


009 




013 


ZERQDl. 


BR 


1F6C 


1E00 


KEND 


010 


STOPIO 






RST FIB K=80 


1F6E 


340G 


KEND 


Oil 








SET MODE K=80 


IF70 


2615 


KEND 


012 








00=0$ K 10 


IF72 


76F2 


KEND 


013 


ZERQDl 






STH D DA, BE 


1F74 


5622 


KEND 


014 








RDH D DA,8C 


1F76 


5812 


KEND 


015 








RDH I 0A,8A 


1F78 


A044 


KEND 


016 




ID IS 003 


STOPPP 


BR 


02CO 


4026 


KEND 


017 


SEKEND 






U=V 


02C2 


5224 


KEND 


018 


UPDATE 






V*=V*1 


02C4 


IEOO 


KEND 


019 


STARQK 






RST FIB K=80 


Q2C6 


2CC7 


KEND 


020 








PO^O 


02C8 


4FCF 


KEND 


021 








FOP=PO 


02CA 


4DCF 


KEND 


022 








FFO^PO 


02CC 


3400 


KEND 


023 








SET MODE K=80 


02CE 


5622 


KEND 


024 








RDH DA,8C 


O2D0 


1625 


KEND 


02 5 








D0=D0*-K20 


0202 


5812 


KEND 


026 








RDH ! DA,8A 


02D4 


02 IE 


KEND 


027 








RST MMSK K=71 


0206 


2CC7 


KEND 


028 








P0=0 


02 08 


8D7C 


KEND 


029 




ICYC 037 


HISTRT 


BR 


05EE 


3480 


KENO 


03 


ADRENO 






SET MODE K*88 


05F0 


6004 


KEND 


031 








U=U+2 


05F2 


9872 


KEND 


032 




035 


RDOAAD 


BR 


186E 


3480 


KEND 


033 


SECEND 






SET MODE K=88 



COMMENTS 

R. HUTCHINSON 
MODULE MISMATCH SET STOP CODE 
GET I SACK UP 
BACK I CYCLES UP 8 COUNTS 



POINT TO FILE OP FOR RETRY 

CHAIN END RESET , DESELECT MOO 

SET CPU MGDEfcZQNE 

RBC STOP SET STOP CODE 

STORE STOP CODE 

RESTORE D REG K2 

GET I STAR FROM BACKUP Kl 

BR TO STOP ROUTINE 

MAKE A STAR U =BBB+6 

MAKE B STAR V =BBB+7 

TURN ON CHAIN END 

RST OP 

RST FLAGS 

RESTORE D REG K2 

CLEAR INVALID A STAR 
GET I STAR FROM BACKUP Kl 
RESET MMSK 7 

BR TO I CYCLES 

MAKE A STAR U =BBB*9 



ADDR 


WORD 


SEQUENCE NO* 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


1870 


5006 


KEND 


034 








U=U-i 




1872 


5242 


KENO 


035 


ROOAAO 






ROH V 


DA, 98 


1874 


9EE2 


KENO 


036 




037 


BSTAR 


BR 




1EF2 


5652 


KENO 


037 


BSTAR 






ROH 


DA, 9A 


1EE4 


D66D 


KENO 


038 




042 


AOO 


BR IF 


00 BITi=i 


1EE6 


F46F 


KENO 


039 




043 


ASIS 


BR IF 


GO BIT 3=1 


1EE8 


C16E 


KENO 


040 




043 


ASIS 


BR IF 


Gi BIT%=0 


1EEA 


E66F 


KENO 


041 




043 


ASIS 


BR IF 


00 BIT2=1 


IE EC 


82C2 


KENO 


042 


AOO 


018 


UPDATE 


BR 




IEEE 


82C4 


KENO 


043 


ASIS 


019 


STARQK 


BR 





CLGAD=*E40, EC LEVEL=1282 1l 
COMMENTS 



PAGE 175 



MAKE A STAR U =BBB+6 
READ DATA ADDRESS 

GET MARKS 

CK END WITH GMWM 

NO GM , IS IT SCAN 

NOT SCAN IS IT SECT C 

WAS SECT FORCED 

ADO 1 TO B STAR 

B STAR OK 



K4 



********************************** 

* CROSS REFERENCE FOR CSECT KEND * 
********************************** 



KEND 


002 


KAAA 


060 


KAAA 


086 


KENO 


010 


KAAA 


136 






KENO 


013 


KEND 


0C9 






KEND 


017 


KAAA 


323 






KENO 


018 


KENO 


042 






KEND 


019 


KEND 


043 






KENO 


030 


KAAN 


195 






KENO 


033 


KAAN 


176 


KBBD 


061 


KENO 


035 


KENO 


032 






KEND 


037 


KENO 


036 






KEND 


042 


KENO 


038 






KENO 


043 


KENO 


039 


KENO 


040 KEND 041 



ADOR 



WORD SEQUENCE NO* 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AQ=*E40 f EC LEVEL=12821l 
COMMENTS 
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LERR OOi 



BRANCH ON PUNCH ERROR ROUTINE 



RUCKER 



0160 
0162 

0164 
0166 
0168 
016A 
016C 
016E 



3462 
C461 
FFEC 
1FO0 
3400 
9E72 
3400 
8D7C 



LERR 
LERR 
LERR 
LERR 
LERR 
LERR 
LERR 
LERR 



002 
003 
004 
005 
006 
007 
008 
009 



LERR 002 
LERR 008 



ERRTST 



NOERR 

NOERRR 



I8CH 088 LERR 003 
LERR 004 



002 

008 



IUBR 002 UNCDBR 



I CYC 037 HISTRT 



SET MODE K*96 
ERRTST BR IF GO BITO^l 
NOERR BR IF PS BIT 3=0 

RST P K=80 

SET MODE K=80 

BR 

SET MODE K*80 CPU MODE 

BR TO i-CYCLE 

********************************** 

* CROSS REFERENCE FOR CSECT LERR * 

********************************** 



2540 ZONE, PUNCH MODE 

IF BUSY-WAIT FOR NOT BUSY 

BR IF NO ERROR 

RESET PUNCH ERROR 

CPU MOOE 



START 
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LOPD DESCRIPTIVE TEXT 



READ AND PUNCH OP DECODE ROUTINE 



ENTRY POINTS 



LOAD 



THIS IS THE ENTRY POINT FROM THE I PL START-RESET 
ROUTINE. IT IS USEO WHEN AN IPL IS DONE FROM THE 
2540. 



NOTI25 



THIS IS A NORMAL RE-ENTRY POINT FROM THE PUNCH AND 
READ ENDING ROUTINES. RESTORE REGISTERS, TEST FOR 
COMBINATION OPS AND UNCONDITIONAL BRANCH. 



RDRPCH 



NORMAL ENTRY POINT. ALL 2540 READER PUNCH OPS AND 
READER PUNCH PORTION OF COMBINATION OPS ENTER AT 
THIS POINT FROM ICYC. THE OPERATION IS DECODED 
AND BRANCHES TO THE APPROPRIATE ROUTINE FOR 
EXECUTION. 



RETURN 



THIS ENTRY POINT IS USED FROM THE ROUTINE FOR 
TRANSFER 01= ROW IMAGE TO COLUMN BINARY AND FOR A 
RETURN FROM INTERVENTION REQUIRED HALT. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



COMMENTS 







LOPD 


001 T 






LOPD 


007 * 






LOPD 


008 * 






LOPD 


009 * 






LOPD 


010 * 


257A 


2513 


LOPD 


Oil LOAD 


257C 


1611 


LOPD 


012 RDRPCH 


257E 


C677 


LOPD 


013 


2580 


C4A1 


LOPD 


014 


2582 


2BC5 


LOPO 


015 


2584 


2B3B 


LOPD 


016 


2586 


6B71 


LOPD 


017 


2588 


C494 


LOPD 


018 


258A 


5EC2 


LOPD 


019 


258C 


CA14 


LOPD 


020 


258E 


055B 


LOPD 


021 


2590 


F095 


LOPD 


022 


2592 


3613 


LOPD 


023 


2594 


2BD5 


LOPD 


024 TSTPFR 


2596 


2BSB 


LOPD 


025 


2598 


6B71 


LOPD 


026 


259A 


C4A0 


LOPD 


027 


259C 


F139 


LOPD 


028 


2 59E 


3585 


LOPD 


029 


25A0 


8258 


LOPD 


030 N0TI25 


25A2 


F13B 


LOPD 


031 


25A4 


D137 


LOPD 


032 



1400 READ AND PUNCH OP DECODE. RUCKER 

THE READ AND PUNCH OP ARE DECODED TO ENTER THE APPROPRIATE 
SUB-ROUTINE. I 2-5 IS INTERROGATED FOR COL BIN OR PFR MODIFIERS 



AND 
IF 



030 NOT 125 



024 TSTPFR 



024 TSTPFR 



024 TSTPFR 



I REG 



030 
053 

006 
042 
041 



STATUS BITS SET FOR 
READ OP, NECESSARY 

Gi=0$K01 

D0=D0*-K01 

Z=D0*-K77 

BR IF Z=0 

T1=0$KC0 

T1=TH-K03 

Tl^TlaDl 

BR IF ZNZ 

RDH H DA, B8 

BR IF HO BIT4=0 

Z=GloK05 

BR IF LZ=0 

D0=D0$K01 

T1=0$KD0 

T1=T1+K09 

Tl=TlnDi 

BR IF ZNZ 

BR IF Gl BIT 7=1 

Gi=Gl$K80 

BAL 

BR IF Gl BIT 7=1 

BR IF Gl BIT 5=1 



NQTI25 
INVDOP 

STREGS 

10P 

40P 



FUTURE BRANCHING. Gl BITO-PFR OP 

REGISTERS ARE INITIALIZED. DO BIT7-C0L BIN 

INITIAL PROGRAM LOAD 

SET DO BIT7=0 

MASK FOR 12-3-5-6 

BR IF NOT 1-2-3-5-6 

125 

SET T TO MASK FOR A C IN Dl 

TEST FOR C 

BR IF NOT C-NO COL BIN 



BR IF COL BIN NOT INSTALLED 
MASK FOR COMBINED OP 

SKIP COL BIN OP IF COMBINED 
SET COL BIN INDICATOR 
SET T 

FOR R MASK 
TEST FOR R 
BR IF NOT R 

BR TO INVALID OP IF 5-7R OP 
SET PFR INDICATOR 
STORE U,V,1 ,G, D 
BR IF READ OP 
BR IF PUNCH OP 



OP 



ADDR 

25A6 
25A8 
25AA 
25AC 
25AE 
25B0 
25B2 
25B4 
2566 
25BA 
25BC 
25BE 
25C0 
25C2 
25C4 
25C6 
25C8 
25CA 
25CC 
25CE 
25B8 



LOPD 
LOPD 
LOPD 
LOPO 
LOPO 
LOPD 
LOPO 
LOPD 
LOPD 
LOPD 
LOPD 



WORD SEQUENCE NO. LABEL 



C137 
98EA 
1615 
2C07 
D235 
C635 
8D7C 
9E72 
8B80 
5202 
2155 
2925 
5EC2 
FA4C 
23EB 
2935 
29CB 
2137 
2845 
8994 
91D8 



LOPD 033 
LOPD 034 
LOPD 035 
LOPD 036 
LOPD 037 
LOPD 038 
LOPD 039 
LOPD 040 
LOPD 041 
LOPD 042 
LOPD 043 
LOPD 044 
LOPD 045 
LOPD 046 
LOPD 047 
LOPD 048 
LOPD 049 
LOPD 050 
LOPD 051 
LOPD 052 
LOPD 053 



TESTBR 



TESTI5 

BRANCH 

40P 

10P 



SETHGH 
INVDOP 



NEXTSEQ NEXTLABEL STATEMENT 

041 40P BR IF Gl BIT4=1 

IRE& 016 RSTREG BAL 

D0=D0*-K10 

P0=0 

BR IF DO 8IT5=1 



CLGAD=*E40t EC LEVEL*1282 11 

COMMENTS 

BR IF PFR OP 
RESTORE U,VfI f GfD 
SET B STAR VALID IND 
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040 

040 

ICYC 037 

IUBR 002 

LPSU 004 



BRANCH 
BRANCH 
HISTRT 
UNCDBR 
PCHSTT 



Oil 
012 
024 
030 
035 
038 
040 
041 
042 
051 
053 



IPLS 057 
ICYC 287 
LOPO 018 
LOPD 014 
MPRT 168 
LSSO 017 
LOPO 037 
LOPD 032 
LOPO 031 
LOPO 046 
LOPO 028 



ICYC 
LOPD 
LOPD 



LOPD 
LOPD 



290 ICYC 291 

020 LOPD 022 
027 LPCH 018 



038 

013 



BR IF DO BIT0=1 

BR 
BR 

go 

ROH V DA f 88 

Ul*0$K50 

Ii*0$K20 

RDH H DA,B8 
051 SETHGH BR IF HO BIT7«0 

V1*V1«-K0E 

I1=0$K30 

Il=tl*K0C 

Ui*0$K33 

I0*0$K40 
ENTRY BR 

BSTAR BR 

********************************** 

* CROSS REFERENCE FOR CSECT LOPD * 
********************************** 



LRDR 019 LXFR 102 



BR IF 14 OP 

BR IF 15 OP 

RETURN TO I-CYCLE 

GO TO UNCONDITIONAL BRANCH 



LRXF 003 
IOCM 009 



READ BUS INTO V 

SET COUNT TO 80 

SET LOW COL FORM ADDR 

READ CONTROL BYTE 

BR IF NOT 51 COL CARD 

51 COL CARD-ADD 14 TO ADDRESS 

SET LOW COL FORM ADDR 

TO NORMAL «-28 
SET COUNT TO 51 
SET HIGH COL FORM ADDR -40XX 

SET INVALID I/O OP 
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LPC8 DESCRIPTIVE TEXT 



ENTRY POINT 

START 

EXCLUSIVE ENTRY POINT, USED ONLY FROM LPSU DURING 
COLUMN BINARY OPERATION. 1400 ADDRESS 100 
HAS BEEN SET. 

OBJECTIVES 

U SET ADDRESS 401. SET CONTROL COUNTERS, INITIALIZE 



2. 



3. 



4. 



ACCUMULATING REGISTERS. READ PUNCH MASK. 

READ CHARACTER FROM PROGRAM STORAGE 401-430. 
BCD EQUIVALENT. 



LOOK UP 



TRANSLATE BCD CHARACTER FOR UPPER HALF TO ROW IMAGE AND 
STORE IN PUNCH ROW IMAGE BUFFER (COMPLEMENT FORM). 

REPEAT TRANSLATION FROM 501-580 FOR LOWER HALF OF CARD 
AND STORE IN PUNCH ROW IMAGE BUFFER. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL STATEMENT 


COMMENTS 






LPCB 


001 


T 


TRANSFER OF EBCDIC DATA TO COL BIN 


RUCKER 






LPCB 


002 


* 


FORM 


ON 1400 


PUNCH COL BIN COMMAND 




1AF4 


2807 


LPCB 


003 


COLBIN 






10=0 


INITIALIZE COUNT TO 


1AF6 


27F7 


LPCB 


004 


IN! TAL 






D1=0$KFF 


RESET ALL 


1AF8 


5799 


LPCB 


005 








11 = 01 


REGISTERS 


UFA 


57E9 


LPCB 


006 








H0=D1 


TO FF 


1AFC 


57F9 


LPCB 


007 








Hl=01 




1AFE 


40E6 


LPCB 


008 








U=H 




1B00 


2A65 


LPCB 


OiO 


NEMNSK 






T0=0$K60 


SET T FOR TABLE 


IB02 


588D 


LPCB 


014 








Tl=IOL 


LOOK-UP OF MASK 


1B04 


3B85 


LPCB 


015 








Ti=Tl$K80 




1B06 


54A0 


LPCB 


016 








RDH G AS,T 


READ MASK INTO GO 


1B08 


5B38 


LPCB 


017 








RDB Tl V + l 


READ ODD CHAR FROM STORAGE 


1B0A 


3B45 


LPCB 


018 








Tl=Tl$K40 


LOCATIONS 401,402. ..480. USE 


1B0C 


2AC7 


LPCB 


019 








T0=0 


EBCDIC CHAR TO LOOK UP BCD 


1B0E 


55A0 


LPCB 


020 








RDB Gl AS,T 


EQUIVALENT. 


1B10 


E514 


LPCB 


021 




023 


N 


BR IF Gl BIT2=0 


BUILD ROW IMAGE CHARACTERS 


1B12 


6741 


LPCB 


022 








Dl=DlaG0 




IB 14 


F518 


LPCB 


023 


N 


025 


NE 


BR IF Gl BIT 3=0 




1B16 


6941 


LPCB 


024 








Il=UnG0 




1818 


cue 


LPCB 


025 


NE 


027 


NEX 


BR IF Gl BIT4=0 




1B1A 


6E41 


LPCB 


026 








H0=H0nG0 




1B1C 


D120 


LPCB 


02 7 


NEX 


029 


NEXT 


BR IF Gl BIT 5*0 




IB IE 


6F4i 


LPCB 


02 8 








Hl=HlaGO 




1B20 


E124 


LPCB 


029 


NEXT 


031 


NEXT B 


BR IF Gl BIT6=0 




1B22 


6041 


LPCB 


030 








U0=U0aG0 




IB 24 


F128 


LPCB 


031 


NEXTB 


033 


NEXTBT 


BR IF Gl BIT 7=0 




1B26 


6141 


LPCB 


032 








Ul=UlaG0 




1B28 


2828 


LPCB 


033 


NEXTBT 






I0=I0+K02 


UPDATE COUNT 


1B2A 


F080 


LPCB 


034 




010 


NEWMSK 


BR IF LZNZ 


BR IF NOT 8TH CHAR ASSEMBLED 


1B2C 


77C0 


LPCB 


035 








STB Di AStP 


STORE DATA 


1B2E 


2DAB 


LPCB 


036 








P1=P1+K0A 


INTO PUNCH 


1B30 


79C0 


LPCB 


037 








STB 11 AS*P 


IMAGE BUFFER 



ADDR 

IB32 
1B34 
1B36 
IB 38 
1B3A 
1B3C 
1B3E 
1B4Q 
1B42 
IB 44 
1B46 
1B48 
1B4A 
1B4C 
1B50 
IB 52 
1B54 
IB 56 
IB58 
1B5A 
IB5C 
1B5E 
i860 
1B4E 



LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 



WORD SEQUENCE NO. LABEL 



2DAB 
5E79 

77CO 
20AB 
7FCQ 
2DAB 
5079 
77C0 
2DAB 
71C0 
08AD 
C4D1 
3D30 
9AF6 
004F 
20 IB 
83B0 
2B15 
2B3B 
2AC7 
63B9 
62A0 
9AF4 
A74E 



LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 
LPCB 



038 
039 
040 
041 
042 
043 
044 
045 
046 
04 7 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 



003 
004 
010 
023 
025 
027 
029 
031 
033 
052 
058 
061 



LPCB 060 
LPCB 051 
LPCB 034 
LPCB 021 
LPCB 023 
LPCB 025 
LPCB 027 
LPCB 029 
LPCB 031 
LPCB 049 
LPSU 060 
LPCB 052 



HALFOK 

START 

DONE 



NEXTSEQ NEXTLABEL STATEMENT 

P1=P1+K0A 

Oi*HO 

STB 01 AStP 

P1=PH-K0A 

STB HI AStP 

Pl=PH*0A 

D1«U0 

STB 01 AStP 

P1=P1+K0A 

STB Ui AS,P 

I=I0aKA0 
052 HALFOK BR IF Z-0 

PI-P1-K30. 
INITAL BR 

DONE BR IF Pi BIT 1*1 

P1»P1*K01 

BAL 

T1«0$K10 

ri*TH-K03 

T0=0 

VlC»Vi+Tl*l 

V0C*V0+T0*C 
CQLBIN BR 

ENDING BR 

********************************** 

* CROSS REFERENCE FOR CSECT LPCB * 
********************************** 



CL0AD**E40, EC LEVEL*12821i 

COMMENTS 
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004 
061 



I REG 002 STOREV 



003 
LPCH 002 



TEST 1 FOR HALF COMPLETED 

BR IF 1ST OR 2ND HALF COMPLETED 

HALF NOT COMPt DEC P BY DEC 49 

GO BACK 

BR IF 2ND HALF COMPLETE 

STORE V IN A OR B STAR 

SET UP T TO INCREMENT V BY 20 

4 81 TO 501 
UPDATE V BY 401 ON INITIAL 
ENTRY, BY 20 AFTER 1ST HALF 

COL BIN PUNCH XFER COMPLETE 
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LPCH DESCRIPTIVE TEXT 



ENTRY POINT 



ENDING 



EXCLUSIVE ENTRY POINT. THIS IS THE ENDING ROUTINE 
FOR REGULAR PUNCH OPS AND FOR THE PUNCH PORTION OF 
PFR OPS. 



OBJECTIVES 

1. RESET ERRORS, SET STACKERS AND FEED. CHANGE OP CODE* 

2. TEST OVERLAP STATUS. WAIT IF BUSY. TEST FOR ERRORS. 
SET STOP CODE IF REQUIRED. 



ADDR 



WORD SEQUENCE NO. LABEL 







LPCH 


001 


T 


274E 


3462 


LPCH 


002 


ENDING 


2750 


1F80 


LPCH 


003 




2752 


3485 


LPCH 


004 




2754 


C158 


LPCH 


005 




2756 


2F02 


LPCH 


006 




2758 


D15C 


LPCH 


007 


N0RP3 


275A 


2F04 


LPCH 


008 




275C 


2FG8 


LPCH 


009 


N0P2 


275E 


2507 


LPCH 


010 




2760 


3400 


LPCH 


Oil 




2762 


98EA 


LPCH 


012 




2764 


5555 


LPCH 


013 




2766 


152F 


LPCH 


014 




2768 


5EC2 


LPCH 


015 




27 6 A 


DA71 


LPCH 


016 




276C 


3400 


LPCH 


017 


CONTUE 


27 6E 


A5A0 


LPCH 


018 




2770 


3462 


LPCH 


019 


NOBUFR 


2772 


C471 


LPCH 


020 




2774 


FFEC 


LPCH 


021 




2776 


3400 


LPCH 


022 




2778 


3AA9 


LPCH 


023 




277A 


7AF2 


LPCH 


024 




277C 


A044 


LPCH 


025 





NEXTSEQ NEXTLABEL STATEMENT 

PUNCH ENDING ROUTINE 

SET MODE K^96 
RST P K=88 
G0=G0$K80 
007 N0RP3 BR IF Gl BIT4=0 

SET P K=10 
009 N0P2 BR IF Gl 8IT5*=0 

SET P K=20 
K=40 



019 
017 



LPCH 002 
LPCH 007 
LPCH 009 
LPCH 017 
LPCH 019 



LPCB 061 
LPCH 005 
LPCH 0C7 
LPCH 021 
LPCH 016 



LPXF 062 



LPCH 020 



= 80 



IREG 016 RSTREG 



019 NOBUFR 



LOPD 030 NOT 125 



ID1S 003 STOPPP 



SET P 

G1=0 

SET MODE K 
BAL 

G1=G1XL 
Gl=GlaK22 
RDH H DA f B8 
BR IF HO BIT 5=1 
SET MODE K=80 
BR 

SET MODE K=9 6 
BR IF GO BITO^l 
BR IF PS BIT3=0 
SET MODE K=80 
T0=Q-KA0 
STH T DA, BE 
BR 
******************************* 

* CROSS REFERENCE FOR CSECT LPC 
******************************* 



NOBUFR 
CONTUE 



COMMENTS 

RUCKER 
2540 ZONE, PUNCH MODE 
RESET PREVIOUS ERRORS 
SET ACTIVE BIT 
BR IF NO RP3 STACKER SEL 
SET RP3 STACKER 
BR IF NO P2 STACKER SEL 
SET P2 STACKER 
SET FEED 

CLEAR STACKER SELECT BYTE 
CPU MODE AND ZONE 
RESTORE V»U,I,G,D 
RESET G5 

SET G4 IF GOIPFR) IS ON 
READ CONTROL BYTE 

BR IF PUNCH IS NOT TO BE OVERLAP 
SET CPU MODE £ ZONE 

2540 ZONE, PUNCH MODE 
WAIT FOR BUSY TO DROP 
NOT BUSY- TEST FOR ERROR 
ERROR 

SET STOP 
STORE STOP CODE 

GO TO GEN STOP 
*** 

H * 
*** 
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LPSU DESCRIPTIVE T EXT 



ENTRY POINT 
PCHSTTO' 

OBJECTIVES 
PUNCH 

1 



THIS POINT IS ENTERED ONLY FROM LOPD 



3* 



LOOP IF BUSY, BRANCH TO INTERVENTION REQUIRED ENDING 
ROUTINE IF NOT READY OR OFF LINE. HANDLE ERROR 
ACCORDING TO I/O CHECK STOP SWITCH SETTING. 

SET UP REGISTERS FOR ADDRESS OF PUNCH I WAGE AND PUNCH 
CHECK BUFFERS AND HOVE DATA, PUNCH IMAGE TO PUNCH 
CHECK. 

SET UP REGISTERS FOR ADDRESSING PROGRAM STORAGE AREA. 
100-180. STORE PUNCH COMPLETE INDICATOR AND BRANCH 
TO LPXF FOR PUNCH TRANSFER. 



PFR CWRITE) 

1. SAME AS PUNCH OBJECTIVES ITEM #1. 

2. SET PFR WRITE CONDITIONS. (ZONE, MODE, NEG LOGIC, 
ETC). SET PUNCH IMAGE AND PUNCH CHECK BUFFER ADD- 
RESSES. TRANSFER DATA. 

3. SAME AS PUNCH OBJECTIVES ITEM #3. 
PFR IREAD) 

1. SAME AS PUNCH OBJECTIVES ITEM #1. 

2. SET PFR READ CONDITIONS {ZONE £ MODE). INITIALIZE 
REGISTERS FOR ADDRESSING PFR COLUMN FORM BUFFER AND 
PFR IMAGE BUFFER. BRANCH TO LXFR TO MOVE DATA FROM 
PFR IMAGE TO PFR COLUMN FORM BUFFER. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 






LPSU 


001 


T 


PUNCH 


OR PFR OP 


SET-UP 


RUCKi 






LPSU 


002 


* 


SET-UP 


NECESSARY 


REGS, TEST FOR BUSY 


AND PREVIOUS ERROR, ETC 






LPSU 


003 


ASEQ 


AL07=00 










0880 


3462 


LPSU 


004 


PCHSTT 









SET MODE K=96 


2540 ZONE, PUNCH8M0DE 


0B82 


C401 


LPSU 


005 




004 


PCHSTT 





BR IF GO BITO=l 


BR BACK IF BUSY-DO NOT CONTINUE 


0B84 


3402 


LPSU 


006 










SET MODE K=90 


PUNCH MODE, CPU ZONE (NOT BUSY* 


0B86 


2D80 


LPSU 


007 










SET RP K=08 


SET COMMAND INTERLOCK 


0888 


CFC8 


LPSU 


008 




041 


NOTRDY 




8R IF PS 8IT0=0 


BR IF PUNCH NOT READY 


0B8A 


CEC8 


LPSU 


009 




041 


NOTRDY 




BR IF RPSO=0 


BR IF PUNCH OFF LINE 


OBBC 


FFC5 


LPSU 


010 




039 


ERROR 




BR IF PS BIT 3=1 


BR IF PUNCH CHECK 


0B8E 


C14F 


LPSU 


Oil 


NOSTOP 


044 


PFREAD 




BR IF Gl BIT4*1 


BR IF PFR READ OP 


OB 90 


C563 


LPSU 


012 




054 


PFRWRI 




BR IF Gl BITO=i 


BR IF PFR WRITE OP 


0892 


3462 


LPSU 


013 










SET MODE K=96 


2540 ZONE, PUNCH MODE 


0B94 


F419 


LPSU 


014 




016 


GOON 




BR IF GO BIT3*l 


BR IF LAST COM WAS A PFR READ 


QB96 


3443 


LPSU 


015 










G0=G0$K04 


SET NORMAL WRITE INDINGN-PFRT 


0B98 


2400 


LPSU 


016 


GOON 








SET MODE K*00 


RESTORE CPU MODE £ ZONE 






LPSU 


017 


* 


1400 MODE 


INDICATOR IS NOW OFF 




0B9A 


2815 


LPSU 


018 










iO*OSK10 


SET I TO HIGH END ADDRESS 


0B9C 


2977 


LPSU 


019 










U = 0$K77 


OF PUNCH IMAGE BUFFER 


0B9E 


2C35 


LPSU 


020 










P0=0$K30 


SETUP TO HIGH END 


OBAO 


59D9 


LPSU 


021 










PUI1 


ADDRESS OF PUNCH CHECK BUFFER 


0BA2 


2AF7 


LPSU 


022 










TO=0$KFF 


SET T 


08A4 


5AB9 


LPSU 


02 3 










T1=T0 


TO FFFF 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLA8EL STATEMENT 



CL0AD=*E40, EC LEVEL=128211 

COMMENTS 
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0BA6 


5280 


LPSU 


024 


IMACHK 






ROH V AS, I 


OBA8 


7A8A 


LPSU 


025 








STH T AS, 1-2 


OBAA 


72CA 


LPSU 


026 








STH V AS,P-2 


OBAC 


C826 


LPSU 


027 




024 


IMACHK 


BR IF PO BIT4=0 


08 A E 


5202 


LPSU 


02 8 








RDH V CA,88 


0B80 


2C15 


LPSU 


02 9 








PO=0$K10 


0BB2 


2007 


LPSU 


030 








P1=0 


0B84 


F26B 


LPSU 


031 




058 


COLBIN 


BR IF -00 BIT 7=1 


0BB6 


2A65 


LPSU 


032 








T0=0$K60 


0BB8 


3A43 


LPSU 


033 








T0=T0$K04 


OBBA 


63A8 


LPSU 


034 








VlOVl+TO 


OBBC 


62DD 


LPSU 


035 








V0C=V0+P1+C 


OBBE 


2BF5 


LPSU 


036 








Ti=0$KF0 


OBCO 


7838 


LPSU 


037 








STB Tl V+i 


08C2 


94B8 


LPSU 


038 




LPXF 002 


BEGIN 


BR 


0BC4 


5EC2 


LPSU 


039 


ERROR 






ROH H DA,B8 


08C6 


CEOE 


LPSU 


040 




Oil 


NOSTOP 


BR IF HO BIT0=0 


08C8 


3AA9 


LPSU 


041 


NOTRDY 






T0=0-KA0 


08CA 


00 80 


LPSU 


042 








RST RP K=08 


08CC 


8EBA 


LPSU 


043 




LROR 025 


INTREQ 


BR 


OBCE 


00 80 


LPSU 


044 


PFREAO 






RST RP K=08 


08D0 


3462 


LPSU 


04 5 








SET MODE K=96 


0BD2 


3415 


LPSU 


046 








G0=G0$K10 


0BD4 


3400 


LPSU 


047 








SET MODE K=80 


0806 


2435 


LPSU 


048 








G0=0$K30 


0BD8 


2513 


LPSU 


049 








Gl=0$KOi 


OBOA 


2015 


LPSU 


050 








U0=0$K10 


OBOC 


21E7 


LPSU 


051 








U1=0$KEE 


OBOE 


3178 


LPSU 


052 








U1=U1-K07 


OBEO 


8AB6 


LPSU 


053 




LXFR 025 


BYTECT 


BR 


0BE2 


3462 


LPSU 


054 


PFRWRI 






SET MODE K=96 


UBE4 


1443 


LPSU 


055 








GQ=G0*-K04 


0BE6 


2F40 


LPSU 


056 








SET P K=04 


0BE8 


8B98 


LPSU 


057 




016 


GOON 


BR 


OBEA 


2B95 


LPSU 


058 


COLBIN 






Ti=G$K90 


08EC 


2A13 


LPSU 


059 








TO^OSKOi 


OBEE 


985C 


LPSU 
LPSU 


060 
061 


AENO 


LPCB 058 


START 


BR 



READ 2 BYTES FROM PUNCH IMAGE 
STORE ALL ONES IN PUNCH IMAGE 
STORE PUNCH IMAGE DATA IN PCHCHK 
BR IF TRANSFER NOT COMPLETE 
READ MEMORY BIAS(O00 ADDR) IN V 
SET UP PUNCH IMAGE ADDR 

IN P FOR PUNCH XFER 
TEST COL BIN 
SET VALUE 

100 IN TO 
UPDATE V 

TO 1400 AODR 100 
STORE FO IN 1400 ADDRESS 100 

TO INDICATE PUNCH COMPLETE 
GO DO PUNCH XFER 
READ CONTROL BYTE 
CONTINUE IF I/O CHK STOP SW OFF 
INTERVENTION REQUIRED-SET STOP 

CODE IN TO, RESET CMD INTLK, 
AND BR TO GEN, STOP 
RESET COMMAND INTLK 
2540 ZONE, PUNCH MODE 
SET PFR READ LAST COM IND 
CPU MODE AND ZONE 
G-3001-C0L FORM BUFFER 

FIRST HALF, 4-9 ROWS 
U=10E6-PFR IMAGE BUFFER 

FROM BOTTOM TO TOP 



2540 ZONE, PUNCH MODE 

SET PFR WRITE MODEtNEG LOGIC) 

SET PUNCH RESTART GATE 

SET T FOR USE 

IN UPDATING V ADDRESS REG 
GO TO COL BIN DATA XFER 



* CROSS REFERENCE FOR CSECT LPSU * 
*************** ******* ************ 



LPSU 004 
LPSU Oil 
LPSU 016 
LPSU 024 
LPSU 039 
LPSU 041 
LPSU 044 
LPSU 054 
LPSU 058 



LOPD 041 
LPSU 040 
LPSU 014 
LPSU 027 
LPSU 010 
LPSU 008 
LPSU Oil 
LPSU 012 
LPSU 031 



LPSU 005 



LPSU 057 



LPSU 009 



CL0AD=*E40 f EC LEVEL=128211 PAGE 184 

LPTR DESCRIPTIVE TEXT 

OBJECTIVES AFTER RUN IN I DATA I 

CLUTCH TRAP L TRANSFER PUNCH DATA BYTE FROM PUNCH IMAGE BUFFER TO PO. 

2. COMPARE PUNCH CHECK BRUSHES TO PUNCH CHECK BUFFER. SAVE 

1. SET BUFFER ADORESS IPUNCH IMAGE, ROW FORM). ERROR CONDITION AFTER FIRST CARD HAS PASSED PUNCH CHECK. 

2. SET TRAP COUNTER. 

3. SEND FIRST DATA BYTE TO BUFFER. AFTER RUN IN IPFR) 

RUN IN (DATAI U TRANSFER PUNCH DATA BYTE FROM PUNCH IMAGE BUFFER TO PUNCH 

DATA OUT (POU 
1. TRANSFER PUNCH DATA BYTE FROM PUNCH IMAGE BUFFER TO PUNCH 2. COMBINE PUNCH IMAGE BUFFER AND PFR IMAGE BUFFER AND PUT 

DATA OUT IPO). IN PUNCH IMAGE 8UFFER. 

2* SEND RP1 DATA BYTE TO LS. 3. STORE DATA FROM RPl INTO PFR IMAGE BUFFER. 

4. COMPARE RP2 DATA WITH PUNCH CHECK BUFFER. SAVE ERRORS 
IF ANY. 

********************************************************************** ********^ 



* 



* 



* PROCEDURE FOR ANALYZING PUNCH CHECKS DUE TO HOLE COUNT * 



* 



* 



* i. SET ADDRESS SWITCHES TO ADDRESS OF LABEL PCHCHK. * 

* 2* SET MODE SWITCH TO SAR DELAYED STOP. * 

* 3. WHEN THE ERROR OCCURSt THE PUNCH ATTENTION LIGHT COMES ON AND THE FOLLOWING AREAS MAY BE DISPLAYED - * 

* * 

* PUNCH CFECK LOGOUT AREA -. * 

* * 

* AUX 50F6 50F7 50F8 50F9 50FA 50FB 50FC 50FD 50FE 50FF * 

* BITS * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * * 

* * * * * * * * * * * * * 

* COLS * 1 THRU 8*9 THRU 16*17 THRU 24*25 THRU 32*33 THRU 40*41 THRU 48*49 THRU 56*57 THRU 64*65 THRU 72*73 THRU 80* * 

* * — — * * * * * * , * * * — --, — * * 



* 



* 



* A BIT BEING ON IN THE LOGOUT AREA SIGNIFIES AN ERROR FOR THAT COLUMN. * 



* 



* 



* THIS AREA MUST BE LOADED WITH BLANKS AFTER EVERY ERROR FOR SUBSEQUENT ERROR ANALYSIS. * 
* 

* ROW FORM PUNCH IMAGE - 



* 



* 
* 
* 



* ROW AUX ADDRESS ROW AUX ADDRESS * 



* 



* 



* 12 1000 - 1009 il 100A - 1013 A BIT BEING OFF IN THE ROW FORM PUNCH IMAGE BUFFER * 

* 1014 - 101D 1 101E - 1027 SIGNIFIES A HOLE IN THE CARD. THE CARD IS IN THE * 

* 2 1028 - 1031 3 1032 - 1038 STACKER POCKET. * 
4 103C - 1045 5 1046 - 104F * 

* 6 1050 ~ 1059 7 105A - 1063 * 

* 8 1064 - 1060 9 106E - 1077 * 
********************************************************************************************************************************** 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 







LPTR 


001 


T 


NATIVE 


PUNCH TRAP ROUTINE! 1400 MO 






LPTR 


002 


# 


G0= 


STAT REG 


BITO-PUNCH ACTI 






LPTR 


003 


* 


D0= 


COUNT REG 


BITO-ROW 12 INO 






LPTR 


004 


ATABLE 


ADDR=0110 






0110 


2208 


LPTR 


005 








LINK U MMSK4=l 


0112 


9062 


LPTR 
LPTR 


006 
007 


AENO 


008 


ST ART 


BR 


1062 


FA EC 


LPTR 


008 


START 


049 


SETUP 


BR IF RPS BIT7=0 


1064 


5BFF 


LPTR 


009 








H1=RP1 


1066 


5ACF 


LPTR 


010 








P0=RP2 


1068 


A213 


LPTR 


Oil 




013 


OK N 


BR IF 00=NZ 


106A 


9074 


LPTR 


012 




053 


FALSE 


BR 


1180 


5F2C 


LPTR 


013 


OK 







ROB PG AS,V+1 


1182 


C6C7 


LPTR 


014 




016 


N0T12 


BR IF DO BITO=i 


1184 


0638 


LPTR 


015 




041 


ROW 12 


BR IF 00 BIT 1=0 


1186 


33BB 


LPTR 


016 


NQT12 






V1=V1-K0B 


1188 


OOOC 


LPTR 


017 




019 


PFR 


BR IF GO BIT 5=0 


118A 


DF90 


LPTR 


018 




027 


CHKBFR 


BR IF PS BIT 1=1 


118C 


2380 


LPTR 


019 


PFR 






V1=V1*K80 


118E 


3378 


LPTR 


020 








V1=V1-K0 7 


1190 


5020 


LPTR 


021 








ROB PI AS.V 


1192 


7F20 


LPTR 


022 








STB HI AS,V 


1194 


337F 


LPTR 


023 








V1=V1-K77 


1196 


5F20 


LPTR 


024 








ROB HI AS»V 


1198 


6DF7 


LPTR 


025 








PI=P1*H1 


119A 


7D20 


LPTR 


026 








STB PI AS,V 


119C 


2235 


LPTR 


02 7 


CHKBFR 






V0=0$K30 


119E 


5F20 


LPTR 


02 8 








ROB Hi AS,V 


11A0 


6CF1 


LPTR 


029 








PO=POaHl 


11A2 


C4B5 


LPTR 


030 




039 


NOERR 


BR IF Z=0 


11A4 


CAB4 


LPTR 


031 




039 


NOERR 


BR IF RPS BIT4=0 


11A6 


3F40 


LPTR 


032 


PCHCHK 






SET P K=84 


11A8 


2E55 


LPTR 


033 








H0=0$K50 


UAA 


56FD 


LPTR 


034 








H1=D0L 


11AC 


3FF5 


LPTR 


035 








H1=H1$KF0 


UAE 


5OE0 


LPTR 


036 








ROB PI AS,H 


UBO 


60C5 


LPTR 


037 








P1=P1$P0 


11B2 


7DE0 


LPTR 


038 








STB PI AS,H 


11B4 


2215 


LPTR 


039 


NOERR 






V0=Q$K10 


11B6 


23CB 


LPTR 


040 








V1=V1*K0C 


11B8 


261B 


LPTR 


041 


RGW12 






00= 00 +K 01 


11BA 


C4C2 


LPTR 


042 




046 


RETURN 


BR IF ZNZ 


11BC 


0D80 


LPTR 


043 








RST RP K=08 


11BE 


1495 


LPTR 


044 








G0=G0*-K90 


1LC0 


0208 


LPTR 


045 








RTN U MMSK4=0 


11C2 


F0C6 


LPTR 


046 


RETURN 


048 


DONE 


BR IF LZNZ 


11C4 


266B 


LPTR 


047 








00= 00 +K 06 


11C6 


0208 


LPTR 


04 8 


DONE 






RTN U MMSK4=0 


106C 


3485 


LPTR 


049 


SETUP 






G0=GO$K80 


106E 


1F80 


LPTR 


050 








RST P K=88 


1070 


2635 


LPTR 


051 








00=0$K30 


1072 


266B 


LPTR 


052 








DO=DO+K06 


1074 


2215 


LPTR 


053 


FALSE 






V0=0$K10 



CLOAD=*E40, EC LEVEL=1282 1i 

COMMENTS 

RUCKER 
5-NORMAL PUNCHCNON-PFR) 



BR IF CLUTCH TRAP 

GET PFR DATA 

GET CHK DATA FROM RP2 

CONTINUE IF SETUP HAS OCCURRED 

RETURN-FALSE TRAP 

SEND NEXT PCH DATA 

BR IF NOT ROW 12 

BR IF ROW 12 

ADD F4 TO VI FOR CHK BUFFER 

BR IF PFR OP 

BR IF NOT NORMAL RUN-IN 

PFR OP-MODIFY VI TO PFR AREA 

READ PFR DATA OF LAST CARD 

STORE PFR DATA OF THIS CARD 

SET ADDR TO PCH IMAGE BUFFER 

READ PUNCH DATA 

OR THE PUNCH AND PFR DATA 

STORE IN IMAGE 

SET ADDR TO CHECK BUFFER 

READ THE CHK IMAGE 

CHECK OLD DATA 

BR IF OK 

BR IF NO CARD THRU CHK STATION 

SET PUNCH CHECK £ RESTART GATE 

SET UP ADDR OF 

COLUMN IN ERROR 

-AUX STORAGE 50F6-50FF 
READ BYTE 

OR IN ERROR COLUMNS 

STORE BACK ACCUMULATED ERRS 
RESET ADDR TO 

IMAGE BUFFER 
INCREMENT COUNT 
BR IF COUNT NOT ZERO 
RESET PUNCH COMMAND INTLK 
RESET ACTIVE £ PFR READ LAST 



CORRECT COUNT 

SET THE ACTIVE BIT 
RESET PUNCH ERRORS 
SET COUNT TO 130 

-HEX- 36 
SET-UP, INITIALIZE VO 



PAGE 185 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLQAD=*E40, EC LEVEL? 1282 11 

COMMENTS 



PAGE 186 



1076 23C7 LPTR 054 

10 78 5F2C LPTR 055 

107A 0208 LPTR 056 



LPTR 008 
LPTR 013 
LPTR 016 
LPTR 019 
LPTR 027 
LPTR 039 
LPTR 041 
LPTR 046 
LPTR 048 
LPTR 049 
LPTR 053 



LPTR 0C6 
LPTR Oil 
LPTR 014 
LPTR 017 
LPTR 018 
LPTR 030 
LPTR 015 
LPTR 042 
LPTR 046 
LPTR 008 
LPTR 012 



Vi=0 

RD8 PO AS,V*1 

RTN U MMSK4*0 

********************************** 

* CROSS REFERENCE FOR CSECT LPTR * 
********************************** 



ADDRESS FOR 1ST BYTE OF IMAGE 
1ST RUN-IN CYCLE, SEND PCH DATA 



LPTR 031 



LPXF DESCRIPTIVE TEXT 



CL0AD=*E40, EC LEVEL=1282 1i PAGE 187 



ENTRY POINf 
BEGIN 



FROM LPSU, EXCLUSIVE ENTRY POINT. 



OBJECTIVES 



INITIALIZE FOR TRANSLATE TABLE AOORESS. SET WORK 
REGISTERS TO FF. SET MASK FOR CARD COLUMNS* 



2. READ CHARACTER FROM PROGRAM STORAGE t 1400 101-180). 
USE TLU TO READ FROM TRANSLATE TABLE, PUT IN PUNCH 
IMAGE BUFFER. 

3. SET UP NEW MASK FOR NEXT CHARACTER, LOOP UNTIL ALL 80 
COLUMNS ARE COMPLETE, THEN STORE REGS AND BRANCH TO 
PUNCH ENDING ROUTINE. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 








LPXF 


001 


T 




14B8 


2807 


LPXF 


002 


BEGIN 




14BA 


2A65 


LPXF 


004 






14BC 


21F7 


LPXF 


008 


CLEAR 




14BE 


5179 


LPXF 


009 






14C0 


51F9 


LPXF 


010 






14C2 


51E9 


LPXF 


Oil 






14C4 


5199 


LPXF 


012 






14C6 


58BD 


LPXF 


013 


NEWMSK 




14C8 


3B85 


LPXF 


014 






14CA 


54A0 


LPXF 


015 






14CC 


5B38 


LPXF 


016 






I4CE 


3B45 


LPXF 


017 






14D0 


55A0 


LPXF 


018 






14D2 


157B 


LPXF 


019 






14D4 


9163 


LPXF 


020 






1160 


2DAB 


LPXF 


021 


BIT421 





1162 


2DAB 


LPXF 


022 


BIT421 


1 


1164 


2DA8 


LPXF 


023 


BIT421 


2 


1166 


2DAB 


LPXF 


024 


BIT421 


3 


1168 


2DAB 


LPXF 


025 


BIT421 


4 


116A 


2DA8 


LPXF 


026 


BIT421 


5 


116C 


9474 


LPXF 


027 


BIT421 


6 


116E 


9480 


LPXF 


028 


BIT421 


7 


1474 


2D1D 


LPXF 


029 


A0D1E 




1476 


2DEB 


LPXF 


030 






1478 


5BC0 


LPXF 


031 






147A 


6B4i 


LPXF 


032 






147C 


7BC0 


LPXF 


033 






147E 


5805 


LPXF 


034 






1480 


C5C4 


LPXF 


035 


BYTES 




1482 


6141 


LPXF 


036 






1484 


D5C8 


LPXF 


037 


N 




1486 


6741 


LPXF 


038 







NEXTSEQ NEXTLABEL STATEMENT 

1400 PUNCH TRANFERl EBCDIC TO ROW FORM) 
10=0 

T0=0$K60 
Ui=0$KFF 
01=U1 
H1 = U1 
H0=U1 
Ii=Ul 
Tl=IOL 
T1=T1$K80 
ROH G AS,T 
ROB Tl V*l 
T1=T1$K40 
ROB Gl AS,T 
Gi=GlaK07 
N=G1 BITS567 
P1=P1*K0A 
P1=PH-K0A 
P1=P1+K0A 
P1*P1«-K0A 
P1 = PH-K0A 
PU=P1*K0A 
BR 
BR 

Pi=Pl*K10 
P1=P1+K0E 
ROB Tl AS,P 
Tl^TlaGO 
STB Tl AS,P 
P1=I0XL 

BR IF Gl BIT0=0 
Ui=UlnGO 
BR IF Gl BIT 1=0 
DUDlaGO 



COMMENTS 



RUCKER 



021 BIT421 N 



029 
035 



A0D1E 
BYTES 



037 N 



039 NE 



SET CONTROL COUNTER TO 
XLATE TABLE ADDR HIGH 
CLEAR 
ALL THE 
ACCUMULATING 
REGISTERS 

SET-UP T FOR 

TABLE LOOK-UP OF 
NEW MASK! IN GO) 
REAO BYTE FROM STORAGE 
CLEAR WORD MARK! IF PRESENT) 
XLATE TO CONDENSED PUNCH DATA 
INVERT BITS 4,2,1 
BR UNDER MASK 
ADO 5A(90)-7 PUNCH 
ADO 50<80)-6 PUNCH 
ADO 461 70)-5 PUNCH 
ADD 3CI60 -4 PUNCH 
ADO 321 50 -3 PUNCH 
ADO 28C40)-2 PUNCH 
BR TO AOD 1EI30)-1 PUNCH 
NO 1-7 PUNCH 
ADO IE 

TO PUNCH IMAGE BUFFER 
STORE 

1 THRU 7 
PUNCH 
RECOVER PUNCH IMAGE AODR 

12 PUNCH 

11 PUNCH 



AODR 



WORD SEQUENCE NO. LABEL 



1488 


E50C 


LPXF 


039 


NE 


148A 


£941 


LPXF 


040 




148C 


F510 


LPXF 


041 


NEX 


14 8E 


6F41 


LPXF 


042 




1490 


C114 


LPXF 


043 


NEXT 


1492 


6E41 


LPXF 


044 




1494 


282B 


LPXF 


045 


DONE 


1496 


F0C6 


LPXF 


046 




1498 


71C0 


LPXF 


047 




149A 


20AB 


LPXF 


048 




149C 


77C0 


LPXF 


049 




149E 


20AB 


LPXF 


050 




14A0 


79C0 


LPXF 


051 




14A2 


205D 


LPXF 


052 




14A4 


7FC0 


LPXF 


053 




14A6 


2DAB 


LPXF 


054 




14A8 


5EF9 


LPXF 


055 




14AA 


7FC0 


LPXF 


056 




14AC 


580 5 


LPXF 


057 




14 A E 


08AD 


LPXF 


058 




14 BO 


C46C 


LPXF 


59 




14B2 


838 


LPXF 


060 




14B4 


98EA 


LPXF 


061 




I486 


A74E 


LPXF 


062 





LPXF 


002 


LPSU 


038 


LPXF 


008 


LPXF 


059 


LPXF 


013 


LPXF 


046 


LPXF 


021 


LPXF 


020 


LPXF 


029 


LPXF 


027 


LPXF 


035 


LPXF 


028 


LPXF 


037 


LPXF 


035 


LPXF 


039 


LPXF 


037 


LPXF 


041 


LPXF 


039 


LPXF 


043 


LP XF 


041 


LPXF 


045 


LPXF 


043 



2=0 
3=0 
4=0 



NEXTSEQ NEXTLABEL STATEMENT 

041 NEX BR IF Gl BIT 

fi*IlQ60 
043 NEXT BR IF Gl BIT 

Hl=HlnGO 
045 DONE BR IF Gl BIT 

H0=H0nG0 

10= 10 *K 02 
013 NEWMSK BR IF LZNZ 

STB Ul AS,P 

P1=P1+K0A 

STB 01 AS»P 

P1=PH-K0A 

STB II AS f P 

P1=P1+K50 

ST8 HI AStP 

P1=PH-K0A 

H1 = H0 

STB HI AS,P 

Pi=IOXL 

Z=IOQKAO 

008 CLEAR BR IF ZNZ 

IREG 002 STOREV BAL 

I REG 016 RSTREG BAL 

LPCH 002 ENOING BR 

********************************** 

* CROSS REFERENCE FOR CSECT LPXF * 
********************************** 



CL0A0=*E40, EC LEVEL=1282 11 
COMMENTS 



PAGE 188 



PUNCH 

8 PUNCH 

9 PUNCH 

ADD 2 TO CONTROL COUNTER 
BR TO GET NEW MASK IF NOT 8TH CH 
STORE ROW 12 
UPDATE P BY 10 
STORE ROW 11 
P*10 

STORE ROW 
UPDATE P BY 80 
STORE ROW 8 
P + 10 

STORE ROW 9 

RESTORE IMAGE BUFFER ADDRESS 

BR IF NOT ALL 80 COL COMPLETE 
STORE V IN 1400 A OR B ADDR REG 
RESTORE VtU-fltGvD 



CL0AD=*E40, EC LEVEL=12821t PAGE 189 



LROR DESCRIPTIVE TEXT 



ENTRY POINTS 
RDRENO 



PFR 



ENTER HERE FROM LXFR FOR NORMAL ENDING. 
ENTER HERE FROM PFR OPS FOR NORMAL ENDING* 



OBJECTIVES 

1. (RDRENDI RESET ERRORS, ALLOW CHECKS, SET 1400 DELAYED 



FEED. READ AND CLEAR EOF INDICATOR. CHECK FOR ERRORS. 
CHANGE OP CODE. 

2* IF THERE ARE ERRORS, SET INDICATOR. READ CONTROL BYTE, 
IF I/O CHECK STOP IS ON, SET 3F STOP CODE. BRANCH TO 
STOP ROUTINE FOR DISPLAY. 

3. READER NOT READY OR OFF LINE SET 4F STOP CODE AND GO TO 
INTERVENTION REQUIRED STOP. 

4. {PFR) START WITH ERROR CONDITION CHECK. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






LROR 


001 


T 


READ ENDING ROUTINE 


0E8C 


2B40 


LRDR 


002 


ROREND 






SET R K=04 


0E8E 


2D08 


LRDR 


003 








SET RP K=40 


0E90 


3445 


LRDR 


004 








G0=G0$K40 


0E92 


3406 


LRDR 


005 








SET MODE K=BO 


0E94 


5A82 


LROR 


006 








RDH T DA, A8 


0E96 


1A85 


LRDR 


007 








TQ=T0*-K80 


0E98 


F99F 


LRDR 


008 




Oil 


STORE 


BR IF RS7=l 


0E9A 


3D00 


LRDR 


009 








SET RP K=80 


0E9C 


3A85 


LRDR 


010 








T0=T0$K80 


0E9E 


7A82 


LROR 


Oil 


STORE 






STH T DA, A8 


OEAO 


5A92 


LRDR 


012 


PFR 






RDH T DA,AA 


06A2 


FDB1 


LRDR 


013 




020 


ERROR 


BR IF RS3=1 


0EA4 


C9B1 


LRDR 


014 




020 


ERROR 


BR IF RS4=i 


0EA6 


1A43 


LRDR 


015 








T0=T0*-K04 


0EA8 


7A92 


LRDR 


016 


CONTIN 






STH T DA,AA 


OEAA 


3400 


LRDR 


017 








SET MODE K=80 


OEAC 


1593 


LRDR 


018 








Gl=Gl*-K09 


OEAE 


A5A0 


LRDR 


019 


REREAD 


LOPD 030 


NOTI25 


BR 


OEBO 


3A43 


LRDR 


020 


ERROR 






T0=T0$K04 


0EB2 


5DC2 


LRDR 


021 








RDB PI DA, 88 


0EB4 


CD28 


LRDR 


022 




016 


CONTIN 


BR IF P10=0 


0EB6 


1583 


LRDR 


023 








G1^=G1*-K08 


0EB8. 


3AC9 


LRDR 


024 








TO=0-KCO 


OEBA 


5AB9 


LRDR 


025 


INTREQ 






T1=T0 


OEBC 


7AF2 


LRDR 


026 








STH T 0A,BE 


OEBE 


ACBC 


LRDR 


027 




IDIS 010 


STOP 


BR 


13F4 


0D04 


LRDR 


02 8 


NOTRDY 






RST RP K^20 


13F6 


1B00 


LROR 


029 








RST R K=80 


13F8 


3406 


LRDR 


030 








SET MOOE K=BO 


13FA 


98EA 


LRDR 


031 




IREG 016 


RSTREG 


8AL 



COMMENTS 

RUCKER 
ALLOW READ CHECKS 
SET 1400 DELAYED FEED 
SET READER ACTIVE BIT 
SET READ MODE, CPU ZONE 
READ AND 

CLEAR EOF INDICATOR 
BR IF NO NEW EOF IND TO BE SET 
ACCEPT EOF BIT, READY WILL DROP 
SET NEW EOF INDICATOR 
STORE BACK CONTROL BYTE 
READ ERROR CONTROL BYTE 
BR IF READCHOLE COUNTJERROR 
BR IF VALIDITY ERROR 
NO ERROR-CLEAR ERROR BIT 
STORE CONTROL BYTE 
CPU ZONE AND MODE 
RESET READ AND PFR INDICATOR 
CQNTINUE-BR TO TEST FOR COMB OP 
SET ERROR INDICATOR 
READ CONTROL BYTE 
BR IF I/O CHK STOP SWITCH OFF 
ERR AND CHK STOP GN-RESET PFR 

INDICATOR-SET 3F STOP CODE 
IN TO ANO Tl. 

STORE STOP CODE 
STOP CODE SOMPLETE 
RESET COMMAND INTLK 
RESET READ ERRORSCIF ON) 
SET READ MODE, CPU ZONE 
RESTORE CPU REGS 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 
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COMMENTS 
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13FC 
13FE 



3AB9 
8EBA 



LRDR 032 
LRDR 033 



LRDR 002 

LRDR Oil 

LRDR 012 

LRDR 016 

LRDR 020 

LRDR 025 

LRDR 028 



LXFR 105 
LRDR 0C8 
LRXF 028 
LRDR 022 
LRDR 013 
LPSU 043 
LXFR Oil 



LRDR 014 
LRDR 03 3 



TO=0-KBO SET 4F STOP CODE IN TO 

025 INTREQ BR GO TO INTERVENTION REQ. 

********************************** 

* CROSS REFERENCE FOR CSECT LRDR * 
********************************** 



STOP 



ADOK 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLOAD=*E40, 
COMMENTS 
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LREQ 


001 


T 






LREQ 


002 


* 






LREQ 


003 


* 






LREQ 


004 


* 






LREQ 


005 


* 


1A5E 


1FBO 


LREQ 


006 


PCHREQ 


1A60 


E9E8 


LREQ 


007 


START 


1A62 


5A82 


LREQ 


008 




1A64 


1A85 


LREQ 


009 




1A66 


7A82 


LREQ 


010 




IA68 


2AC7 


LREQ 


Oil 


NORST 


1A6A 


2BC7 


LREQ 


012 




1A6C 


0B30 


LREQ 


013 


RORREQ 


1A6E 


6AA4 


LREQ 


014 




1A7G 


C4EC 


LREQ 


015 




IA72 


EBOF 


LREQ 


016 




IA74 


C10C 


LREQ 


017 




1A76 


3E99 


LREQ 


018 




1A78 


6EF1 


LREQ 


019 




1A7A 


C4DD 


LREQ 


020 




1A7C 


FQDC 


LREQ 


021 




1A7E 


8B4E 


LREQ 


022 




1A5C 


9 60 A 


LREQ 


023 


BACK 



LREQ 006 
LREQ 007 
LREQ Oil 
LREQ 013 
LREQ 023 



LREQ 016 
INRU 069 
LREQ 007 
LREQ 015 
LREQ 017 



Oil NORST 



READ REQUEST ROUTINE 

READ REQUEST LATCH IS SET ONLY OUR I 
TO HANDLE THE DATA TRANFER AT THA 
DATA TRANSFER IS BYPASSED. 
** 80TH THE READ 6 PUNCH DEVICE ENDS 

RST P K=8B 

BR IF RS6=0 

RDH T DA,A8 

T0=T0*-K30 

STH T DA, A8 

T0=0 

T1=0 

RST R K=03 

T = T+2 

BR IF IHl 

BR IF PS6=1 

BR IF S4=0 

H0=0-K90 

HO^HOaHl 

BR IF Z=0 

8R IF LZNZ 

BR 

BR 
****************************** 

* CROSS REFERENCE FOR CSECT LR 
****************************** 





013 


RDRREQ 




006 


PCHREQ 




023 


BACK 




023 


BACK 




023 


BACK 


LXFR 


101 


RETURN 


INRU 


080 


GOBACK 



RUCKER 
NG RUN-IN 
T TIME, IF HARDWARE DI IS ON, 

ARE TESTED FOR REMOTE RESTART, 
RESET PCH REQUEST £ ERROR 
BR IF NO READ REQ 
RESET 
EOF 
BIT 

INITIALIZE COUNT REG TO ZERO 
RESET READ REQ 
fcAIT APP 

90 MILLISECONDS 
TEST PCH REQUEST 

BR IF NOT 16 CHAR HALT MESSAGE 
MASK FOR 6F PRINTER RETURN 
CHECK REMOTE RESTART 
PRINTER INTERVENTION 
NOT READER PUNCH INTERVENTION 
REMOTR RESTART-RETURN TO RDR/PCH 
GO BACK TO WAIT LOOP 
**** 

EQ * 
**** 



LREQ 020 LREQ 021 



CL0AD=*E40, EC LEVEL=12821i PAGE 192 

LRTR DESCRIPTIVE TEXT 

OBJECTIVES SET READER ACTIVE AND TRANSFER BITS. 

2. COMPARE (RESULTS ARE NOT CHECKED*. 
CLUTCH CYCLE 

AFTER RUN IN (DATA) 

1. SET READER TRAP CONDITIONS. 

2. SET READ CARD IMAGE BUFFER 1 ADDRESS. i. TRANSFER RP 1 DATA TO READ CARD IMAGE BUFFER 1. 

3. SET TRAP COUNTER. 2. COMPARE RP2 DATA TO BUFFER, LOG ERRORS, IF ANY. 

3. INCREMENT BYTE COUNTER, WHEN 120 TRAPS ARE COMPLETED, END 
RUN IN IDATAI THE OPERATION. 

i. SET READ CARD IMAGE BUFFER 2 ADDRESS (2 FEED CYCLES). 

*$$***** ************:Mc ****** **^ 



* 



* 



* PROCEDURE FOR ANALYZING READER CHECKS DUE TO HOLE COUNT. * 



* 



* 



* 1. SET ADDRESS SWITCHES TO ADDRESS OF LABEL -RDRCHK- * 

* 2. SET MODE SWITCH TO SAR DELAYED STOP. * 

* 3. WHEN AN ERROR OCCURS, THE READER ATTENTION LIGHT COMES ON AND THE FOLLOWING AREAS MAY BE DISPLAYED. * 

* * 

* READER CHECK LOGOUT AREA— * 



* 



* AUX 10F6 10F7 10F8 10F9 10FA 10F8 10FC 10FD 10FE lOFF * 

$ # * *_ * * * * * * * * * 

* BITS * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * * 

* * * * * * * * * * * * * 

* COLS * 1 THRU 8*9 THRU 16*17 THRU 24*25 THRU 32*33 THRU 40*41 THRU 48*49 THRU 56*57 THRU 64*65 THRU 72*73 THRU 80* * 

$ *- *— * * : * * * * * * . * * 

* ' ' ■ * 

* A BIT BEING ON IN THE LOGOUT AREA SIGNIFIES AN ERROR FOR THAT COLUMN. * 

THIS AREA MUST BE LOADED WITH BLANKS AFTER EVERY ERROR FOR SUBSEQUENT ERROR ANALYSIS. * 

* * 

* —COLUMN FORM AREA AUXILIARY STORAGE 4020 - 40BF R3W FORM AREA AUXILIARY STORAGE 3FA0 - 4017 * 

* A BIT BEING ON INDICATES A HOLE IN THE CARD THAT IS NOW A BIT BEING A ZERO INDICATES A HOLE IN THE CARD THAT * 

* IN THE PRE STACKER STATION. THIS IS A RESULT OF THE IS BETWEEN THE FIRST AND SECOND READ STATIONS. * 

* FIRST READ STATION TRAPS. * 

* FORMAT 4020 4021 * 

* BIT ROW COL BIT ROW COL ROW AUX ADDRESS ROW AUX ADDRESS * 

* OX OX FORMAT IS THE * 

* IX IX SAME FOR EACH 9 3FA0 - 3FA9 3 3FDC - 3FE5 * 

* 2 12 2 4 CARD COLUMN. 8 3FAA - 3FB3 2 3FE6 - 3FEF * 





4021 


BIT 


ROW 





X 


1 


X 


2 


4 


3 


5 


4 


6 


5 


7 


6 


8 


7 


9 



* 3 11 -1- 3 5 -1- AUX 4022-4023 7 3FB4 - 3FBD 1 3FF0 - 3FF9 * 

* 4 4 6 FOR COL 2. AUX 6 3FBE - 3FC7 3FFA - 4003 * 

* 5 1 5 7 4024-4025 FOR 5 3FC8 - 3FD1 11 4004 - 400D * 

* 6 2 6 8 COL 3, ETC. 4 3FD2 - 3FDB 12 400E - 4017 * 

* 7 3 7 9 * 



9 


3FA0 - 3FA9 


3 


3FDC - 3FE5 


8 


3FAA - 3FB3 


2 


3FE6 - 3FEF 


7 


3FB4 - 3FBD 


1 


3FF0 - 3FF9 


6 


3FBE - 3FC7 





3FFA - 4003 


5 


3FC8 - 3FD1 


11 


4004 - 400 D 


4 


3FD2 - 3FDB 


12 


400E - 4017 



ADOR 



WORD SEQUENCE NO* LABEL 



NEXTSEQ NEXTLABEL STATEMENT 
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COMMENTS 
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LRTR 


001 


T 






LRTR 


002 


* 






LRTR 


003 


* 






LRTR 


004 


ATABLE 


OIBO 


2206 


LRTR 


005 




OIB2 


5ACF 


LRTR 


006 




01B4 


9146 


LRTR 


007 








LRTR 


008 


AEND 


1146 


EAAE 


LRTR 


009 


START 


1148 


5BDF 


LRTR 


010 




114A 


A303 


LRTR 


Oil 




114C 


0206 


LRTR 


012 




ilOO 


5FC0 


LRTR 


013 


OK 


1102 


7DG8 


LRTR 


014 




1104 


C08E 


LRTR 


015 




1106 


2010 


LRTR 


016 




1108 


7D00 


LRTR 


017 




110A 


30FB 


LRTR 


018 




HOC 


3465 


LRTR 


019 




110E 


6CF1 


LRTR 


02 


NOTRUN 


1110 


C4A3 


LRTR 


021 




1112 


CDA3 


LRTR 


022 




1114 


3B00 


LRTR 


023 


RDRCHK 


1116 


2E15 


LRTR 


024 




1118 


57FD 


LRTR 


02 5 




lilA 


3FF5 


LRTR 


026 




111C 


5DE0 


LRTR 


027 




11 IE 


6DC5 


LRTR 


02 8 




1120 


70E0 


LRTR 


029 




1122 


271B 


LRTR 


030 


NOERR 


1124 


C4B8 


LRTR 


031 




1126 


CDC 5 


LRTR 


032 




1128 


74 CO 


LRTR 


033 




112A 


1465 


LRTR 


034 




112C 


02C6 


LRTR 


035 




U2E 


5BDF 


LRTR 


036 


SETUP 


1130 


3445 


LRTR 


037 




1132 


30C9 


LRTR 


03 8 




1134 


21A5 


LRTR 


039 




1136 


2745 


LRTR 


040 




1138 


F0C4 


LRTR 


041 


RETURN 


113A 


3763 


LRTR 


042 




113C 


07A1 


LRTR 


043 




1136 


C4C4 


LRTR 


044 




1140 


CDC5 


LRTR 


045 




1142 


0D04 


LRTR 


046 




1144 


0206 


LRTR 


04 7 


RET 



READER TRAP ROUTINE 

NATIVE READER TRAP GO=STATUS REGISTER 
ROUTINE-1400 MODE 1-ROR ACTIVE 

ADDR=01B0 

LINK U MMSK3=1 
P0=RP2 
009 START BR 



RUCKER 



2-CPU TRANSFER NECESSARY 



036 


SETUP 


BR IF RPS 8IT6=0 
PURP1 


013 


OK N 


BR IF D1=NZ 
RTN U MMSK3=0 
RDB Hi AS,U 
STB PI AS,U*1 


020 


NOTRUN 


BR IF RS BITO=G 

UQ=U0*K10 

STB PI AS,U 

U0=U0-K0F 

G0=G0$K60 

P0=P0QH1 


30 


NOERR 


BR IF Z=0 


030 


NOERR 


BR IF RS BITO^l 

SET R K=80 

H0=0$K10 

H1=D1L 

H1=H1$KF0 

RDB PI AS,H 

PT=P1$P0 

STB PI AS,H 

D1 = DH-K01 


041 


RETURN 


BR IF ZNZ 


047 


RET 


BR IF RS0=1 

STH G AS,U 

G0=G0*-K6O 

RTN U MMSK3=0 

P1=RP1 

G0=G0$K40 

UO=0-KCO 

U1=0$KA0 

D1=0$K40 


047 


RET 


BR IF LZNZ 

D1=D1$K06 
Z=D1+K0A 


047 


RET 


BR IF ZNZ 


047 


RET 


BR IF RS0=1 
RST RP K=20 
RTN U MMSK3=0 



TAKE READ 2 INFO 



BR IF READER CLUTCH CYCLE 

TAKE READ 1 INFO 

CONTINUE IF SETUP WAS OK 

RETURN-FALSE TRAP HAS OCCURRED 

READ OLD DATA 

STORE NEW DATA 

BR IF GATE READ COMPLETE 

SET U TO IMAGE 2 ADDR« 

STORE NEW CHAR IN IMAGE 2 BUF. 

RESTORE IMAGE 1 ADDRESS 

SET READER ACTIVE I XFER BITS 

CHECK OLD DATA 

BR IF NO ERROR 

BR IF NOT GATE READ COMPLETE 

SET READ ERROR 

SET UP ADDR OF 

COLUMN IN ERROR 

-AUX STORAGE 10F6-10FF 
READ BYTE 

OR IN ERROR COLUMNS 

STORE BACK ACCUMULATED ERRS 
INCREMENT BYTE COUNTER BY 1 

BR IF NOT GATE READ COMPLETE 

STORE XFER BI T STATUS 

RESET ACTIVE t XFER BITCIF ONI 

TAKE READ 1 INFO 

SET THE ACTIVE BIT 

SET U TO 3FA0 TO ADDRESS 

READ IMAGE BUFFER 
SET READ 

LZ=O f UPDATE Dl FOR DECIMAL CNT 
TEST FOR ROW 11 END 
RETURN IF NOT ROW 11 END 
BR IF NOT GATE READ COMP. 
RESET COMMAND INTLK 
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********************************** 

* CROSS REFERENCE FOR CSECT LRTR * 
********************************** 



LRTR 


009 


LRTR 


0C7 










LRTR 


013 


LRTR 


on 










LRTR 


020 


LRTR 


015 










LRTR 


030 


LRTR 


021 


LRTR 


022 






LRTR 


036 


LRTR 


009 










LRTR 


041 


LRTR 


031 










LRTR 


047 


LRTR 


032 


LRTR 


041 


LRTR 044 


LRTR 045 
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LRXF DESCRIPTIVE TEXT 



ENTRY POINTS 



EN TP. Y 



NORMAL ENTRY POINT FROM READ OP DECODE OR FROM PFR 
ROUTINE AFTER PUNCHING AND READING HAS OCCURRED 
AND COLUMN FORM BUFFER HAS BEEN LOADED FROM THE 
ROW FORM BUFFER. 



OBJECTIVES 



2. CHECK CHARACTER VALIDITY. STORE BLANK C<*0) IF INVALID. 
REPEAT UNTIL CHARACTER COUNT BECOMES 0. END IF NOT COL- 
UMN BINARY. 

3. FOR COLUMN BINARY READ, REPEAT READ OUT OF COLUMN FORM 
BUFFER. STORE HIGH COL BIN IN 1400 PROGRAM ADDRESS 501- 
580. STORE LOW COL BIN IN 401-480. END ON FULL CARD. 



1. SET CHARACTER COUNT AND INITIALIZE FOR READ TRANSLATE 
TABLE LOOKUP. TRANSFER DATA FROM COLUMN FORM BUFFER TO 
1400 PROGRAM STORAGE 001-080. USE TLU AND READ TRANSLATE 
TABLE. 



FOR PFR OP 



TRANSFER DATA AS IN STEP 



ADDR 


WORD 


SEQUENCE NO* 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






LRXF 


001 


T 


; 


1400 


TRANFER OF 


DATA FROM BUMP TO 






LRXF 


002 


ASEQ 


AL07=14 








0994 


2B55 


LRXF 


003 


ENTRY 








T1=0$K50 


0996 


7B38 


LRXF 


004 










STB Ti V+l 


0998 


2406 


LRXF 


005 










SET MODE K=30 






LRXF 


006 


# 




1400 MODE INDICATOR IS NOW OFF 


099A 


1B00 


LRXF 


007 










RST R K=80 


09 9C 


2A55 


LRXF 


008 










T0=0$K50 


099E 


5C88 


LRXF 


009 


NEWCHA 








RDH P AS, 1*2 


09A0 


2B73 


LRXF 


OiO 










T1=0$K07 


09A2 


6DD3 


LRXF 


Oil 










P1=P1*P1 


09A4 


6DD3 


LRXF 


012 










P1=P1+P1 


09A6 


EOBB 


LR XF 


013 






023 


N04567 


BR IF HZ=0 


09A8 


6BC7 


LRXF 


014 










T1=T1*P0 


09AA 


C4C7 


LRXF 


015 






029 


N0123 


BR IF Z=0 


09 AC 


F231 


LRXF 


016 


VALCHK 




018 


NOERR 


BR IF DO BIT7=i 


09AE 


2B80 


LRXF 


017 










SET R K=08 


09B0 


2545 


LRXF 


018 


NOERR 








G1=0$K40 


09B2 


084D 


LRXF 


019 










Z=I0QK40 


09B4 


E0E1 


LRXF 


02 






042 


MAINRO 


BR IF HZ=0 


09B6 


2F 80 


LRXF 


021 










SET P K=08 


09 B 8 


89E0 


LRXF 


022 






042 


MAINRO 


BR 


09BA 


6BC7 


LRXF 


023 


NQ4567 








Ti=Tl*PO 


09 BC 


C4D1 


LRXF 


024 






034 


NOT 123 


BR IF Z=0 


09BE 


1C73 


LRXF 


02 5 










P0=P0*-K07 


09C0 


89CA 


LRXF 


026 






031 


TABLUP 


BR 


09C2 


98EA 


LRXF 


027 


PFRCOM 


IREG 


016 


RSTREG 


BAL 


09 C4 


8EA0 


LRXF 


028 




LRDR 


012 


PFR 


BR 


09C6 


3C43 


LRXF 


029 


NG123 








P0=PG$K04 



COMMENTS 

MAINSTORAGE RUCKER 

STORE 50 IN 

1400 ADDRESS 000 
READ MODE, CPU ZONE 

RESET PREVIOUS READ ERRSUFON) 
SET T FOR READ TABLE LOOK-UP 
READ COL FORM DATA 
SET MASK IN T 
SHIFT 

LEFT TWICE 
BR IF ROWS 4567 HAVE NO PUNCHES 
MASK ROWS 123 
BR IF 123 HAVE NO PUNCHES 
SKIP VAL ERROR SET IF COL BIN 
SET VALIDITY ERROR 
SET BLANK IN G FOR STORING 
MASK FOR NORMAL READ OP 
BR IF NOT PFR 
SET PFR VALIDITY CHK 

MASK FOR 123 

BR IF NO 123 

CLEAR PO 

GO DO TABLE LOOK UP 

RESTORE REGS U,V,I,G,D 

GO TO READ END ROUTINE 

456 OR 7, OR IN VALUE 4 



AD OR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E40, EC LEVEL=1282ll 
COMMENTS 
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09C8 


5DB5 


LRXF 


030 








TI=P1XL 


09CA 


3BB5 


LRXF 


031 


TABLUP 






Ti=Tl$KBQ 


09CC 


57A0 


LRXF 


032 








ROB 01 AS,T 


09CE 


6C75 


LRXF 


033 








P0=P0$D1 


09D0 


5DB3 


LRXF 


034 


NOT123 






T1=P1XH 


0902 


C4D6 


LRXF 


035 




037 


80R9 


BR IF ZNZ 


0904 


2BC5 


LRXF 


036 








T1=0$KC0 


09 D6 


6BC5 


LRXF 


037 


80R9 






Ti=Tl$PO 


0908 


EC5C 


LRXF 


038 




040 


OK 


BR IF PO BIT2=0 


090A 


FC2D 


LRXF 


039 




016 


VALCHK 


BR IF PO BIT3=1 


09DC 


55A0 


LRXF 


040 


OK 






ROB Gl AS,T 


09 DE 


D52C 


LRXF 


041 




016 


VALCHK 


BR IF Gl BIT 1*0 


09E0 


5D30 


LRXF 


042 


MAINRO 






ROB PI V 


09E2 


0067 


LRXF 


043 




045 


NOWM 


BR IF Pi BIT 1=1 


09E4 


1545 


LRXF 


044 








G1=G1*-K4Q 


09E6 


7538 


LRXF 


045 


NOWM 






STB Gl V + i 


09E8 


21FF 


LRXF 


046 








U1=U1+KFF 


09 EA 


C49E 


LRXF 


047 




009 


NEWCHA 


BR IF ZNZ 


09 EC 


83B0 


LRXF 


048 




IREG 002 


STOREV 


BAL 


09EE 


C840 


LRXF 


049 








Z=I0aK40 


09 FO 


E0C2 


LRXF 


050 




027 


PFRCOM 


BR IF HZNZ 


09F2 


F277 


LRXF 


051 




053 


PASS 


BR IF DO BIT7=i 


09F4 


8A2E 


LRXF 


052 




081 


DONE 


BR 


09F6 


2A0 7 


LRXF 


053 


PASS 






T0=0 


09F8 


2C45 


LRXF 


054 








P0=0$K40 


09 FA 


2025 


LRXF 


055 








P1=0$K20 


09FC 


2945 


LRXF 


056 








U = 0$K40 


09FE 


639B 


LRXF 


057 








V1C=V1*I1 


OAOO 


62 A 


LRXF 


058 








VOC=VO+TO+C 


OA02 


62A9 


LRXF 


059 








VGC=V0*T0+1 


0A04 


292F 


LRXF 


060 








IL-I1+K22 


0A06 


6024 


LRXF 


061 








U = V+2 


0AQ8 


619B 


LRXF 


062 








U1C=U1+I1 


OAOA 


60AO 


LRXF 


063 








UOC=UO*TO+C 


OAOC 


58C8 


LRXF 


064 


CBREAO 






ROH I AS,P+2 


OAOE 


58B9 


LRXF 


065 








T1=10 


0A10 


55A0 


LRXF 


066 








ROB Gl AS,T 


0A12 


3545 


LRXF 


067 








Gi=Gl$K40 


0A14 


5F30 


LRXF 


068 








ROB HI V 


0A16 


0F1B 


LRXF 


069 




071 


ST8YT1 


BR IF HI BIT1=1 


0A18 


1545 


LRXF 


070 








G1=G1*-K40 


"OAIA 


7538 


LRXF 


071 


ST8YT1 






STB Gl V + i 


0A1C 


59B9 


LRXF 


072 








T1=I1 


0A1E 


55A0 


LRXF 


073 








ROB Gl AS,T 


0A20 


354 5 


LRXF 


074 








Gl=Gl$K40 


0A22 


5F10 


LRXF 


075 








ROB HI U 


0A24 


DF29 


LRXF 


076 




078 


STBYT2 


BR IF HI BIT 1=1 


0A26 


1545 


LRXF 


077 








G1=G1*-K40 


0A28 


7518 


LRXF 


078 


STBYT2 






STB Gl im 


0A2A 


COCC 


LRXF 


079 




064 


CBREAO 


BR IF PI BITO=0 


0A2C 


DDOC 


LRXF 


080 




064 


CBREAO 


BR IF PI BIT 1=0 


0A2E 


8A8A 


LRXF 
LRXF 


081 
82 


DONE 
AENO 


LXFR 003 


WAIT 


BR 



SET T FOR TABLE LOOK-UP 

OR IN CONSTANT 

DO TABLE LOOK-UP FOR 123 OR 4567 

OR 12, lit TO TABLE VALUE 

PUT 89 PUNCHES IN Tl 

BR IF 8 OR 9 PUNCH 

OR IN 8-9 BITS FOR PROPER TLU 

OR 89 PUNCHES TO BASE 

BR IF NOT 12 PUNCH 

BR IF 12 £ 11 PUNCH-INVALID 

DO TOTAL CHAR TABLE LOOK-UP 

BR IF INVALID 1400 CHAR 

READ MAIN STORAGE 

BR IF NO WORD MARK 

SET WM 

STORE CHARACTER 

UP DATE COUNTI-1) 

BR IF COUNT NOT 

STORE V IN 1401 A OR B ADOR REG 

MASK FOR NORMAL READ OP 

BR IF PFR OP 

BR IF COL BIN OP 

SET UP TO FOR BCD TO EBCDIC TLU 
SET P TO COL FORM BUFFER 
ADDRESS -4020- 

ADO 320 TO V TO 
UPDATE FROM 
C81 TO 401 

SET U=V+100 
FOR HIGH 1400 
COL BINARY HALFC501) 
READ COL FORM DATA f 2 CHARS 
SET CHAR1 INTO Tl 
CONVERT TO EBCDIC 
INSURE GOOD DATA AFTER RUN IN 
READ ADORESS 401-480 
BR IF NO WORD MARK 
SET WORO MARK 
STORE BYTE IN 401-480 
PUT CHAR2 INTO Tl 
CONVERT TO EBCDIC 
INSURE GOOO DATA AFTER RUN IN 
READ ADDRESS 501-580 
BR IF NO WORO MARK 
CLEAR WORD MARK 
STORE BYTE IN 501-580 AREA 
BR IF FULL CAR0C80 CHAR) NOT COM 
BR IF FULL CARD! 80 CHAR) NOT COM 
BR TO ROW TO COL TRANSFER 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 
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COMMENTS 
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LRXF 003 

LRXF 009 

LRXF 016 

LRXF 018 

LRXF 023 

LRXF 027 

LRXF 029 

LRXF 031 

LRXF 034 

LRXF 37 

LRXF 040 

LRXF 042 

LRXF 045 

LRXF 053 

LRXF 064 

LRXF 071 

LRXF 078 

LRXF 081 



LOPD 052 

LRXF 047 

LRXF 039 

LRXF 016 

LRXF 013 

LRXF 050 

LRXF 015 

LRXF 026 

LRXF 024 

LRXF 035 

LRXF 038 

LRXF 020 

LRXF 043 

LRXF 051 

LRXF 079 

LRXF 069 

LRXF 076 

LRXF 052 



LXFR 098 



LRXF 041 



LRXF 022 



LRXF 080 



********************************** 

* CROSS REFERENCE FOR CSECT LRXF * 
********************** *********** * 



LSSO DESCRIPTIVE TEXT 
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ENTRY POINT 

STKSEL 

EXCLUSIVE ENTRY POINT FROM I-CYCLES WHEN K-OP IS 
DECODED* 

OBJECTIVES 

I. TRANSLATE EBCDIC D-MODIFIER CHARACTER TO BCD FOR BIT 



TEST, END OPERATION IF THERE ARE AB ZONES. 



2. FORCE READ MODE AND ZONE, SAVE STACKER SELECT PUS IN 
AUX STORAGE, GET READER PUNCH BRANCH CONDITIONS, 
END IF TOO LATE FOR READ STACKERS, 



3. SET INDICATED STACKERS, RESTORE CPU MODE AND ZONE, 



ADDR WORD SEQUENCE NO, LABEL 



STKSEL 







LSSO 


001 


2E40 


57D9 


LSSO 


002 


2E42 


5DC0 


LSSO 


003 


2E44 


5DB9 


LSSO 


004 


2E46 


EODC 


LSSO 


005 


2E43 


7C52 


LSSO 


006 


2E4A 


2206 


LSSO 


007 


2E4C 


5C52 


LSSO 


008 


2E4E 


6 5D5 


LSSO 


009 


2E50 


5ECF 


LSSO 


010 


2E52 


EC5D 


LSSO 


Oil 


2E54 


E958 


LSSO 


012 


2E56 


2B02 


LSSO 


013 


2E58 


F95C 


LSSO 


014 


2E5A 


2B04 


LSSO 


015 


2E5C 


0216 


LSSO 


016 


2E5E 


A5B0 


LSSO 


017 



LSSO 002 
LSSO 014 
LSSO 016 



ICYC 295 
LSSO 012 
LSSO 005 



NEXTSEQ 
1402 



N0TR3 



END 



016 END 



016 
014 



016 END 



LOPD 038 TESTIS 



NEXTLABEL STATEMENT 

STACKER SELECT COMMAND 

P1 = D1 

RDB PI AS,P 

Tl=Pl 

BR IF HZNZ 

STH P DA f 9A 

SET MMSK K=30 

RDH P DA,9A 

G1=G1$P1 

P0=RPS 

BR IF P02=l 

BR IF PI BIT6=0 

SET R K=10 

BR IF PI BIT7=0 

SET R K=20 

RST MMSK K=31 

BR 
********************************** 

* CROSS REFERENCE FOR CSECT LSSO * 
********************************** 



COMMENTS 



END 
N0TR3 



RUCKER 



XLATE EBCDIC TO BCD 

BR IF AB ZONE 

STORE BYTE FOR ZONE CHANGE 
FORCE READ MODE t ZONE 
READ ST. SEL. BYTE BACK OUT 
SAVE PUNCH ST. SEL. BITS 

BR IF 6 MILLI-SECONDS OVER 

BR IF NOT R3 STACKER 

SET R3 STACKER 

BR IF NOT R2 STACKER 

SET R2 STACKER 

RESTORE CPU MODE £ ZONE 

COMPLETE 



LSSO Oil LSSO 014 
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LXFR DESCRIPTIVE TEXT 



ENTRY POINTS 
WA I T 



BYTECT 



NORMAL ENTRY USED DURING READ OPERATIONS. 
ENTERED FROM LRXF. 



ENTRY USED DURING PUNCH PFR OPERATIONS* ENTER 
FROM LPSU. 



OBJECTIVES 

1. SET UP ADDRESSES OF COLUMN IMAGE AND ROW IMAGE BUFFERS, 
SET ROW IMAGE BUFFER 2 OR BUFFER i IF TRANSFER BIT IS 
NOT ON (RUN INK 

2. TRANSFER ROW BITS OF EACH CARD COLUMN FROM ROW IMAGE 
BUFFER TO COLUMN IMAGE BUFFER, 



A DDR 


WORD 


SEQUENCE NO* 


LABEL 


NEXTSEQ 


NEXTLABEL STATEMENT 


COMMENTS 






LXFR 


001 


T 


READER 


XFER OF 


ROW IMAGE TO COLUMN 


BINARY FORM B.RUCKER 






LXFR 


002 


ASEQ 


AL07=QA 










OA8A 


3466 


LXFR 


003 


WAIT 








SET MODE K=B6 


SET 2540 ZONE £ MODE 


OA8C 


D414 


LXFR 


004 






008 


2NDHLF 


BR IF GO BIT 1=0 


CONTINUE IF ACTIVE NOT ON 


0A8E 


0719 


LXFR 


005 










Z=D1+K10 


WAIT FOR ROW 11 


0A90 


EC8A 


LXFR 


006 






003 


WAIT 


BR IF HZNZ 


BEFORE PROCEEDING 


OA92 


E40B 


LXFR 


007 






003 


WAIT 


BR IF GO BIT 2=1 


BR BACK IF TRANSFER REQUIf 


0A94 


2D04 


LXFR 


008 


2NDHLF 








SET RP K=20 


SET READ COMMAND INTLK 


0A96 


DD9A 


LXFR 


009 






Oil 


NOT RDY 


BR IF RS1=0 


TEST READY 


0A98 


CE9D 


LXFR 


010 






012 


READY 


BR IF RPS0=1 


BR IF AVAILABLE-ON LINE 


0A9A 


93F4 


LXFR 


Oil 


NOTRDY 


LRDR 


028 


NOTRDY 


BR 


GO TO NOT READY HALT 


0A9C 


3406 


LXFR 


012 


READY 








SET MODE K=B0 


OK TO CONTINUE 


0A9E 


2045 


LXFR 


013 










UG=0$K40 


SET U TO IMAGE 2 


OAAO 


2115 


LXFR 


014 










U1=0$K10 




OAA2 


3183 


LXFR 


015 










Ul=Ul$K08 


U=4018 


0AA4 


5400 


LXFR 


016 










RDH G AS,U 


READ TRANSFER BIT 


0AA6 


7008 


LXFR 


017 










STH U AS,U+2 


CLEAR XFER BIT FROM 4018 


0AA8 


5111 


LXFR 


018 










U1=U1X 


U=40A1, IMAGE BUFFER 2 


OAAA 


E431 


LXFR 


019 






022 


XFER 


BR IF GO BIT2=1 


BR IF XFER BIT ON 


OAAC 


2035 


LXFR 


020 










U0=Q$K30 


SET U TO IMAGE 1 


OAAE 


21A5 


x LXFR 


021 










U1=0$KA0 


BUFFER ADDR -30A0- 


OABO 


2445 


LXFR 


022 


XFER 








G0=0$K40 


SET G TO 2ND BYTE OF 


OAB2 


2525 


LXFR 


023 










G1=0$K20 


COLUMN BUFFER 


0AB4 


251B 


LXFR 


024 










Gl=GH-K01 


ADDR -4021- 


0A86 


22A3 


LXFR 


025 


BYTECT 








VO=0$KQA 


10 GROUPS OF 8 BYTES CNTR 


0AB8 


2807 


LXFR 


026 


BITCT 








10=0 


CLEAR 


OABA 


2907 


LXFR 


027 










11=0 


WORK 


OABC 


4A86 


LXFR 


028 










T=l 


REGISTERS 


OABE 


4C86 


LXFR 


029 










P=I 




OACO 


4E86 


LXFR 


030 










H=I 




OAC2 


2613 


LXFR 


031 










D0=0$K01 


SET MASK FOR COL I 


0AC4 


5700 


LXFR 


032 


RDBYTE 








RDB Dl AS,U . 


READ BYTE FROM IMAGE 


0AC6 


C74B 


LXFR 


033 






035 


N 


BR IF Dl BIT 0=1 


BITS ARE COMPLIMENT 


OAC8 


6965 


LXFR 


034 










I1=I1$D0 


OR BIT IN COL 1 



ADOR 

OACA 
O'ACC 
OACE 
OADO 
0A02 
0AD4 
0A06 
0A08 
OAOA 
OAOC 
OAO'E 
OAEO 
OA E2 
0AE4 
0AE6 
0AE8 
OAEA 
OAEC 
OAEE 
OAFG 
OAF2 
0AF4 
0AF6 
OAF8 
OAFA 
OAFC 
OAFE 
08 00 
0802 
0B04 
0806 
0808 
OBOA 
OBOC 
OBOE 
0B10 
0812 
0814 
0B16 
0818 
0B1A 
0B1C 
081E 
0820 
0B22 
0824 
OB 26 
0B28 
0B2A 
082C 
082E 
OB 30 
OR 32 



WORD SEQUENCE NO. 



074F 
6865 
E753 
6D65 
F757 
6F65 
C35B 
6865 
035F 
6A65 
E3*3 
6C65 
F367 
6E65 
6663 
0679 
F475 
21AB 
F4F2 
2010 
8AC4 
319B 
8AC4 
7940 
6444 
7B40 
6444 
7040 
6444 
7F40 
6444 
CL14 
5899 
5AB9 
5C09 
5EF9 
8AF8 
22Ff 
C4A7 
F423 
3130 
C020 
20FD 
8AB8 
213F 
BAB 8 
148B 
C03E 
F439 
2118 
2525 
3466 
D331 



LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
L XF R 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 



035 
036 
03 7 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
06 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 
083 
084 
085 
086 
087 



LABEL 

N 

NE 

NEX 

NEXT 

NEXTB 

NEXTBT 

BTNEXT 

BTDONE 



READM 
RPFR1 

STORE 



NEXTSEQ 
037 
039 
041 
043 
045 
047 
049 



058 
056 



NEXTLABEL STATEMENT 



CL0AD=*E40, EC LEVEL=I282U 
COMMENTS 



PAGE 200 



055 
032 
032 



STROON 



HAFiST 

RPFR2 

HALF 



DELAY 



081 
079 

078 

026 

026 

093 

090 



NE 

NEX 

NEXT 

NEXTB 

NEXTBT 

BTNEXT 

BTDGNE 

STORE 
RPFR1 

REAOM 

ROBYTE 

ROBYTE 



072 STROON 



058 STORE 



HALF 
RPFR2 

HAFIST 

BITCT 

BITCT 

DONE 
RPFR3 



BR IF Dl BIT 1=1 

Tl=Tl$DO 

BR IF 01 BIF2=1 

P1=PUD0 

BR IF Di BIT 3*1 

H1=H1$00 

BR IF 01 BIT4=1 

IO=IO$DO 

BR IF 01 BIT5=l 

T0=T0$D0 

BR IF Dl BIT6=1 

P0=P0$DG 

BR IF 01 BIT 7-1 

HO = HO $00 

00=00+00 

BR IF 001=1 

BR IF GO BIT3=l 

Ul=Ui+KOA 

BR IF AC=0 

U0=U0+K10 

BR 

U1=U1-K09 

BR 

AS, G+0 

♦♦POINT 

ASfG+.O 



086 DELAY 



STB II 

G=G+2 

STB Tl 

G=G+2 

STB PI AS,G+0 

G=G+2 

STB Hi AS,G+G 

G=G+2 

BR IF Gl BIT4=0 

11=10 

T1 = T0 

P1=P0 

H1=H0 

BR 

VO=VO+KFF 

BR IF Z=0 

BR IF GO BIT3=1 

U1=U1-K30 

BR IF GO BIT4=0 

UQ=U04-KFQ 

BR 

U1=U1+K33 

BR 

GQ=G0nK08 ** 

BR IF GO BIT4=0 

BR IF GO BIT3=i 

U1=U1+K01 

G1=0$K20 

SET MODE K=B6 

BR IF 015=1 



COL 2 

COL 3 

COL 4 

COL 5 

COL 6 

COL 7 

COL 8 

SHIFT MASK LEFT ONE 

BR TO STORE IF 6 BIT CHAR ASSEM 

CHECK FOR PFR READ 

NO- INCREMENT ADR 

UPDATE TO 60 

OECREMENT ADDR BY 10 

STORE COL ONE OR FIVE 
ADOR TO EVERY OTHER BYTE 
COL TWO OR SIX 

COL THREE OR SEVEN 

COL FOUR OR EIGHT 

BR IF DONE 2ND 4 BYTES 
MOVE 
2ND 
4 

BYTES 

GROUP CNTR MINUS 
BR IF DONE HALF 
BR IF PFR READ 
NEXT GROUP OF 8 BYTESS 
BR IF 1ST HALF 
2ND HALF-RESTORE UO 
GO DO ANOTHER GROUP 
NEXT GROUP OF 8 BYTES 
GO 00 ANOTHER GROUP 
INVERT BIT 4 - 2ND HALF 
BR IF DONE 2ND HALF 
BR IF PFR RO 
U= 500C 
G=482 
2540 ZONE, READ MODE 

WAIT UNTIL ROW 12 HAS BEGAN 



ADDR 


WORO 


SEQUENC 


;e no* 


LABEL 


NEXT! 


>EQ 


NEXTLAB 


EL STATEMENT 


OB 34 


3400 


LXFR 


088 










SET MODE K=80 


0B36 


8AB6 


LXFR 


089 






025 


BYTECT 


BR 


0B38 


21A7 


LXFR 


090 


RPFR3 








U1=0$KAA 


OB3A 


25C7 


LXFR 


091 










G1 = 


0B3C 


8AB6 


LXFR 


092 






025 


BYTECT 


BR 


083E 


F44A 


LXFR 


093 


DONE 




099 


ENDING 


BR IF GO 8IT3=0 


0840 


5202 


LXFR 


094 










RDH V DA, 88 


0B42 


2155 


LXFR 


095 










U1=0$K50 


0B44 


2907 


LXFR 


096 










11=0 


0B46 


2835 


LXFR 


097 










I0=0$K30 


0B48 


8994 


LXFR 


098 




LRXF 


003 


ENTRY 


BR 


0B4A 


0040 


LXFR 


099 


ENDING 








Z=U0QK40 


OB4C 


C403 


LXFR 


100 






103 


RUNON 


BR IF Z=0 


QB4E 


98EA 


LXFR 


101 


RETURN 


I REG 


016 


RSTREG 


BAL 


0850 


A5A0 


LXFR 


102 




LORD 


030 


NOT 125 


BR 


0852 


98EA 


LXFR 


103 


RUNON 


I REG 


016 


RSTREG 


BAL 


0B54 


3466 


LXFR 


104 










SET MODE K=B6 


0B56 


8E8C 


LXFR 
LXFR 


105 
106 


AEND 


LRDR 


002 


RDREND 


BR 



CL0AD=*E40 f EC LEVEL=1282 11 
COMMENTS 

CPU MODE 

GO DO 2ND HALF 

PFR READ, SET U TO 10AA 

G^5800 

GO DO 2ND HALF 

BR IF NOT PFR RD 

RESTORE BIAS! 000) TO V ADDR REG 

SET Ul TO COUNT OF 80 

SET I TO PFR 

COL BUFFER-3000 
BR TO TRANSFER DATA TO MAIN STOR 

BR IF NO XFER OCCURED 

RESTORE CPU REGS 

XFER CYCLE-RETURN TO READ OP 

RESTORE CPU REGS 

SET 2540 ZONE, READ MODE 

GO TO READ END ROUTINE 
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* CROSS REFERENCE FOR CSECT LXFR * 

it******************************** 



LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 



003 
008 
Oil 
012 
022 
025 
026 
032 
035 
037 
039 
041 
043 
045 
047 
049 
055 
056 
058 
072 
078 
079 
081 
086 
090 
093 
099 
101 
103 



LRXF 
LXFR 
LXFR 
LXFR 
LXFR 
LPSU 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LXFR 
LREQ 
LXFR 



081 
04 
0C9 
010 
019 
053 
078 
055 
033 
035 
037 
039 
041 
043 
045 
047 
053 
051 
050 
066 
076 
074 
073 
087 
083 
082 
93 
022 
ICO 



LXFR 006 LXFR 007 



LXFR 

LXFR 
LXFR 



089 
080 
057 



LXFR 092 



LXFR 071 
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MAAA DESCRIPTIVE TEXT 



ENTRY POINTS FOR 1401-1460 OPERATIONS 



IPL42 



START 



ENTRY AT THIS POINT IS FROM THE I PL START RESET 
ROUTINE WHEN A 1442 LOAD IS INDICATED. THIS IS AN 
ERROR. BRANCH TO SET INVALID UNIT STOP CODE. 



ENTRY HERE IS FROM IOCM FOLLOWING UNIT ADDRESS G 
DECOOE. BRANCH BACK TO IOCM TO SET INVALID UNIT. 



ENTRY POINTS FOR 1440 OPERATIONS 

IPL42 

ENTRY HERE IS FROM THE IPL START RESET ROUTINE 
WHEN A 1442 LOAD IS SPECIFIED. 



START 



NORMAL ENTRY POINT FROM IOCM FOR EXECUTION OF 1442 
INSTRUCTIONS. ALSO THE ENTRY POINT FOR RETRY READ 
OR WRITE OPERATIONS FROM BRANCH ON ERROR ROUTINE. 



NOTC 



ENTRY FROM MODIFIER DECODE ROUTINE FOLLOWING IN- 
VALID MODIFIER DETECTION. BRANCH TO IERR ROUTINE. 



NOTC 



ENTRY FROM THE MODIFIER DECODE ROUTINE FOLLOWING 
INVALID MODIFIER DETECTION. 



RSMSK 



RESLCT 



ENTRY FROM SENSE COMMAND AND STATUS DECODE WHEN 
THE UNIT IS ADDRESSED INCORRECTLY OR THE UNIT IS 
NOT THERE. THIS ROUTINE IS USED DURING CHANNEL 
OPERATIONS (1401-1460 OR 1440} TO FACILITATE RE- 
SETTING MASK AND STORING THE STOP CODE AND OTHER 
INFORMATION NEEDED FOR RESTART. 



ENTRY IS FROM READ COMMAND AND STATUS LOOP OR MOD- 
IFIER DECODE ROUTINE WHEN A RES ELECT ION OF A 
CHANNEL DEVICE (READ-PUNCH OR PRINTER) IS 

REQUIRED. 



RSMSK 



SKIP 



RESLCT 



ENTRY AT THIS POINT ENSURES THAT THE MASK IS OFF 
PRIOR TO DISPLAYING THE STOP MESSAGE. 



ENTRY POINT FOR 1442 STACKER SELECT. 



ENTRY IS FROM THE MODIFIER DECODE CMKKK) ROUTINE 
TO PERFORM INITIAL SELECTION AND SENSE DURING 1442 
OR 1443 OPERATIONS. ENTRY IS FROM READ COMMAND 
AND STATUS LOOP WHEN RESELECTI ON IS NECESSARY . 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXT LAI 


J El 


STATEMENT 


COMMENTS 






MAAA 


001 


T 


1442 


MODIFIER 


DECODE AND INITIAL 


SELECTION. KRAGER 


09 QC 


9286 


MAAA 


032 


IPL42 


IOCM 015 


ZONECK 


3 


BR 




08EA 


9286 


MAAA 


033 


START 


IOCM 015 


ZONECK 


3 


BR 




1170 


2A<S5 


MAAA 


090 


NOTC 








T0«0$K90 


SET INVALID MODIFIER STOP CODE 


1172 


2B05 


MAAA 


091 


RSMSK 








T1=0$K00 


CLEAR LOW STOP CODE B^TE 


1174 


021E 


MAAA 


092 


RSMSK 1 








RST MMSK K=71 


ALLOW TRAPS 


1176 


5EA2 


MAAA 


093 










ROH H DAtAC 


SAVE 


1178 


56F9 


MAAA 


094 










Hl« 00 


OP TYPE 


117A 


7EA2 


MAAA 


095 










STH H DA, AC 


FOR ERROR RESTART 


U7C 


2C05 


MAAA 


096 










PO^OSKOO 




117E 


817C 


MAAA 


097 




IERR 034 


STCODE 




BR 


GO STORE STOP CODE 


0628 


2A85 


MAAA 


120 


NO UNIT 








T0=0$K80 


SET STOP CODE 


062A 


9172 


MAAA 


121 




091 


RSMSK 




BR 




0978 


221E 


MAAA 


133 


RE SLC T 








SET MMSK K»71 


BLOCK TRAPS 


097A 


3486 


MAAA 


134 










SET MODE K=B8 


SET 1401 AND CPU MODE 



ADUR 


WORD 


SEQUENCE NO, 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


09 7C 


2B08 


MAAA 


135 












SET GA K=40 


097E 


94D8 


MAAA 


136 






137 


OP IN 




BR 


14D3 


C9D9 


MAAA 


137 


OP IN 




137 


OPIN 




BR IF GT4=1 


14DA 


4FAF 


MAAA 


13 8 












GB/OUT=TO 


14DC 


2B04 


MAAA 


139 












SET GA K=20 


1406 


2B44 


MAAA 


140 












SET GA K=24 


14E0 


C9EB 


MAAA 


141 


OPINOT 




144 


OPINUP 




BR IF GT4^1 


14E2 


DD£l 


MAAA 


142 






141 


OPINOT 




BR IF GTl^l 


1464 


8628 


MAAA 


143 






120 


NOUNIT 




BR 


14EA 


2B40 


MAAA 


144 


OPINUP 










SET GA K^=04 


14EC 


COEC 


MAAA 


145 


ADDIN 




145 


AOOIN 




BR IF GTO*=0 


14EE 


5FBF 


MAAA 


146 












T1=GB/IN 


14F0 


6AB1 


MAAA 


147 












T0=T0QT1 


14F2 


C467 


MAAA 


148 






151 


AODOK 




BR IF Z=0 


14F4 


2A85 


MAAA 


149 












T0=0$K80 


14F6 


9172 


MAAA 


150 






091 


RSMSK 




BR 


1466 


C256 


MAAA 


151 


AODOK 




160 


N0T43 




BR IF 00 BIT 


L4E8 


SC7C 


MAAA 


152 




MJJJ 


003 


PRNTR 




BR 


L4D6 


9265 


MAAA 


160 


N0T43 




161 


OPIS 


N 


N=DO BITS567 


1260 


9286 


MAAA 


161 


DPI S 


IOCM 


015 


ZONECK 


3 


BR 


1264 


AE80 


MAAA 


162 


OPIS 2 


MDDO 


019 


SENSE 




BR 


1266 


9286 


MAAA 


163 


OPIS 3 


IOCM 


015 


ZONECK 


3 


BR 



4*=0 



CL0AD=*E40, EC LEVEL=1282 11 
COMMENTS 

SERVICE OUT 

WA IT FOR NO OPIN 

SET BUSS OUT 

SET ADDRESS OUT 

SET ADDRESS OUT/SELECT OUT 

BR IF OP IN 

BR IF SELECT IN DOWN 

RESET ADDRESS OUT 
WAIT FOR ADDRESS IN 

COMPARE ADDRESS 

ADDRESS OK 

SET STOP CODE 

GO STORE STOP CODE 

BR IF NOT 1443 SELECTION 
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********************** 

* CROSS REFERENCE FOR 
********************** 



************ 

CSECT MAAA * 
************ 



MAAA 


032 


IPLS 


055 






MAAA 


033 


IOCM 


029 






MAAA 


090 


MKKK 


023 


MKKK 


028 


MAAA 


091 


MAAA 


121 


MAAA 


150 MDDD 053 


MAAA 


120 


MAAA 


143 






MAAA 


133 


MBBB 


048 


MKKK 


065 


MAAA 


137 


MAAA 


136 


MAAA 


137 


MAAA 


141 


MAAA 


142 






MAAA 


144 


MAAA 


141 






MAAA 


145 


MAAA 


145 






MAAA 


151 


MAAA 


148 






MAAA 


160 


MAAA 


151 






MAAA 


161 


MAAA 


160 







MBBB DESCRIPTIVE TEXT 



CL0AD=*E40t EC LEVEL=1282ll PAGE 204 



ENTRY POINTS FOR 1401-1460 OPERATIONS 
RETRY 



ENOOK 



END IT 



RESELECT ENTRY POINT WHEN CHANNEL DEVICE IS BUSY, 
CHANNEL END STATUS ENTERS HERE. 
DEVICE END STATUS ENTERS HERE, 



ENTRY POINTS FOR 1440 OPERATIONS 

RDWR 

THIS IS THE NORMAL ENTRY POINT FOR 1442 READ AND 
WRITE OPERATIONS. 



SETUP 
STATLP 

RETRY 
ENDOK 
ENDIT 



THIS IS THE NORMAL ENTRY POINT FROM THE STACKER 
SELECT ROUTINE. 



NORMAL ENTRY FROM THE DATA LOOP. THIS ROUTINE 
PERFORMS NORMAL ENDING OF READ AND PUNCH 
OPERATIONS. 



ENTRY FOR RESELECT WHEN CHANNEL DEVICE IS BUSY. 



CHANNEL END STATUS ENTRY. 



DEVICE END STATUS ENTRY 



AODR 



0F12 
OF 14 
OF 16 
OF 18 
0F1A 
0F1C 
ODOC 
OOOE 
0D10 
0D12 
0D14 
0D16 
0D18 
001A 
0D1C 
0D1E 



WORD SEQUENCE NO. LABEL 



1645 

3685 
1633 
3623 
5AE2 
8<S78 
2B08 
021E 
3400 
2C05 
56F2 
D21D 
C61D 
8D7C 
5032 
9E72 



MBBB 
MBBB 
MBBB 
MBBB 
MBBB 
MBBB 
MBBB 
MBBB 
MBBB 
MBBB 
MBBB 
MBBB 
MBBB 
MBBB 
MBBB 
MBBB 
MBBB 



001 
043 
044 
045 
046 
047 
048 
075 
076 
077 
078 
079 
080 
081 
082 
083 
084 



OK 



PTR 



RETRY 



ENDOK 



ENDIT 



QAZWSY 



MBBB 047 MDDD 025 MKKK 

MBBB 075 MKKK 090 MLLL 

MBBB 077 MLLL 061 MPPP 

MBBB 083 MBBB 080 MBBB 



094 
053 
030 

081 



NEXTSEQ NEXTLABEL STATEMENT 

READ COMMAND AND STATUS LOOP. 
D0=D0*-K40 
D0=D0$K80 
D0=D0*-K03 
D0=D0$K02 
RDH T 0A,BC 
BR 

SET GA K=40 
RST MMSK K=7i 
SET MODE K»80 
P0-0$K0O 
RDH D DA, BE 

m BIT 5= I 
DO BITO^l 



COMMENTS 



MAAA 133 RESLCT 



083 

083 

I CYC 037 



QAZWSY 
QAZWSY 
HISTRT 



IF 
IF 



IUBR 002 UNCDBR 



BR 
BR 
BR 

RDH U 
BR 



DA,8E 



KRAGER 



SET FLAG BIT 

SET SENSE OP TYPE 

GO READORESS UNIT 
SERVICE OUT 
ALLOW TRAPS 
1401 CPU MODE 



BR 
BR 



IF 

IF 



14 OP 

STK SEL AND BR 



OP 



RESTORE A STAR 



********************************** 
* CROSS REFERENCE FOR CSECT MBBB * 

********************************** 



MPPP 034 



CL0AD=*E40, EC LEVEL=128211 PAGE 205 



MOOD DESCRIPTIVE TEXT 



ENTRY POINTS 



SENSE 



CKSTOP 



NORMAL ENTRY POINT WHEN A SENSE COMMAND IS 
DECODED. 



ENTRY FROM SENSE STATUS DECODE ROUTINE FOR EQUIP- 
MENT CHECK STATUS WITH I/O CHECK STOP SWITCH ON. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLA8EL STATEMENT 



COMMENTS 







MDOD 


001 


T 




SENSE 


COMMANO 


AND STATUS DECODE. 


KRAGER 


2E80 


2A43 


MDDD 


019 


SENSE 








T0=0$K04 


SET COMMAND 


2E82 


4FAF 


MDDD 


02 


OUTIT 








GB/OUT=T0 


SET BUSS OUT 


2E84 


2B42 


MDDD 


021 










SET GA K^14 


COMMAND OUT 


2E86 


FQ 86 


MDDD 


022 


STATUS 




022 


STATUS 


BR IF GT3=0 


WAIT FOR STATUS IN 


2E88 


5FDF 


MDDD 


023 










P1=GB/IN 




2E8A 


FDIO 


MDDD 


024 


NTTIO 




026 


STATOK 


BR IF PI BIT3=0 


BR IF NOT BUSY 


2E8C 


8F1A 


MDDD 


02 5 




MBBB 


047 


RETRY 


BR 


GO RESLECT UNIT 


2E90 


2B48 


MDDD 


026 


STATOK 








SET GA K^=44 


SERVICE OUT 


2E92 


ED92 


MDOD 


02 7 


SVC IN 




027 


SVCIN 


BR IF GT2=0 


WAIT FOR SERVICE IN 


2E94 


5FDF 


MDDD 


028 










Pi=GB/IN 




2E96 


2B48 


MDDD 


029 










SET GA K=44 


SERVICE OUT 


2E98 


FD98 


MDDD 


03 


CKSTAT 




030 


CKSTAT 


BR IF GT3=0 


WAIT FOR STATUS IN 


2E9A 


2B08 


MDDD 


031 










SET GA K=40 


SERVICE OUT 


2E9C 


C20E 


MDDD 


032 






055 


NTPTR 


BR IF DO BIT4*0 


BR IF NOT PRINTER 


2E9E 


AC80 


MDDD 


033 




MM MM 


018 


CKDATA 


BR 


GO TO PRINTER LOOP 


0B78 


2AB5 


MDDD 


052 


CKSTOP 








TO=0$KBO 


SET ERROR STOP CODE 


0B7A 


9172 


MDDD 


053 




MAAA 


091 


RSMSK 


BR 


GO STORE STOP CODE 


2E8E 


9286 


MDDD 


05 5 


NTPTR 


I0CM 


015 


ZQNECK 3 BR 


















********************************** 
















* CROSS 


REFERENCE FOR CSECT 


MDDO * 
















********************************** 



MDOD 019 
MDDD 022 
MDOD 026 
MDDD 027 
mOD 030 
MDDD 052 
MDDD 055 



MAAA 162 
MDOD 022 
MDDD 024 
MDDD 02 7 
MDDD 030 
MMMM 047 
MDDD 032 



MKKK 069 MMMM 017 
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KJJJ DESCRIPTIVE TEXT 



ENTRY POINTS 



PRNTR 



OPISl 4 



THIS IS THE NORMAL ENTRY POINT FROM INITIAL SEL- 
ECTION ROUTINE FOR A CONTINUATION OF SELECTION AND 
OP COOE DECODE I SPACE AND SKIP STATUS) ETC. 



ENTRY HERE IS FROM MKKK (FINISH MODIFIER DECODE) 
FOR A FORMS AFTER COMMAND OR FROM MPPP (FORMS OP 
DECODE I FOR A PRINTER CONTROL COMMAND. 



ADD* 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 






MJJJ 


001 


T 


1443 


MODIFIER DECODE AND INITIAL 


SELECTION. KRAGER 






MJJJ 


002 


* 










L07C 


8205 


MJJJ 


003 


PRNTR 


004 


OPISl N 


N=00 BITS67 


DECODE 


1200 


8028 


MJJJ 


004 


OPISi 


MKKK 066 


SETCMD 


BR 


OPERATION 


120 4 


8A88 


MJJJ 


005 


OPISX 2 


MMMM 017 


SENSE 


BR 




1206 


80 2 8 


MJJJ 


006 


OPISl 3 


MKKK 066 


SETCMD 


BR 




1208 


5F49 


MJJJ 


007 


OPISI 4 






G0=H1 


MOVE COMMAND 


120A 


5E62 


MJJJ 


008 








RDH H DA,9C 




120C 


1473 


MJJJ 
MJJJ 


009 
010 


* 






G0=G0*-K07 


REMOVE FLAG BITS 






MJJJ 


Oil 


* 


CONTROL COMMAND 










MJJJ 


012 


* 










120E 


5FB9 


MJJJ 


013 








Tl = Hi 


SHIFT CMND 


1210 


CF2A 


MJJJ 


014 




027 


SPACE 


BR IF HI BITO^O 


BR IF SPACE CMND 


1212 


6BB3 


MJJJ 


015 








T1=TI*T1 


LEFT 1 BIT 


1214 


3F23 


MJJJ 


016 








Hl=Hl$K02 


SET SKIP FLAG 


12 16 


0B9D 


MJJJ 


017 








Z=TlaK90 


TEST BIT5 


1218 


ECB9 


MJJJ 


018 




034 


CH9 


BR IF HZ^O 


BR IF SKIP TO CH 9 


121A 


CBC.0 


MJJJ 


019 








Z^TlnKCO 


TEST BITS 


12 1C 


EOBF 


MJJJ 


020 




037 


CH12 


BR IF HZ^O 


BR IF SKIP TO CH 12 


121E 


CC33 


MJJJ 


021 




031 


CHI 


BR IF PO BIT0=1 


BR IF 1403 


1220 


OB ID 


MJJJ 


022 








£*T la'Kl'0 


TEST BITS 


1222 


E0B3 


MJJJ 


02 3 




031 


CHI 


BR IF HZ=0 


BR IF SKIP TO CH 1 


1224 


FB2F 


MJJJ 


024 


ADD 


029 


AFTER 


BR IF HI BIT7*1 


BR IF COMND AFTER 


1226 


3433 


MJJJ 


02 5 








G0=G0$K0 3 


SET CMND IMED 


1228 


9F26 


MJJJ 


026 




MKKK 045 


TEST 


BR 




122A 


1F23 


MJJJ 


02 7 


SPACE 






Hl=HI*-K02 


RESET SKIP FLAG 


12 2C 


9234 


MJJJ 


028 




032 


STORE 


BR 




122E 


3413 


MJJJ 


029 


AFTER 






G0=G0$K01 


SET CMND AFTER 


1230 


9F26 


MJJJ 


030 




MKKK 045 


TEST 


BR 




1232 


1E65 


MJJJ 


031 


CHI 






H0-H0*- i -K60 


RESET CH 9 AND 12 FLAG BITS 


12 34 


7E62 


MJJJ 


032 


STORE 






STH H DA,9C 


STORE 


12 36 


9224 


MJJJ 


033 




024 


ADD 


BR 


GO BUILD LOW 3 8 ITS 


1238 


3E45 


MJJJ 


034 


CH9 






H0^H0$K40 


SET CH 9 BIT ON 


12 3A 


1E25 


MJJJ 


035 








H0=H0*H<20 


RESET CHNL 12 


12 3C 


9234 


MJJJ 


036 




032 


STORE 


BR 





AD OR 


WORD 


SEQUENCE NO 


12 3E 


3E25 


MJJJ 037 


12 40 


1E45 


MJJJ 038 


1242 


9234 


MJJJ 039 
MJJJ 040 



CL0AD=*E40, EC LEVEL=1282 1i PAGE 207 
LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

CH12 H0=H0$K20 SET CH 12 BIT ON 

H0=H0*-K4Q RESET CHNL 9 

032 STORE BR 

* CROSS REFERENCE FOR CSECT MJJJ * 



MJJJ 


003 


MAAA 


152 






MJJJ 


004 


MJJJ 


0C3 






MJJJ 


007 


MKKK 


039 


MPPP 


027 


MJJJ 


024 


MJJJ 


033 






MJJJ 


027 


MJJJ 


014 






MJJJ 


029 


MJJJ 


024 






MJJJ 


031 


MJJJ 


021 


MJJJ 


023 


MJJJ 


032 


MJJJ 


028 


MJJJ 


036 MJJJ 039 


MJJJ 


034 


MJJJ 


018 






MJJJ 


037 


MJJJ 


020 







MKKK DESCRIPTIVE TEXT 



CLOAD=*E40 f EC LEVEL=1282ll PAGE 208 



ENTRY POINTS 



STRT43 



SETUP 



NORMAL ENTRY POINT FROM I OCM ROUTINE FOLLOWING 
PRINT OPERATION DECODE. THIS ROUTINE OECODES THE 
MODIFIER AND SETS THE COMMAND* 



ENTRY AT THIS POINT IS FROM THE 1403 PRINTER 
ROUTINE FOLLOWING NON INTEGRATED ATTACHED PRINTER 
DETECTION. 



TEST 



AODR 



SETCMD 



ENTRY HERE IS FROM MODIFIER DECODE AND INITIAL 
SELECTION FOLLOWING SETTING OF CONTROL COMMAND 
FLAGS, 



ENTRY HERE IS FROM BRANCH ON PRINTER ERROR. 



ENTRY HERE IS FROM MODIFIER DECODE AND INITIAL 
SELECTION WHEN A SET COMMAND IS DECODED. 



AODR 


WORD 


SEQUENCE NO. 


LABEL 






MKKK 


001 


T 






MKKK 


002 


* 






MKKK 


003 


* 






MKKK 


004 


* 






MKKK 


005 


* 






MKKK 


006 


* 






MKKK 


007 


* 






MKKK 


008 


* 






MKKK 


009 


*. 






MKKK 


OiO 


* 






MKKK 


Oil 


* 






MKKK 


012 


* 






MKKK 


013 


* 






MKKK 


014 


* 






MKKK 


015 


* 






MKKK 


016 


* 


1EFC 


5EC2 


MKKK 


017 


STRT43 


iEFE 


7812 


MKKK 


018 




1F00 


CB04 


MKKK 


019 




1F02 


9286 


MKKK 


020 




1F04 


07ED 


MKKK 


021 


LEGAL 


1F06 


EC8B 


MKKK 


022 




1F08 


9170 


MKKK 


02 3 




1F0A 


072B 


MKKK 


02 4 


SORW 


1F0C 


F0B1 


MKKK 


025 




iFOE 


0768 


MKKK 


02 6 




1F10 


FC95 


MKKK 


02 7 




1F12 


9170 


MKKK 


02 8 




IF 30 


5A62 


MKKK 


029 


SMOD 


IF 32 


3B23 


MKKK 


030 




1F34 


0BE3 


MKKK 


031 




1F36 


F094 


MKKK 


032 





NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

FINISH MODIFIER DECODE ISSUE COMMAND. KRAGER 
*^*^***********^*** ********************* *********^ 

1443 STATUS BYTE BITS = 

BIT = NOT USED 

BIT 1 = NOT USED 

BIT 2 = NOT USED 

BIT 3 = BUSY 

BIT 4 = CHANNEL END 

BIT 5 = DEVICE END 

BIT 6 = UNIT CHECK 

BIT 7 = CHANNEL 12 DETECTED 

********* *****4c4c^** ****************************************** ******** 



021 LEGAL 

IOCM 015 ZONECK 3 

024 SORW 

MA A A 090 NOTC 

029 SMOD 

036 WMOD 

MA A A 090 NOTC 



036 WMOD 



RDH H DA, B8 

STH I DAtSA 

BR IF HI BIT 4=0 

BR 

Z^DlnKEO 

BR IF HZ=0 

BR 

Z=DlaKQ2 

BR IF LZ^O 

Z=DlnK06 

BR IF LZ=0 

BR 

RDH T DA,9C 

Ti=Tl$K02 

Z=T1*-K0E 

BR IF LZNZ 



READ CONTROL BYTE 

SAVE I STAR 

BR IF M% OP LEGAL 

GO SET UP 05 STOP CODE 

TEST MODIFIER 

BR IF S OR W MdDIFIER 

GO SET ERROR STOP CODE 

BR IF S MODIFIER 

BR IF W MODIFIER 

GO SET ERROR STOP CODE 

SET SPACE SUPP FLAG 



ADOR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


IF 38 


7A62 


MKKK 


033 








STH T DA,9C 


1F3A 


2413 


MKKK 


034 








G0=0$K01 


IF3C 


9F24 


MKKK 


035 




044 


SETUP 


BR 


IF 14 


5E62 


MKKK 


036 


WMOD 






ROH H DA, 9C 


1F16 


FB1C 


MKKK 


037 




040 


NEXT 


BR IF HI BIT7-0 


IF 18 


76F2 


MKKK 


038 


FORMS 






STH D DA, BE 


1FIA 


9208 


MKKK 


039 




MJJJ 007 


GPIS1 4 


BR 


1FIC 


2493 


MKKK 


04 


NEXT 






G0=0$K09 


1FIE 


5A62 


MKKK 


041 








ROH T DA,9C 


LF20 


1B23 


MKKK 


042 








T1=T1*-K02 


IF22 


7A62 


MKKK 


043 








STH T DA,9C 


1F24 


76F2 


MKKK 


044 


SETUP 






STH D DA, BE 


1F26 


2683 


MKKK 


045 


TEST 






D0=0$K08 


1F28 


5AC2 


MKKK 


046 








RDH T DA, B8 


1F2A 


1BB3 


MKKK 


047 








T1=T1*-K0B 


1F2C 


FOBE 


MKKK 


048 




050 


NOT NAT 


BR IF LZNZ 


1F2E 


9978 


MKKK 


049 




MPRT 063 


NATV43 


BR 


IF3E 


5AC2 


MKKK 


050 


NOTNAT 






RDH T DA,B8 


IF40 


0B73 


MKKK 


051 








Z=T1*-K07 


IF 42 


F0C7 


MKKK 


052 




054 


XXXX 


BR IF LZ=0 


IF 44 


3C85 


MKKK 


053 








P0=P0$K80 


1F46 


5A92 


MKKK 


054 


XXXX 






RDH T DA, AA 


IF 48 


1A13 


MKKK 


055 








TO=TO*-KOl 


1F4A 


7A92 


MKKK 


056 








STH T DA, AA 


1F4C 


5E62 


MKKK 


057 


ADOR 






RDH H 0A,9C 


IF4E 


275 3 


MKKK 


05 8 








D1=0$K05 


IF 50 


3765 


MKKK 


059 








D1=D1$K60 


IF 52 


CE56 


MKKK 


060 




062 


IS 100 


BR IF HO BITO=0 


IF 54 


2720 


MKKK 


061 








D1 = D1+K20 


1F56 


5EA9 


MKKK 


062 


I SI 00 






TO=HO 


1F58 


1AE5 


MKKK 


063 








TO=TO*-KEO 


1F5A 


7AE2 


MKKK 


064 








STH T DA, BC 


1F5C 


8978 


MKKK 


065 




MAAA 133 


RESLCT 


BR 


0D28 


5E92 


MKKK 


066 


SETCMO 






RDH H DA,AA 


002A 


EB5C 


MKKK 


067 




070 


GOON 


BR IF HI BIT6=0 


0D2C 


26A3 


MKKK 


068 








DO=0$KOA 


0D2E 


AE80 


MKKK 


069 




MOOD 019 


SENSE 


BR 


0D5C 


4F4F 


MKKK 


070 


GOON 






GB/OUT=G0 


005E 


2B42 


MKKK 


071 








SET GA K^14 


0060 


FOEO 


MKKK 


072 


STATUS 


072 


STATUS 


BR IF GT3=0 


0062 


5F0F 


MKKK 


073 








Pi=GB/IN 


0064 


FD55 


MKKK 


074 




091 


BUSY 


BR IF PI BIT3=1 


0066 


2F05 


MKKK 


075 








Hl«0$K00 


0068 


7E92 


MKKK 


076 








STH H DA,AA 


0D6A 


5E62 


MKKK 


077 








RDH H DA, 9C 


006C 


E940 


MKKK 


078 




104 


UCK 


BR IF PI BIT6=l 


0D6E 


C931 


MKKK 


079 




086 


CENO 


BR IF PI BIT4=1 


00 70 


1F13 


MKKK 


080 








HUH1*-K01 


0072 


3F43 


MKKK 


081 








H1=H1$K04 


0074 


7E62 


MKKK 


082 








STH H DA, 9C 


0076 


2B48 


MKKK 


083 


BBBB 






SET GA K=44 


0D78 


021E 


MKKK 


084 








RST MMSK K«71 


0D7A 


AC4A 


MKKK 


085 




MLLL 012 


SVCIN 


BR 



CL0AD=*E40, EC LEVEL=1282 1i 
COMMENTS 



BR IF NOT FORMS AFTER CMND 
SAVE A STAR 

SET WRITE AND SPACE CMND 

RESET SS A SKIP FLAG 

SAVE D REGISTER 
SET PRINTER FLAG ON 



BR IF CHNL DEVICE 
GO TO NATIVE ROUTINE 
READ CONTROL BYTE 

BR IF 1443 MODE 
SET 1403 MODE 
RESET 

ERROR BIT 

ERROR BIT 
READ PRINTER ADDRESS BYTE 
SET COUNT LOW 
SET COUNT HIGH 
BR IF 100 POS 1403 
MODIFY COUNT HIGH TO 132 POS 
STRIP OFF 

UPPER 3 BITS 
SAVE UNIT ADDRESS 



BR IF NO UNIT CK IN BUFFER 
SET UP A SENSE CMND 

SET BUSS OUT 

CMND OUT 

WAIT FOR STATUS IN 

BR IF PRINTER BUSY 
CLEAR OLD STATUS 



BR IF UNIT CK ON 
BR IF CHANNEL END ON 
RESET FORMS AFTER BIT 
SET ACTIVE BIT ON 

SERVICE OUT 
ALLOW TRAPS 
GO TO DATA LOOP 



PAGE 209 



AODR 


WORD 


SEQUENCE NO, 


LABEL 


NEXTSEQ 


NEXTLAi 


OD30 


0939 


MKKK 


086 


CENO 


090 


NOATV 


QO 32 


5E62 


MKKK 


087 








0034 


3F43 


MKKK 


088 








0036 


7662 


MKKK 


089 








00 38 


80 OC 


MKKK 


090 


NOATV 


MB8B 075 


ENOOK 


0054 


D93B 


MKKK 


091 


BUSY 


095 


OEVENO 


00 56 


2B08 


MKKK 


092 


XYPP 






0058 


021E 


MKKK 


093 








00 5A 


8F1A 


MKKK 


094 




MBBB 047 


RETRY 


00 3A 


5662 


MKKK 


095 


06 VEND 






0D3C 


IF 43 


MKKK 


096 








0036 


CC44 


MKKK 


097 




100 


CKSTAT 


0040 


6B45 


MKKK 


098 




100 


CKSTAT 


0042 


16 65 


MKKK 


099 








0044 


F948 


MKKK 


100 


CKSTAT 


102 


N012 


0046 


3E25 


MKKK 


101 








0048 


7E62 


MKKK 


102 


N012 






00 4A 


6956 


MKKK 


103 




092 


XYPP 


004C 


2B08 


MKKK 


104 


UCK 






0046 


0216 


MKKK 


105 








0050 


26A3 


MKKK 


106 








OD52 


9F4C 


MKKK 


107 




057 


AODR 



******** 

* CROSS 
******** 



BR IF PI BCT5=1 
ROH H DA,9C 
H1=H1$K04 
STH H DA, 9C 
BR 

BR IF PI 8IT5=i 
SET GA K=40 
RST MMSK K=71 
BR 

ROH H DA,9C 
H1=H1*H<04 
BR IF PO 8IT0=0 
BR IF HI BiT6=l 
H0=H0*-K60 
BR IF Pi BIT7=0 
H0=H0$K20 
STH H 0A f 9C 
8R IF PI BIT6=0 
SET GA K=40 
RST MMSK K=71 
00=0$KOA 
BR 
************************** 

REFERENCE FOR CSECT MKKK * 
************************** 



CL0AD«*E40, EC LEVEL=1282il 
COMMENTS 

BR IF OEVICE ENO ON 
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SET ACTIVE BIT ON 

CONTROL CMND ENO 
BR IF OEVICE ENO ON 
SERVICE OUT 
ALLOW TRAPS 



RESET ACTIVE BIT 

BR IF 1443 

BR IF LAST CMND WAS SS OR SKIP 

RESET CH 9 A 12 BITS 

BR IF NO CH 12 BIT 

SET CH 12 ON 

BR IF NO UNIT CHECK 

SERVICE OUT 

ALLOW TRAPS 

SET SENSE ANO PRNTR 



^KKK 


017 


IOCM 


036 






HKKK 


021 


MKKK 


019 






MKKK 


024 


MKKK 


022 






MKKK 


029 


MKKK 


025 






MKKK 


036 


MKKK 


027 


MKKK 


032 


MKKK 


040 


MKKK 


037 






MKKK 


044 


MKKK 


035 


MPRT 


110 


MKKK 


045 


MJJJ 


026 


MJJJ 


030 


MKKK 


050 


MKKK 


048 






MKKK 


054 


MKKK 


052 






MKKK 


057 


MKKK 


1C7 


MQQQ 


043 


MKKK 


062 


MKKK 


060 






MKKK 


066 


MJJJ 


04 


MJJJ 


006 


MKKK 


070 


MKKK 


067 






MKKK 


072 


MKKK 


072 






MKKK 


086 


MKKK 


079 






MKKK 


090 


MKKK 


086 






MKKK 


091 


MKKK 


074 






MK KK 


092 


MKKK 


103 






MKKK 


095 


MKKK 


091 






MKKK 


100 


MKKK 


097 


MKKK 


098 


MKKK 


102 


MKKK 


100 






MKKK 


104 


MKKK 


078 
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MILL DESCRIPTIVE TEXT 



ENTRY POINT 
SVC IN 



NORMAL DATA LOOP ENTRY FOR HANDLING 1443 PRINTER 
DATA- 



AD OR 


WORD 


SEQUENCE NO. 


LABEL 






MLLL 


001 


T 






MLLL 


002 


* 






MLLL 


003 


* 






MLLL 


004 


* 






MLLL 


005 


* 






MLLL 


006 


* 




X 


MLLL 


007 


* 






MLLL 


008 


# 






MLLL 


009 


* 






MLLL 


010 


* 






MLLL 


Oil 


* 


2C4A 


EDEB 


MLLL 


012 


SVCIN 


2C4C 


FDCA 


MLLL 


013 




2C4E 


8E02 


MLLL 


014 




2C6A 


5F38 


MLLL 


015 


DATA 


2C6C 


CC5D 


MLLL 


016 




2C6E 


OFFB 


MLLL 


017 




2C70 


C4D9 


MLLL 


018 




2C72 


CF50 


MLLL 


019 


XLATE 


2C74 


1FC5 


MLLL 


02 


STRIP 


2C76 


2E75 


MLLL 


022 




2C78 


5BEO 


MLLL 


026 




2C7A 


4FBF 


MLLL 


02 7 




2C7C 


2B48 


MLLL 


02 8 




2C7E 


AC4A 


MLLL 


029 




2C58 


2B42 


MLLL 


030 


WMGM 


2C5A 


AC4A 


MLLL 


031 




2C50 


0FF5 


MLLL 


032 


CKFO 


2C52 


F0F4 


MLLL 


033 




2C54 


2FAB 


MLLL 


034 




2C56 


AC74 


MLLL 


035 




2C5C 


E865 


MLLL 


036 


UNIT03 


2C5E 


27FF 


MLLL 


037 


OECCT 


2C6Q 


C4D9 


MLLL 


038 




2C62 


AC72 


MLLL 


039 




2C64 


DF44 


MLLL 


040 


PTWM 


2C66 


2F45 


MLLL 


041 




2C68 


AC5E 


MLLL 


042 





NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

PRINTER DATA LOOP. KRAGER 
********************************************************************* 

EACH CHARACTER IS LOOKED UP IN A TRANSLATION TABLE LOCATED IN 
AUX STORAGE 7 AND THE CHARACTER AT THAT LOCATION IS SENT TO 
THE PRINTER. 

** NOTE ** AUX STG 7 MOVED TO AUX STG $ IF 24K MACHINE 

********************************************************************* 

WAIT FOR SERVICE IN 
OR STATUS IN 

READ B FIELD DATA 

BR IF 1403 

TEST CHARACTER 

BR IF WMGM 

BR IF SPECIAL CHAR 

REMOVE AND 1 BITS 

SET UP TLU ADDR 

TLU CHARACTER 

SET BUSS OUT 

SERVICE OUT 

COMMAND OUT 

TEST CHAR 

BR IF NOT - £ OR BLK 

ADD 10 TO CHAR 

BR IF PRINT WM CMND 

BR OUT IF COUNT = 

BR IF WM IN STORAGE 
SET BLANK CHAR 



015 


DATA 


BR IF GT2=1 


012 


SVC1N 


BR IF GT3=0 


047 


STATUS 


BR 

RDB HI V + l 


036 


UNIT03 


BR IF PO BITO^l 
Z^HIQKOF 


030 


WMGM 


BR IF Z=0 


032 


CKFO 


BR IF HI BITO^O 

H1=H1*-KC0 

H0=0$K70 

ROB Tl AS f H 

GB/0UT=T1 

SET GA K^44 


012 


SVCIN 


BR 

SET GA K*14 


012 


SVCIN 


BR 
Z=H1*-KF0 


020 


STRIP 


BR IF LZNZ 

HI=H1*K0A 


020 


STRIP 


BR 


040 


PTWM 


BR IF PO BIT6=l 
D1=D1*KFF 


030 


WMGM 


BR IF Z=0 


019 


XLATE 


BR 


043 


WM 


BR IF HI BIT 1=0 
H1=0$K40 


037 


DECCT 


BR 



ADDR, 

2C44 
2C46 
2C48 

0E02 
0E04 
0E06 
0E08 
OEOA 
OEOC 
QEOE 
0E14 
0EI6 
OE18 
OE1A 
OE IC 
OE1E 
OEiO 
0E12 



WORD SEQUENCE NO* LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



2FF5 
3F13 
AC5E 

5F0F 
0D8B 
F090 
CCOE 
1523 
F094 
8D0C 
2B08 
3400 
2C05 
5032 
56F2 
8D04 
2B02 
8D10 



MLLL 
MLLL 
MLLL 
MLLL 
MLLL 
MLLL 
MLLL 
MLLL 
MLLL 
MLLL 
MLLL 
MLLL 
MLLL 
MLLL 
MLLL 
MLLL 
MLLL 
MLLL 
MLLL 



043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 



WM 



STATUS 



END 
COMBOP 



STACK 



037 DECCT 



Hi=0$KF0 

Ht=Hl$K0i 

BR 



CL0AD=*E40 f EC LEVEL=128211 
COMMENTS 



SET UP Fl CHAR 
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060 
053 

054 
MBBi 075 



STACK 

END 

COMBOP 
END OK 



MLLL 


012 


MKKK 


085 


MLLL 


013 


MLLL 


015 


MLLL 


012 






MLLL 


019 


MLLL 


039 






MLLL 


020 


MLLL 


033 


MLLL 


035 


MLLL 


030 


MLLL 


018 


MLLL 


038 


MLLL 


032 


MLLL 


019 






MLLL 


036 


MLLL 


016 






MLLL 


037 


MLLL 


042 


MLLL 


045 


MLLL 


040 


MLLL 


036 






MLLL 


043 


MLLL 


040 






MLLL 


047 


MLLL 


014 






MLLL 


053 


MLLL 


050 






MLLL 


54 


MLLL 


052 






MLLL 


060 


MLLL 


049 







MLLL 029 



PI*GB/IN 

Z=PiaK08 

BR IF LZNZ 

BR IF PO BITO^O 

G1=G1*~K02 

BR IF LZNZ 

BR 

SET GA K=40 

SET MODE K=*80 

PO^OSKOO 

RDH U 0A,8E 

RDM D DA, BE 

BR 

SET GA K=*10 

BR 
************ ********** *********** * 

* CROSS REFERENCE FOR CSECT MLLL * 
********************************** 

MLLL 031 



ICYC 213 OPROW 



MBBB 077 END IT 



GET STATUS 

CK STATUS 

BR IF OTHER THAN CE 

BR IF 1443 

REMOVE PRINT BIT 

BR IF C0M8INED OP 

GO DO NORMAL 1443 END 
SERVICE OUT 
SET CPU MODE 
CLEAR PO REG 
RESTORE A STAR 
RESTORE REGISTER 

STACK STATUS 



CLGAD=*E40, EC L£VEL=128211 PAGE 213 



MMMM DESCRIPTIVE TEXT 



ENTRY POINTS 



CKDATA 



SENSE 



ENTRY HERE IS FROM MODIFIER DECODE AND INITIAL 
SELECTION WHEN SENSE OPERATION IS DECODED* 



ENTRY HERE IS FROM THE SENSE COMMAND AND STATUS 
DECODE ROUTINE FOLLOWING SENSE COMMAND PRINTER 
OPERATION DECODE*. 



ADDR 



WORD SEQUENCE NO* LABEL 







MMMM 


001 


T 






MMMM 


002 


* 






MMMM 


003 


* 






MMMM 


004 


* 






MMMM 


005 


* 






MMMM 


006 


* 






MMMM 


007 


♦ 






MMMM 


008 


♦ 






MMMM 


009 


* 






MMMM 


010 


* 






MMMM 


Oil 


* 






MMMM 


012 


* 






MMMM 


013 


* 






MMMM 


014 


* 






MMMM 


015 


♦ 






MMMM 


016 


* 


0A88 


AE80 


MMMM 


017 


SENSE 


2C80 


5A92 


MMMM 


018 


CKDATA 


2C82 


2B05 


MMMM 


019 




2C84 


7A92 


MMMM 


020 




2C86 


CCOA 


MMMM 


021 




2C88 


D90D 


MMMM 


022 




2C8A 


FD12 


MMMM 


023 


N0T03 


2C8C 


5A92 


MMMM 


024 


ERROR 


2C8E 


3A13 


MMMM 


025 




2C90 


7A92 


MMMM 


02 6 




2C92 


F92E 


MMMM 


027 


EQUPOK 


2C94 


5E62 


MMMM 


028 




2C96 


3E45 


MMMM 


02 9 




2C98 


7E62 


MMMM 


030 




2C9A 


DD31 


MMMM 


031 




2C9C 


3400 


MMMM 


032 


FORGET 


2C9E 


02 IE 


MMMM 


033 




2CAO 


2C05 


MMMM 


034 




2CA2 


A638 


MMMM 


03 5 




2CAE 


DD24 


MMMM 


036 


NOTCH 9 


2CBO 


3 A 99 


MMMM 


03 7 


INVREQ 


2CB2 


5ABS 


MMMM 


038 





NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

SENSE STATUS DECODE. KRAGER 
*********************** ***************** ***************************** 

1443 SENSE STATUS BYTE BITS = 
BIT - COMMAND REJECT 
BIT 1 = NOT READY 
BIT 2 = BUSS OUT CHECK 
BIT 3 = EQUIPMENT CHECK 

BITS 4&5 INDICARE TYPEBAR SIZE 
BIT 6 = NOT USED 
BIT 7 = CHANNEL 9 DETECTED 

********************************************************************* 



MDDD 019 SENSE 



023 N0T03 

024 ERROR 
027 EQUPOK 



036 N0TCH9 



037 INVREQ 



MQQQ 015 DECMT 
043 NOTINV 



BR 

RDH T DA, 

Ti=0$K00 

STH T DA, 

BR IF PO 

BR IF PI 

BR IF PI 

RDH T DA, 

T0=T0$K01 

STH T DA, 

BR IF PI 

RDH H DA, 

H0=H0$K40 

STH H DA, 

BR IF PI 

SET MODE 

RST MMSK 

PO^OSKOO 

BR 

BR IF PI 

T0=0-K90 

T1 = T0 



AA 

AA 

BITO=0 

BIT5=l 

BIT3=0 

AA 

AA 

BIT7=0 

9C 

9C 
BITl=i 

K=80 
K=7i 



BIT 1*0 



GO ISSUE COMMAND 



BR IF 1443 

BR IF UCS ERROR 

BR IF NO EQUIP CHECK 

SET 

PRINTER 

ERROR BIT ON 
BR IF NOT CHANNEL 9 
SET 

CHANNEL 

9 BIT ON 
BR IF NOT READY 
SET CPU MOOE 
ALLOW TRAPS 



BR IF PRINTER READY 

SET INV REQ STOP 

SET REMOTE RESTART ON 



AODR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E40, EG LEV£L=1282 1l 
COMMENTS 
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2CB4 


7AF2 


MMMM 


039 


2CB6 


02 IE 


MMMM 


04 


2CB8 


2C05 


MMMM 


041 


2CBA 


ACBC 


MMMM 


042 


2CA4 


5EC2 


MMMM 


043 


2CA6 


CE1C 


MMMM 


044 


2CA8 


0AE3 


MMMM 


045 


2CAA 


F09O 


MMMM 


046 


2CAC 


8B78 


MMMM 


047 



NOTINV 



IS 010 


STOP 


032 


FORGET 


032 


FORGET 


0D 052 


CKSTOP 



MMMM 


017 


MJJJ 


005 


MMMM 


018 


MDDD 


033 


MMMM 


023 


MMMM 


021 


MMMM 


024 


MMMM 


022 


MMMM 


027 


MMMM 


023 


MMMM 


032 


MMMM 


044 MMMM 046 


MMMM 


036 


MMMM 


027 


MMMM 


037 


MMMM 


031 


MMMM 


043 


MMMM 


036 



STH T DA, BE 
RST MMSK K=71 
P0=0$K00 
BR 

RDH H DA, B8 
BR IF HO BITO^O 
Z=T0*-K0E 
BR IF LZ=0 
BR 
************************** ******* * 

* CROSS REFERENCE FOR CSECT MMMM * 
********************************** 



STORE STOP CODE 
ALLOW TRAPS 



BR IF I/O CK STOP SW OFF 



AD OR 



WORD SEQUENCE NO. LABEL 







MNNN 


001 


T 






MNNN 


002 


* 


03 A6 


9E72 


MNNN 


003 


BUSY1 


O3A0 


5E62 


MNNN 


004 


BUSY 


03A2 


DB27 


MNNN 


005 




03A4 


8D7C 


MNNN 


006 





MNNN 003 
MNNN 004 



MNNN 005 
10CM 055 



NEXTSEQ NEXTLABEL STATEMENT 

BR ON PRINTER BUSY, KRAGER 

IUBR 002 UNCDBR BR 

ROH H 0A,9C 
003 BUSYl BR IF HI BITS^i 

ICYC 037 H1STRT BR 

* CROSS REFERENCE FOR CSECT MNNN * 



CL0AD^*E40 f EC LEVEL=12B2ll PAGE 215 
COMMENTS 



BR IF ACTIVE BIT ON 



MPPP DESCRIPTIVE TEXT 



ENTRY POINT 



FORMS 



THIS IS THE EXCLUSIVE ENTRY POINT, USED WHEN A 
FORMS OPERATION IS OECODEO IN I-CYCLES. 
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ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 






MPPP 


001 


T 


FORMS 


OP DECODE 


KRAGER 








MPPP 


002 


♦ 










2874 


0020 


MPPP 


003 


FORMS 






RST S6 




2876 


76F2 


MPPP 


004 








STH DA, BE 


SAVE REGISTER 


2878 


7032 


MPPP 


005 








STH U 0A,8E 


SAVE A STAR 


28 7A 


57F9 


MPPP 


006 








H1=D1 




287C 


2E05 


MPPP 


007 








HO=0$KOO 




287E 


5FE0 


MPPP 


008 








ROB Hi AS,H 


CONVERT MODIFIER TO BCD 


2880 


EF2E 


MPPP 


009 




031 


NORA 


BR IF HI BIT 2=0 


BR IF NO ZONES OR A ZONE 


2882 


FfZQ 


MPPP 


010 




036 


80NLY 


BR IF HI BIT 3=0 


BR IF 8 ZONE ONLY 


2884 


2020 


MPPP 


Oil 








SET S6 


BOTH ZONES -SKIP AFTER- 


2886 


3F15 


MPPP 


012 


0RIN3 






H1=H1$K10 


SET SKIP BIT ON 


2888 


6FF3 


MPPP 


013 


SHI FT 






Hi=Hl+Hi 


SHIFT 


288A 


6FF3 


MPPP 


014 








H1=H1*H1 


NUMER IC 


28 8C 


6FF3 


MPPP 


015 








HI=H1+H1 


BITS LEFT 


28 8E 


5A62 


MPPP 


016 








RDH T 0A,9C 


READ FORMS BYTE 


2890 


18F5 


MPPP 


017 








Ti=Tl*-KFO 


REMOVE 


2892 


1B83 


MPPP 


018 








T1=T1*-K08 


UPPER 5 BITS 


2894 


6BF5 


MPPP 


019 








Tl=Tl$Hl 


OR MARKER BITS AND COMND 


2896 


E1B7 


MPPP 


020 




028 


AFTER 


BR IF S6=l 


BR IF CMND AFTER 


2898 


1B13 


MPPP 


021 








Tl=Tl*-K01 


RESET FORMS AFTER BIT 


289A 


7A62 


MPPP 


022 








STH T 0A,9C 




289C 


56C2 


MPPP 


023 








RDH D 0A,B8 


READ CONTROL BYTE 


28 9E 


26B3 


MPPP 


024 








DO=0$KOB 


SET PRINTER CONTROL CMND 


28A0 


C324 


MPPP 


02 5 




027 


N003 


BR IF Dl BIT 4=0 


BR IF 1443 


28A2 


3C85 


MPPP 


02 6 








P0= PG$ K80 


SET 1403 FLAG 


28A4 


92 C 8 


MPPP 


027 


N003 


MJJJ 007 


0P-IS1 4 


BR 




28B6 


3B13 


MPPP 


02 8 


AFTER 






T1=T1$K01 


SET FORMS AFTER BIT 


28B8 


7A62 


MPPP 


02 9 








STH T 0A t 9C 




28BA 


8D10 


MPPP 


030 




MBBB 077 


ENDIT 


BR 




28AE 


FF27 


MPPP 


031 


NORA 


035 


SET 


BR IF HI BIT 3=1 


BR IF A ZONE 


2 8 BO 


OFF 5 


MPPP 


032 








Z=H 1*-KF0 




28 B2 


F086 


MPPP 


033 




012 


0RIN3 


BR IF LZN2 


BR IF NOT BLANK MODIFIER 


2884 


80 OC 


MPPP 


034 




MBBB 075 


ENDOK 


BR 




28A6 


2020 


MPPP 


035 


SET 






SET S6 


SET FORMS AFTER 


28A8 


1FC3 


MPPP 


036 


BONLY 






Hl=Hi*-KOC 


REMOVE 4 AND 5 BITS 


28AA 


1F35 


MPPP 


03 7 








H1=H1*-K30 


REMOVE 2 £3 BITS 


2 8 AC 


A888 


MPPP 


038 




13 


SHIFT 


BR 





ADD* WORD SEQUENCE NO. LABEL 

MPPP 039 * 



NEXTSEQ NEXTLA8EL STATEMENT 



CL0AD=*E40 f EC LEVEL=1282 11 
COMMENTS 
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MPPP 


003 


ICYC 


307 


MPPP 


012 


MPPP 


033 


MPPP 


013 


MPPP 


038 


MPPP 


027 


MPPP 


025 


MPPP 


028 


MPPP 


020 


MPPP 


031 


MPPP 


009 


MPPP 


035 


MPPP 


031 


MPPP 


036 


MPPP 


010 



********************************** 

* CROSS REFERENCE FOR CSECT MPPP * 
********** *********** * ************ 



MPRT DESCRIPTIVE TEXT 
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ENTRY POINTS 



PRTCMD 



NATV43 



THIS IS THE NORMAL ENTRY FROM I -CYCLES FOR 1403 
PRINTER INSTRUCTIONS 2, 3, 6, AND 7* 



ENTRY HERE IS FROM THE MKKK ROUTINE FOR 1443 
OPERATIONS THAT ARE TO BE EXECUTED ON THE INTE- 
GRATED (NATIVE) 1403 PRINTER* 



SOSTRE 



BRCHN9 
PR BUSY 
BRCH12 
ERROR 



THIS IS THE ENTRY FROM THE INRU ROUTINE FOR THE 
CONDITION SOFT SOFT STOP LOOP, REQUEST UP. 



THESE FOUR ENTRY POINTS ARE FROM IOCM TO HANDLE 
THE RESPECTIVE BRANCH INSTRUCTIONS FOR THE CON- 
DITIONS CHANNEL 9, BUSY, CHANNEL 12 f AND ERROR. 



ADDR 



WORD SEQUENCE NO. LABEL 



MPRT 


001 


T 


MPRT 


002 


* 


MPRT 


003 


* 


MPRT 


004 


* 


MPRT 


005 


♦ 


MPRT 


006 


* 


MPRT 


007 


* 


MPRT 


008 


* 


MPRT 


009 


* 


MPRT 


010 


* 


MPRT 


Oil 


* 


MPRT 


012 


* 


MPRT 


013 


* 


MPRT 


014 


* 


MPRT 


015 


* 


MPRT 


016 


* 


MPRT 


017 


* 


MPRT 


018 


* 


MPRT 


019 


* 


MPRT 


020 


* 


MPRT 


021 


* 


MPRT 


022 


* 


MPRT 


023 


* 


MPRT 


024 


* 


MPRT 


02 5 


* 


MPRT 


026 


* 


MPRT 


02 7 


♦ 


MPRT 


028 


♦ 


MPRT 


029 


♦ 


MPRT 


03 


* 


MPRT 


031 


♦ 


MPRT 


032 


* 



NEXTSEQ NEXTLABEL STATEMENT 

** 1403 COMPATIBILITY ROUTINE 



COMMENTS 

- WOLFGANG ROHDE - 



REGISTER USAGE 



GO 
Tl 
00 

Dl 
PO 



PI 



PRINTER /360 OP CODE 

DATA COUNT i 100 OR 132) 

1400 STATUS REGISTER 

MODIFIER 

NATIVE PRINTER STATUS 

BIT = 132 PRINT POSITIONS 

IF = 100 PRT POS BY 1403 
120 PRT POS BY 14431 

CHNL 9 SENSED 

CHNL 12 SENSED 

INVALID CHANNEL C TEMPORARILY) 

SECONDARY BIT 



1 

2 
3 

4 
5 
6 

7 



DEVICE END 

PRINT WORDMARK 

PRINTER ERROR 
PO BITS 3-7 USED IF NATIVE PRINTER IS 
USED. IF CHNL PRINTER IS USED BITS 3-7 
CONTAINS UNIT ADDRESS 
PRINTER CONDITIONS FROM BUMP 



BIT « 1403 PRINTER 

PRINTER ON CHANNEL CONNECTED 



GO TO SET UP AFTER RMT/RST 
FROM GENERAL STOP LOOP 
LAST CMD WAS SKIP OR SPC SUP 
FORMS AFTER COMMAND 
V0,1 DATA ADDRESS IHEXI 



ENTRY FROM 2,3,6 OR 7 OP CODE 



AD OR 


WORD 


SEQUENCE NO* 


LABEL 


NEXTSEQ 


NEXTLA8EL 


STATEMENT 


199C 


5EC2 


MPRT 


033 


PRTCMO 






RDH H DA, B8 


199E 


CB23 


MPRT 


034 




36 


VALID 


BR IF HI BIT 4=1 


19AO 


9286 


MPRT 


035 




IOCM 015 


ZONECK 3 


BR 


19A2 


7032 


MPRT 


036 


VALID 






STH U DA, 8E 


19A4 


5062 


MPRT 


03 7 








RDH U DA,9C 


19A6 


1000 


MPRT 


03 8 








RST SO 


19A8 


5149 


MPRT 


03 9 








GO^Ul 


19 AA 


2005 


MPRT 


040 








P1=0$K00 


L9AC 


F034 


MPRT 


041 




045 


NOFORM 


BR IF GO BIT7=0 


19AE 


1113 


MPRT 


042 








U1=U1*-K01 


1980 


1463 


MPRT 


043 








GO=GO*-K06 


19B2 


99B6 


MPRT 


044 




046 


DONE 


BR 


19B4 


2493 


MPRT 


045 


NOFORM 






GO=0$K09 


19B6 


0677 


MPRT 


046 


DONE 






Z=D0*-K77 


19 88 


C4BC 


MPRT 


047 




049 


MODI F I 


BR IF DYN BITO^O 


19BA 


S980 


MPRT 


048 




067 


VALFOR 


BR 


19 BC 


2BC3 


MPRT 


049 


MODI F I 






-T1*0*K0C 


19BE 


3B45 


MPRT 


050 








Ti=Tl$K40 


19C0 


6B71 


MPRT 


051 








TUTlnOl 


19C2 


C4C8 


MPRT 


052 




055 


TESTMO 


BR IF ZNZ 


19C4 


2C23 


MPRT 


053 








P0=0$K02 


19C6 


9980 


MPRT 


054 




067 


VALFOR 


BR 


19C8 


2B23 


MPRT 


055 


TE STMO 






T1=0$K02 


19CA 


38E5 


MPRT 


056 








T1=T1$KE0 


19CC 


6B71 


MPRT 


057 








Tl=TlnDl 


19CE 


C480 


MPRT 


058 




067 


VALFOR 


BR IF ZNZ 


1900 


3123 


MPRT 


059 








U1=U1$KQ2 


1902 


1113 


MPRT 


060 








U1=U1*-K01 


1904 


2413 


MPRT 


061 








G0=0$K01 


1906 


99 80 


MPRT 


062 




067 


VALFOR 


BR 


1978 


56F2 


MPRT 


063 


NATV43 






RDH D DA, BE 


197A 


1000 


MPRT 


064 








RST SO 


19 7C 


2C05 


MPRT 


065 








PO=0$KOO 


19 7E 


5062 


MPRT 


066 


RESTRT 






RDH U DA,9C 


1980 


5EC2 


MPRT 


067 


VALFOR 






RDH H DA,B8 


19 82 


1183 


MPRT 


068 








Ul=Ul*-K08 


1984 


6015 


MPRT 


069 








P1=P1$U1 


19 86 


IF 33 


MPRT 


070 








Hi=Hl*-K03 


19 88 


4FD3 


MPRT 


071 








P1=H1XH+PIL 


19 8A 


C58E 


MPRT 


072 




074 


NOT I NT 


BR IF S0=0 


19 8C 


128E 


MPRT 


073 








RTN 


19 8E 


54A9 


MPRT 


074 


NOTINT 






T0=G0 


1990 


1A83 


MPRT 


075 








T0=T0*-K08 


1992 


0A3B 


MPRT 


076 








Z=T0aK03 


1994 


F098 


MPRT 


077 




079 


SETUP 


BR IF LZNZ 


1996 


A938 


MPRT 


078 




101 


CKCHNL 


BR 


1998 


C059 


MPRT 


079 


SETUP 


081 


AOORSU 


BR IF PI BITO^l 


199A 


99E4 


MPRT 


080 




087 


A0R43 


BR 


1908 


5202 


MPRT 


081 


ADDRSU 






RDH V DA, 88 


190 A 


2BC7 


MPRT 


082 








T1=0$KCC 


19DC 


1B5B 


MPRT 


083 








Tl=TlaK05 


190E 


2A05 


MPRT 


084 








TO=0$KOO 


19E0 


63BB 


MPRT 


085 








V10Vi*Ti 



CL0AD=*E40, EC LEVEL=128211 
COMMENTS 

READ OUT TO CHECK FOR NUMERIC 

OP CODE 
GO TO DISPLAY INVALID OP CODE 
SAVE A STAR 
READ OUT PRT CONTROL BYTE 

SET TEMPORARY FORMS INFORMATION 
RESET STATUS REGISTER 
BR IF NO FORMS AFTER 
RESET FORMS AFTER BIT 
BLANK OUT INDICATION BITS 

SET UP PRINT WITH SINGLE SPACE 
TEST FOR OP CODE WITH MODIFIER 
BR IF 12 OR 15 OP LENGTH 

SET UP FOR TEST PRINT WM 



BR IF NOT PRINT WM 
SET PRINT WM BIT 

SET UP FOR TEST SPACE SUP MODI F I 



BR IF NOT SPACE SUPPRESS MODIF 
SET PRINT W SPACE SUPPRESS 
RESET FORMS AFTER 
SET UP WRITE CMD 

RESTORE D0,D1 

SET PO TO ZERO 

READ OUT PRT CONTROL BYTES 

START TO ASSEMBLE STATUS BITS 



Hi= HHHH HHOO 

P|»HHOO PPPP 

BR IF NOT FROM INTV REQUIRED 

BACK TO INTV REQ ROUTINE 

SET 4BIT TO ZERO 

SET UP TO TEST IMMEDIATE CMD 

BR IF NOT IMMEDIATE CMD 

GO TO CHECK SKIP CHANNEL 

BR IF 1403 PRINTER IS DEFINED 

SKIP ADDRESS SET UP 

READ OUT BIAS CONSTANT 

SET Tl TO C9 DEC » 201 
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SET UP DATA ADDRESS 



AD OR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


19E2 


62A0 


MPRT 


086 








V0C=V0+T0*C 


19E4 


2B67 


MPRT 


087 


A0R43 






Tl=0$K66 


19E6 


IB 23 


MPRT 


088 








T1=T1*-K02 


19E8 


A 92 2 


MPRT 


089 




090 


PTCNT1 


BR 


2922 


0075 


MPRT 


090 


PTCNT1 






Z=U0*-K70 


29 24 


E0A9 


MPRT 


091 




093 


PRTCNT 


BR IF HZ=0 


2926 


1BED 


MPRT 


092 








Tl=TlaKE0 


2928 


CD33 


MPRT 


093 


PRTCNT 


098 


SKPTST 


BR IF PI BIT0=l 


292A 


0075 


MPRT 


094 








Z=U0*-K70 


292C 


E0B2 


MPRT 


095 




098 


SKPTST 


BR IF HZNZ 


29 ZE 


2875 


MPRT 


096 








T1=0$K70 


2930 


3B83 


MPRT 


097 








T1=TUK08 


2932 


DD45 


MPRT 


098 


SKPTST 


107 


NOTNTV 


BR IF Pi BIT 1=1 


29 34 


C442 


MPRT 


099 




106 


N0SKP1 


BR IF GO BITO=0 


29 36 


CD42 


MPRT 


100 




106 


NQSKP1 


BR IF Pi BITO-0 


29 38 


54E9 


MPRT 


101 


CKCHNL 






HO* GO 


293A 


1E85 


MPRT 


102 








H0=H0*-K80 


29 3C 


2E9F 


MPRT 


103 








H0=H0+K99 


293E 


F4C2 


MPRT 


104 




106 


NOSKPl 


BR IF DYN BIT 3=0 


2940 


3C17 


MPRT 


105 








P0=P0$K11 


2942 


D006 


MPRT 


106 


N0SKP1 


111 


SIOROU 


BR IF Pi BIT 1=0 


2944 


7062 


MPRT 


107 


NOTNTV 






STH U 0A f 9C 


2946 


3C85 


MPRT 


108 








P0=P0$K80 


2948 


1615 


MPRT 


109 








D0=D0*-K10 


294A 


9F24 


MPRT 


110 




MKKK 044 


SETUP 


BR 


2906 


6C05 


MPRT 


ill 


SIOROU 






P0=P0$U0 


2908 


3482 


MPRT 


112 


RETRYO 






SET MODiE K=98 


290A 


0040 


MPRT 


113 








RST S5 


290C 


DE9B 


MPRT 


114 




116 


READY1 


BR IF PRS BIT 1=1 


290E 


92AE 


MPRT 


115 


FIXME 


243 


INTREQ 


BR 


29 1A 


D81F 


MPRT 


116 


REA0Y1 


118 


TSTERR 


BR IF PO BIT5=1 


291C 


A910 


MPRT 


117 




120 


SECBIT 


BR 


291E 


F804 


MPRT 


118 


TSTERR 


125 


STRSIO 


BR IF PO BIT7=0 


2920 


95 4C 


MPRT 


119 




326 


PRTERR 


BR 


2910 


C815 


MPRT 


120 


SECBIT 


122 


WAITDE 


BR IF PO BIT4=i 


2912 


9468 


MPRT 


121 




399 


DISCON 


BR 


2914 


CE90 


MPRT 


122 


WAITDE 


120 


SECBIT 


BR IF PRS BIT 0=0 


2916 


DE8E 


MPRT 


123 




115 


FIXME 


BR IF PRS BIT1=0 


2918 


SBFE 


MPRT 


124 




283 


CLRDEV 


BR 


2904 


A650 


MPRT 


125 


STRSIO 


126 


CONSIO 


BR 


26 50 


5E92 


MPRT 


126 


CONSiO 






RDH H 0A,AA 


26 52 


1E13 


MPRT 


127 








HO=HO*-KOI 


2654 


7E92 


MPRT 


128 








STH H DA, AA 


26 56 


CD64 


MPRT 


129 




136 


SKIP43 


BR IF PI BITO=0 


26 58 


1D23 


MPRT 


130 








P1=P1*-K02 


265A 


04 IB 


MPRT 


131 








Z=G0aK01 


265C 


C4E3 


MPRT 


132 




135 


SSCMND 


BR IF Z=0 


265E 


C472 


MPRT 


133 




143 


NGSKP 


BR IF GO BITO=0 


2660 


1X65 


MPRT 


134 








Pd=P0*-K6O 


2662 


3023 


MPRT 


135 


SSCMND 






P1=P1$K02 


2664 


04E0 


MPRT 


136 


SKIP43 






Z=G0nKE0 


2666 


EOEA 


MPRT 


137 




139 


TN012 


BR IF HZNZ 


2668 


3C25 


MPRT 


138 








P0=P0$K20 



CL0AD=*E40, EC LEVEL=1282 11 
COMMENTS 



SET DATA COUNT TO DEC 100 

GO AHEAD 

SET UP FOR TEST Bit 

BR IF 100 PRINT POSITIONS 

CHANGE COUNT TO 132 PRINT POS 

BR IF 1403 IS DEFINED 

BR IF NOT 120 PRINT POSITIONS 
CHANGE COUNT TO 120 PRT POS 

BR IF NOT NATIVE PRINTER 

BR IF NO SKIP 

BR IF 1443 PRINTER 



CHECK SKIP CHNL VALUE 

BR IF VALID CHANNEL 

SET INVALID SKIP BIT = PRT ERR 

BR IF NATIVE PRINTER 

STORE PRINTER CONDITIONS 

SET B STAR VALID 

GO TO CHANNEL PRINTER 

PUT STATUS IN PO 

SET 1401 AND 1403 MODE 

BR IF READY 

GO TO INTV REQUIRED ROUTINE 

BR ON DE IN NATIVE PRT STATUS 

BR IF NO PRINTER ERROR 

GO TO ERROR ROUTINE 

BR IF SECONDARY BIT I S ON 

NO DE AND NO SECONDARY BIT 

BR IF DE NOT YET UP 

CHECK READY AGAIN 

DE UP GO TO LOOK FOR STATUS 



RESET PTR ERROR BIT 

BR IF 1443 

RESET SS OR SKIP LAST FLAG 

BR IF SPACE SUPP CMNO 
BR IF NOT A SKIP CMND 
RESET CH 9 AND 12 FLAGS 
SET SS OR SKIP LAST FLAG 

BR IF NOT SKIP TO CH 12 
SET CH 12 FLAG ON 
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ADDR 


WORD 


S6QU6NC6 NO. 


LAB6L 


N6XTS6Q 


NEXTLABEL 


STAT6M6NT 


266A 


04CD 


MPRT 


139 


TN012 






Z=GOaKCO 


266C 


E0F2 


MPRT 


140 




143 


NOSKP 


BR IF HZNZ 


2666 


CG72 


MPRT 


141 




143 


NOSKP 


8R IF GO BIT4=0 


2670 


3C45 


MPRT 


142 








P0=P0$K4O 


2672 


EC77 


MPRT 


143 


NOSKP 


145 


X1A 


BR IF GO BIT6=i 


2674 


8126 


MPRT 


144 




172 


WRTCMO 


BR 


2676 


404F 


MPRT 


145 


X1A 






PROGO 


2678 


1D00 


MPRT 


146 








RST PRA K=80 


267A 


818C 


MPRT 


147 




150 


SEBUSY 


BR 


0188 


5662 


MPRT 


148 


STRPRT 






ROH DA,8C 


018A 


3D00 


MPRT 


149 








SET PRA K=80 


018C 


2D02 


MPRT 


150 


S6BUSY 






SET PRA K=10 


0186 


1C63 


MPRT 


151 








P0=P0*H<06 


0190 


3C83 


MPRT 


152 








P0=P0$K08 


0192 


5032 


MPRT 


153 








RDH U 0A f 8E 


0194 


1D97 


MPRT 


154 








P1=P1*~K99 


0196 


7C62 


MPRT 


155 








STH P DA,9C 


0198 


3400 


MPRT 


156 








SET MOOE K=80 


019A 


2C05 


MPRT 


157 








P0=0$K00 


019C 


5EC2 


MPRT 


158 








ROH H DA, B8 


0196 


CB23 


MPRT 


159 




161 


PRENDO 


BR IF HI BIT 4=1 


01AO 


80 7C 


MPRT 


160 




ICYC 037 


HISTRT 


BR 


01A2 


05AB 


MPRT 


161 


PRENDO 






Z=GlaK0A 


01A4 


FOAO 


MPRT 


162 




166 


PREN01 


BR IF LZ=0 


01A6 


1523 


MPRT 


163 








Gi=Gl*-K02 


01A8 


FOAD 


MPRT 


164 




166 


PR6N01 


BR IF DYN BIT 7*1 


01 AA 


8D20 


MPRT 


165 




ICYC 207 


VLDAOR 


BR 


01AC 


1525 


MPRT 


166 


PREND1 






Gi=Gl*-K20 


01AE 


A5AA 


MPRT 


168 




LOPO 035 


TEST BR 


BR 


0126 


40 4F 


MPRT 


172 


WRTCMD 






PRC=GO 


0128 


1000 


MPRT 


173 








RST PRA K=80 


01 2 A 


7662 


MPRT 


174 








STH 0A f BC 


012C 


2785 


MPRT 


175 








Di=0$K80 


0126 


274B 


MPRT 


176 








Di=Dl*K04 


0130 


2613 


MPRT 


177 








DO-OS KOI 


0132 


2A25 


MPRT 


178 








T0=0$K20 


0134 


2ACB 


MPRT 


179 








TO=TQ*KOC 


0136 


2675 


MPRT 


181 








H0=0$K70 


0138 


26AB 


MPRT 


185 








H0=H0+K0A 


013A 


20A7 


MPRT 


186 








UO=0$KAA 


013C 


20FF 


MPRT 


187 








U0=U0 4-KFF 


0136 


A1B6 


MPRT 
MPRT 


188 
189 


* 


190 


PRBULO 


BR 


21B6 


5F38 


MPRT 


190 


PRBULO 






ROB HI V+l 


21C0 


C045 


MPRT 


191 




193 


NATV03 


BR IF PI BIT0=1 


21C2 


OF 34 


MPRT 


192 




204 


NOT W MA 


BR IF HI BIT 1=0 


21C4 


6851 


MPRT 


193 


NATV03 


200 


PRTWMA 


BR IF PO BIT6=1 


21C6 


0F75 


MPRT 


194 


XF6R43 






Z=Hl*-K70 


21C8 


C4CC 


MPRT 


195 




197 


NOSPEC 


BR IF ZNZ 


21CA 


3FA3 


MPRT 


196 


BLKTBK 






HI=H1$K0A 


21CC 


3FC5 


MPRT 
MPRT 


197 

198 


NO SPEC 
* 






H1=H1$KC0 


21C6 


A176 


MPRT 


199 




209 


OATAXF 


BR 



CLQAD=*E40, EC LEVEL=128211 
COMMENTS 



BR IF NOT SKIP TO CH 9 
BR IF NOT SKIP TO CH 9 
SET CH 9 FLAG ON 
BR IF CTRL IMMEO CHND 

LOAD CARRIAGE DATA 
RESET EXT S6NS6 LATCHES 

RELOAD D REGISTER 

SET PRINT GATE LATCH 

SET BUSY LATCH 

RESET DE AND PRT WM BIT 

SET SECONDARY BIT 

GET A STAR 
RESET CONTROL BITS 
STORE STATUS INTO BUMP 
RESET 1403 MOOE 



BR IF 1403 PRINTER 

1440 GO BACK TO I -CYCLES 

BR IF CONTROL COMMAND 
SUBTRACT 2 FROM OP COOE 
BR IF NO 3,6 OR 7 OP CODE 
GO TO EXECUTE NEXT 10 OP 
RESET OP CODE 

LOAD CARRIAGE DATA 

RESET EXTERNAL SENSE LATCHES 

STORE D REGISTER 
SET PLB COUNT TO DEC 132 

SET PLBAR COUNT 01 

SET PLBAR ADR CONSTANT 2C DEC 44 

PLB TABLE ADDR CONST 7A 



SET UP ADDR CONST A9 
BR TO PRINT BUFFER LOAD 

READ DATA CHARACTER 
BR IF 1403 IS DEFINED 
BR IF CHARACTER HAS A WM 
BR IF PRINT WM 

TEST IF CHARACTER IS OXXX 0000 
BR IF NOT 
ADJUST FOR TLU 
OR IN WM-BIT AND ADJUST FOR 
TABLE LOOK UP* ADR 11XX YYYY 



PAGE 221 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL STATEMENT 


21DG 


DF3B 


MPRT 


200 


PRTWMA 


207 


NOWOMA 


BR IF HI BIT 1=1 


21D2 


2FF5 


MPRT 


2 01 








H1=0$KF0 


21D4 


3F13 


MPRT 


2 02 








H1=H1$K01 


21D6 


A176 


MPRT 


2 03 




209 


OATAXF 


BR 


21B4 


OFFB 


MPRT 


204 


NQTWMA 






Z=H1QK0F 


2186 


C4C6 


MPRT 


205 




194 


XFER43 


BR IF ZNZ 


21B8 


3025 


MPRT 


206 








P1=P1$K20 


21 BA 


2F45 


MPRT 


207 


NOWOMA 






Hi=0$K40 


21BC 


A1CA 


MPRT 


208 




196 


BLKTBK 


BR 


2176 


4F6F 


MPRT 


209 


OATAXF 






PR=00 


2178 


2D 04 


MPRT 


210 








SET PR A K=20 


21 7A 


51E0 


MPRT 


211 








ROB Ul AS,H+G 


217C 


4B1F 


MPRT 


212 








PRQ=U1 


21 7E 


2BFF 


MPRT 


213 








T1=T1+KFF 


2180 


C498 


MPRT 


214 




218 


PLBCNT 


BR IF ZNZ 


2182 


• 27FF 


MPRT 


215 








D1»D1*KFF 


2184 


C488 


MPRT 


216 




235 


HUNPOS 


BR IF ZNZ 


2186 


8188 


MPRT 


217 


INIPRT 


148 


STRPRT 


BR 


2198 


27FF 


MPRT 


218 


PLBCNT 






Di=01+KFF 


219A 


C4A2 


MPRT 


219 




223 


0XFER3 


BR IF ZNZ 


219C 


CDG6 


MPRT 


220 




217 


I NI PRT 


BR IF PI BIT0=0 


219E 


3C13 


MPRT 


221 


XFERRO 






P0=P0$K01 


21A0 


8188 


MPRT 


222 




148 


STRPRT 


BR 


21A2 


5E11 


MPRT 


223 


0XFER3 






U1=H0X 


21A4 


6163 


MPRT 


221 








Ul = UH-D0 


21A6 


F4A0 


MPRT 


228 




231 


DXFER1 


BR IF OYN 8IT3=1 


21A8 


66A3 


MPRT 


229 








00=00 +T0 


21AA 


A1AE 


MPRT 


230 




232 


DXFER2 


BR 


21AC 


6603 


MPRT 


231 


DXFER1 






DO^DO+UO 


21AE 


ED3E 


MPRT 


232 


0XFER2 


190 


PR8UL0 


BR IF PI BIT2=0 


21B0 


2F45 


MPRT 


233 








H1=Q$K40 


21B2 


A1CA 


MPRT 


234 




196 


BLKTBK 


BR 


2188 


CCOC 


MPRT 


235 


HUNPOS 


237 


BLKOUT 


BR IF PO BITO^O 


218A 


A19E 


MPRT 


236 




221 


XFERRO 


BR 


218C 


3025 


MPRT 


237 


BLKOUT 






P1=P1$K20 


218E 


CO 15 


MPRT 


23 8 




241 


GQGN03 


BR IF PI BIT0=1 


2190 


2BC3 


MPRT 


239 








Tl=0$KOC 


2192 


A1A2 


MPRT 


240 




223 


DXFER3 


BR 


2194 


2B25 


MPRT 


241 


G00N03 






T1=0$K20 


2196 


A1A2 


MPRT 


242 




223 


0XFER3 


BR 


12AE 


2AF3 


MPRT 


243 


INTREQ 






T0=0$K0F 


12B0 


3A65 


MPRT 


244 








T0=T0$K60 


12B2 


5AB9 


MPRT 


245 








T1 = T0 


12B4 


5032 


MPRT 


246 








RDH U DA,8E 


12B6 


7AF2 


MPRT 


247 








STH T DA, BE 


12B8 


7C62 


MPRT 


248 








STH P 0At9C 


12BA 


3400 


MPRT 


249 








SET MODE K=80 


12BC 


8258 


MPRT 


250 




I REG 006 


STREGS 


BAL 


12BE 


ACBC 


MPRT 
MPRT 


2 51 
252 


* 


IOIS 010 


STOP 


BR 






MPRT 


253 


* 




ENTRY FROM INTERVENTION RE 






MPRT 


254 


* 




PRI NT ER 


REQUEST LINE UP 


1E62 


98EA 


MPRT 


255 


RMTRST 


IREG 016 


RSTREG 


BAL 



CL0AD=*E40 f EC LEVEL=12821i 

COMMENTS 

BR IF DATA-CHARACTER HAS WM 
SET HI REG TO HEX Fl DEC 1 



SET UP FOR TEST GM 

BR IF NOT A GROUPMARK WOROMARK 

SET BIT TO BLANK REST OF BUFFER 

INSERT A BLANK IN HI 

LOAD PLBAR 

SET READ CALL LATCH 

TRANSLATE DATA BY TABLE LOOK UP 

LOAD PLB 

DECREMENT COUNT BY 1 

BR IF COUNT NOT ZERO 

DECREMENT PLB BY 1 

BR TO INITIALIZE PRINT OPERA 

DECREMENT PLB BY 1 

CONTINUE BUFFER LOAD 

BR IF 1443 PRT ROUTINE 

SET PRINTER CHECK 

GO TO START PRINT 

SET Ul TO AT 

ADD PLBAR COUNT 

BR IF PLBAR COUNT .DEC 88 

ADD DEC 44 TO PLBAR 

ADD DEC 169 TO PLBAR 

BR TO CONTINUE BUFFER LOAD 

100 PRT POS OR GMWM BLANK OUT 

BR IF 100 PRT POSITIONS 

SET PRINTER ERROR 

SET BIT TO BLANK REST OF BUFFER 

BR IF 1403 IS DEFINED 

GO TO CONTINUE PRT BUFFER LOAD 
CHANGE DATA COUNT FOR BLK OUT 
GO TO CONTINUE PRT BUFFER LOAD 
SET ERROR CODE 6F 



GET A STAR 
STORE STOP CODE TWICE - RESTART 
STORE PRT CONDITIONS 
RESET 1403 MODE 
STORE REGS 
BR TO INT REQU DISPLAY ROUTINE 



GET REGS BACK 
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AD OR 


WORD 


SEQUENCE NO. 


LABEL 


IE64 


2E07 


MPRT 


256 




1E66 


5EF9 


MPRT 


257 




LE68 


7EF2 


MPRT 


258 




1E6A 


5C62 


MPRT 


259 




1E6C 


3083 


MPRT 


260 




LE6E 


0080 


MPRT 


261 




1E70 


9BFE 


MPRT 


262 








MPRT 


263 


* 






MPRT 


264 


* 


IC14 


5EC2 


MPRT 


265 


SOSTRE 


1C16 


DBiE 


MPRT 


266 




1C18 


0DC8 


MPRT 


267 




1C1A 


3400 


MPRT 


268 




1C1C 


9C4A 


MPRT 


269 




1C1E 


CAAC 


MPRT 


270 


NOCHNL 


1C20 


5EF2 


MPRT 


2 71 




1022 


2E65 


MPRT 


2 72 




1C24 


3EF3 


MPRT 


2 73 




1C26 


6EF1 


MPRT 


274 




1C28 


C4AC 


MPRT 


275 




1C2A 


9E62 


MPRT 


276 




1C2C 


5C62 


MPRT 


277 


CLR0E1 


IC2E 


10GO 


MPRT 


278 




1C30 


CE81 


MPRT 


279 




1C32 


CAD2 


MPRT 


2 80 




1C34 


1C6 5 


MPRT 


281 




1C36 


9C00 


MPRT 


2 82 




1BFE 


3000 


MPRT 


2 83 


CLRDEV 


1COO 


3C43 


MPRT 


284 


CLRDE2 


1C02 


1C83 


MPRT 


285 




1C04 


E94F 


MPRT 


2 86 




1C06 


SEC 2 


MPRT 


287 




1C08 


CBOC 


MPRT 


288 




1COA 


1C65 


MPRT 


289 




ICOC 


EECD 


MPRT 


290 


CLR0E7 


1COE 


FECE 


MPRT 


291 




1CIO 


3C25 


MPRT 


292 




1C12 


9C4E 


MPRT 


293 




1C4C 


3C45 


MPRT 


294 


SETCH9 


1C4E 


0A03 


MPRT 


295 


CLR0E3 


1C5Q 


EADA 


MPRT 


296 




IC52 


3C13 


MPRT 


297 


CLDEUC 


1C54 


5E92 


MPRT 


298 




1C56 


3E13 


MPRT 


299 




1C58 


7E92 


MPRT 


300 




1C5A 


ODOA 


MPRT 


301 


CLRDE4 


1C5C 


01B8 


MPRT 


302 




1C5E 


0040 


MPRT 


303 




1C60 


4EC6 


MPRT 


304 




1C62 


7C62 


MPRT 


305 




1C64 


3400 


MPRT 


306 




IC66 


2CQ5 


MPRT 


307 




1C68 


ADCA 


MPRT 


308 





NEXTSEQ NEXTLABEL STATEMENT 



H0=0 

H1=H0 

STH H DA, BE 

ROH P 0A f 9C 

P1=P1$K08 

RST S4 

BR 



CLQAD=*E40, EC LEVEL=1282 11 
COMMENTS 



SET HO, HI TO ZERO 

SET REMT/RSTRT BUMP LOG TO ZERO 

RESTORE PRT CONDITIONS 

SET RMT/RSTRT BIT 

RESET S 4 - NOT WAIT STATE 
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283 CLRDEV 



270 



318 
277 



277 
255 



284 
297 



295 

290 

294 
295 



297 
301 



ENTRY FROM SOFT STOP LOOP, REQUEST UP 

NOCHNL 



HISTRT 
CLRDE1 



CLRDE1 
RMTRST 



CLRDE2 
CLDEUC 



284 CLRDE2 



CLRDE3 

CLRDE7 

SETCH9 
CLRDE3 



295 CLRDE3 



CLDEUC 
CLRDE4 



309 CLRDE6 



386 ERR0R1 



RDH H DA f B8 

BR IF HI BIT5=0 

RST PRA K^=4Q 

SET MODE K=80 

BR 

BR IF PRS BIT4=0 

RDH H DA, BE 

H0=0$K60 

H0=H0$K0F 

H0=H0aHl 

BR IF ZNZ 

BR 

RDH P DA f 9C 

RST SO 

BR IF PRS BIT0=1 

BR IF PRS BIT4=0 

P0=P0*-K6G 

BR 

SET SO 

P0=P0$K04 

P0=P0*-KG8 

BR IF PI BIT6=1 

RDH H DA,B8 

BR IF HI BIT4=0 

P0-P0*-K60 

BR IF PRS BIT2=1 

BR IF PRS BIT3=0 

P0=PO$K20 

BR 

P0=P0$K40 

BR IF PRS BIT5=i 

BR IF PRS BIT6=0 

P0=P0$K0l 

RDH H DA,AA 

H0=H0$K01 

STH H DA,AA 

RST PRA 10=50 

BR IF S5=0 

RST S5 

H=P 

STH P 0A,9C 

SET MODE K=80 

PO=0$XOO 

8R 



BR IF NOT CHNL PRINTER 

RESET PRT REQUEST LATCH 

RESET 1403 MODE 

BRANCH BACK 

BR IF NOT INITIAL READY 

READ OUT STOP CODE FROM BUMP 

SET UP STOP CODE 

BR IF NO STOP CODE MATCH 

BR TO REMOTE RESTART RESTORE 

READ OUT PRT CONDITIONS 

BR IF DE UP 

BR IF NOT INITIAL READY, SET UC 

RESET CHNL 9 AND 12 INDICATORS 

CONTINUE 

SET SO FOR BR BACK TO SIO 

SET DE IN PRT COND 

RESET SECONDARY BIT 

BR IF LST CMD WAS SKP OR SPC SU 

BR IF 1443 IS DEFINED 

RST CHNL 9 AND 12 INDICATORS 

BR IF CHANL 9 SENSED 

BR IF NOT CHNL 12 

SET CHNL 12 SENSED 

SET CHNL 9 SENSED 
BR IF HAMMER CHECK 
BR IF NO PARITY CHECK 
SET PRINTER ERROR 

SET PTR ERROR BIT 

RST PRT REQUEST AND BUSY LATCH 
BR IF NOT FROM BR ON ERROR ROUT 

PUT PRT CONDITIONS IN H0,H1 
STORE PRINTER CONDITIONS 
RESET 1403 MODE 

BR TO PTR ERROR BRANCH 



ADDR 

1C38 
IC3A 
1C3C 
1C3E 

1C40 
1C42 
1C44 

1C46 
IC48 
1C4A 



HORD SEQUENCE NO* 



154C 

154E 
1550 
1552 
1554 
1556 
1558 
155A 
155C 
155E 
1560 
1562 
1564 
1566 
1568 
156A 
156C 
156E 
15 70 
1572 
1574 
153A 
15 3C 
153E 
1540 
1542 
1544 
1546 
1548 
154A 



2564 
2566 
2568 



C5C4 
997E 
1000 
C943 
A91E 
998E 
7C62 
3400 
2C05 
9 6 AC 



D9 3B 
5E92 
3E13 
7E92 
5EC2 
CE5F 
FC5F 
1C13 
A908 
2E65 
3EF3 
2F05 
7EF2 
3043 
7C62 
5CA2 
56D9 
7CA2 
3400 
2G05 
A044 
5CA2 
5D69 
5C62 
5622 
FC47 
1C13 
ID 43 
F840 
A9C8 



8216 
C960 
5E62 



MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 
MPRT 



309 
310 
3ii 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
32 6 
32 7 

32 8 
329 
330 
331 
332 
333 
334 
335 
336 
337 

33 8 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 



LABEL 
CLR0E6 



RMRST1 
CLR0E5 



HISTRT 



NEXTSEQ NEXTLA8EL STATEMENT 



3L5 

066 

314 
118 

074 



PRTERR 



335 
335 



CHKSTP 



GENSTP 



PRTER2 



8RCHN9 



326 
112 



394 
369 



CLRDE5 
RESTRT 

RMRST1 
TSTERR 

NOT INT 



iNRU 030 STOPCK 



BR IF S0=0 

BAL 

RST SO 

BR IF PI BIT4=1 

BR 

BR 

STH P DA,9C 

SET MOOE K=80 

P0=0$KQ0 

BR 



CL0A0=*E40, EC LEVED=128211 

COMMENTS 

BR IF NOT FROM SIO ROUTINE 
GO TO ASSEMBLE STATUS 

BR IF FROM RMT/RSTRT 
GO BACK TO SIO 
GO TO SET UP AGAIN 
STORE PRT CONDITIONS 
RESET 1403 MODE 

GO BACK TO CHECK FOR OTHER INTR 
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ERROR ROUTINE 

IF I/O CHECK STOP SWITCH IS ON, PROGRAM ENTERS GENERAL STOP LOOP, 

OTHERWISE EXTERNAL SENSE LATCHES BECOMES A RESET, 

IF AN INVALID SKIP TO CHANNEL MODIFIER E XI STS, PROGRAM 

ENTERS ALWAYS GENERAL STOP LOOP , UNLESS THE MODIFIER 

WILL BE CHANGED . 

BR IF FROM GENERAL STOP LOOP 



347 GENSTP 



CHKSTP 
CHKSTP 



112 RETRYO 



1DIS 003 STOPPP 



353 PRTER2 



PRTERR 
RETRYO 



BR IF PI BIT5=i 

ROH H DA,AA 

H0=H0$K01 

STH H DA, AA 

RDH H DA, B8 

BR IF HO BIT0=1 

BR IF PO BIT3=1 

P0=P0*-K01 

BR 

H0=0$K60 

HO^HOSKOF 

H1=0$KG0 

STH H DA, BE 

Pl=Pl$K04 

STH P DA,9C 

RDH P DA, AC 

PUDO 

STH P DA, AC 

SET MODE K=80 

P0=0$K00 

BR 

RDH P DA, AC 

DO^Pl 

RDH P 

RDH D 

BR IF 

PO=PO*-K01 

Pl=Pl*-K04 

BR if PO BIT7=i 

BR 



SET PTR ERROR BIT 



BR IF I/O CHECK STOP SWITCH ON 
BR IF INVALID SKIP MODIFIER 
RESET PRT ERROR BIT 



DA,9C 
DA,8C 
PO BIT3* 



PRINTER BRANCH CONDITIONS 
CKNATV BAL 

WAIT43 BR IF PI BIT4=0 

RDH H DA,9C 



SET ERROR CODE -6F- 



STORE ERROR CODE 

SET FROM GEN STOP LOOP BIT 

STORE PRT CONDITIONS 

SAVE STATUS REGISTER 

RESET 1403 MODE 

GO TO GENERAL STOP LOOP 

RESTORE STATUS REGISTER 
RESTORE PRT CONDITIONS 

BR IF INVALID SKIP MODIFIER 
RSI PRT ERROR BIT 
RST GENERAL STOP BIT 
BR IF PRT ERROR 
GO TO CONTINUE SIO 



CHECK IF NATIVE PRINTER 
BR IF 1443 IS DEFINED 
READ OUT PRT CONDITIONS 



AOOR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


256A 


DE6F 


MPRT 


362 






376 


UNBR 


BR IF HO BIT 1=1 


256C 


8D7C 


MPRT 


363 




ICYC 


037 


HISTRT 


BR 


2556 


8216 


MPRT 


364 


PRBUSY 




394 


CKNATV 


BAL 


25 58 


5E62 


MPRT 


365 










ROH H 0A,9C 


25 5A 


0A6E 


MPRT 


366 






376 


UNBR 


BR IF HO BIT 5=0 


255C 


CA6F 


MPRT 


367 






376 


UNBR 


BR IF HO BIT4=i 


2556 


807C 


MPRT 


368 




ICYC 


037 


HISTRT 


BR 


2560 


2C80 


MPRT 


369 


WAIT43 








SET S K=08 


2562 


ADOC 


MPRT 


370 






379 


WAIT 


BR 


2570 


8216 


MPRT 


371 


BRCH12 




394 


CKNATV 


BAL 


2572 


C960 


MPRT 


372 






369 


WAIT43 


BR IF PI BIT4=0 


2574 


5E62 


MPRT 


373 










ROH H 0A,9C 


25 76 


EE6F 


MPRT 


374 






376 


UNBR 


BR IF HO BIT 2=1 


2578 


8D7C 


MPRT 


375 




ICYC 


037 


HISTRT 


BR 


256E 


9E72 


MPRT 


376 


UNBR 


IUBR 


002 


UNCOBR 


BR 


2008 


0G80 


MPRT 


377 


ERROR 








RST S4 


200A 


8216 


MPRT 


378 






394 


CKNATV 


BAL 


20 OC 


5E62 


MPRT 


379 


WAIT 








RDH H 0A f 9C 


2D0E 


0A4B 


MPRT 


380 






386 


ERR0R1 


BR IF HO BIT 5=1 


20E0 


CA4A 


MPRT 


381 






386 


ERR0R1 


BR IF HO BIT4=0 


20E2 


3482 


MPRT 


382 










SET MODE K=98 


2DE4 


2040 


MPRT 


383 










SET S5 


2DE6 


4CE6 


MPRT 


3 84 










P=H 


20E8 


A914 


MPRT 


385 






122 


WAITDE 


BR 


2DCA 


C1CE 


MPRT 


3 86 


ERR0R1 




388 


NOTCHN 


BR IF S4=0 


20CC 


91F2 


MPRT 


387 






404 


BRANCH 


BR 


2DCE 


5E92 


MPRT 


388 


NOTCHN 








RDH H DA, AA 


2DD0 


FA48 


MPRT 


3 89 






393 


ERRQR2 


BR IF HO BIT7=0 


2DD2 


1E13 


MPRT 


390 










H0=H0*-K01 


2DD4 


7E92 


MPRT 


391 










STH H DA,AA 


2006 


9E72 


MPRT 


392 




IUBR 


002 


UNCOBR 


BR 


20C8 


807C 


MPRT 


393 


ERR0R2 


ICYC 


037 


HISTRT 


BR 


0216 


5CC2 


MPRT 


394 


CKNATV 








ROH P DA, B8 


0218 


2C05 


MPRT 


395 










P0=0$K00 


02 IA 


091F 


MPRT 


396 






398 


CHNLPR 


BR IF PI BIT5=1 


02 1C 


128E 


MPRT 


397 










RTN 


02 IE 


890A 


MPRT 


398 


CHNLPR 


IOCM 


051 


CHNL 


BR 


1468 


5EEF 


MPRT 


399 


01 SCON 








HO=PRS 


14 6A 


0E93 


MPRT 


400 










Z=H0*-K09 


146C 


F0F1 


MPRT 


401 






403 


OKAY 


BR IF LZ=0 


146E 


954C 


MPRT 


402 






326 


PRTERR 


BR 


1470 


A650 


MPRT 


403 


OKAY 




126 


CONS 10 


BR 


11F2 


1C80 


MPRT 


404 


BRANCH 








RST S K=88 


UF4 


07CB 


MPRT 


405 










Z=DlaK0C 


11F6 


FOEE 


MPRT 


406 






411 


NOT 12 


BR IF LZNZ 


11F8 


EE70 


MPRT 


407 






412 


BRBACK 


BR IF HO BIT2=0 


UFA 


1E25 


MPRT 


408 










H0=HQ*-K20 


UFC 


7E62 


MPRT 


409 


ENDING 








STH H DA,9C 


UFE 


9672 


MPRT 


410 




IUBR 


002 


UNCDBR 


BR 


UEE 


0E6B 


MPRT 


411 


N0T12 




413 


BRCH09 


BR IF HO BIT 1=1 


11F0 


8D7C 


MPRT 


412 


BRBACK 


ICYC 


037 


HISTRT 


BR 


liEA 


1E45 


MPRT 


413 


BRCH09 








H0=H0*-K40 


11EC 


91FC 


MPRT 


414 






409 


ENDING 


BR 



CLOAD=*E40, EC LEVEL=128211 
COMMENTS 

BR IF CHNL 9 SENSED AND TAKE BR 

BR TO EXECUTE NEXT SEQUENTIAL OP 

CHECK IF NATIVE PRINTER 

REAO OUT PRINTER CONDITIONS 

BR IF DE NOT YET UP 

BR IF SECONDARY BIT ON 

BR TO EXECUTE NEXT SEQUENTIAL OP 



CHECK IF NATIVE PRINTER 

BR IF 1443 IS DEFINED 

READ OUT PRT CONDITIONS 

BR IF CHNL 12 AND TAKE BRANCH 

BR TO EXECUTE NEXT SEQUENTIAL OP 

BR TO UNCONDITIONAL BRANCH 

CK FOR NATIVE PRINTER 
REAO OUT PRT CONDITIONS 
BR IF DE STORED 
BR IF NOT BUSY 
SET 1403 MODE 



BR TO WAIT FOR DE UP 
BR IF FROM BR ON ERROR 

READ OUT PTR ERROR BIT 
BR IF NOT PTR ERROR 
RESET PTR ERROR BIT 

TAKE BRANCH 
GO TO I -CYCLES 



BR IF CHANNEL PRINTER 

RETURN TO NATIVE PRINTER 

BR TO CHANNEL PRINTER BRANCH 



GO TO ERROR ROUTINE 
GO TO CONTINUE SIO 
RESET SO AND S4 

BR IF NOT BR ON CHNL 12 
BR IF NOT CHNL 12 
RESET CHNL 12 BIT 
STORE PRT CONDITIONS 
TAKE BRANCH ON CHANNEL 
BR IF CHNL 9 IS SENSED 
GO BACK TO I-CYCLES 
RESET CHNL 9 BIT 
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ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLOAD=*E40, EC LEVELM282 11 

COMMENTS 
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********************************** 

* CROSS REFERENCE FOR CSECT MPRT * 
********************************** 



MPRT 


033 


ICYC 


288 


ICYC 289 I CYC 292 


ICYC 293 


MPRT 


036 


MPRT 


034 






MPRT 


045 


MPRT 


041 






MPRT 


046 


MPRT 


044 






-MPRT 


049 


MPRT 


047 






MPRT 


055 


MPRT 


052 






MPRT 


063 


MKKK 


049 






MPRT 


066 


MPRT 


310 






MPRT 


067 


MPRT 


048 


MPRT 054 tiP&f 058 


MPRT 062 


MPRT 


074 


MPRT 


072 


MPRT 314 




MPRT 


079 


MPRT 


077 






MPRT 


081 


MPRT 


079 






MPRT 


087 


MPRT 


080 






MPRT 


090 


MPRT 


089 






MPRT 


093 


MPRT 


091 






MPRT 


098 


MPRT 


093 


MPRT 095 




MPRT 


101 


MPRT 


078 






MPRT 


106 


MPRT 


099 


MPRT 100 MPRT 104 




MPRT 


107 


MPRT 


098 






MPRT 


111 


MPRT 


IC6 






MPRT 


112 


MPRT 


334 


MPRT 355 




MPRT 


115 


MPRT 


123 






MPRT 


116 


MPRT 


114 






MPRT 


118 


MPRT 


116 


MPRT 313 




MPRT 


120 


MPRT 


117 


MPRT 122 




MPRT 


122 


MPRT 


120 


MPRT 385 




MPRT 


125 


MPRT 


118 






MPRT 


126 


MPRT 


125 


MPRT 403 




MPRT 


135 


MPRT 


132 






MPRT 


136 


MPRT 


129 






MPRT 


139 


MPRT 


137 






MPRT 


143 


MPRT 


133 


MPRT 140 MPRT 141 




MPRT 


145 


MPRT 


143 






MPRT 


148 


MPRT 


217 


MPRT 222 




MPRT 


150 


MPRT 


147 






MPRT 


161 


MPRT 


159 






MPRT 


166 


MPRT 


162 


MPRT 164 




MPRT 


172 


MPRT 


144 






MPRT 


190 


MPRT 


188 


MPRT 232 




MPRT 


193 


MPRT 


191 






MPRT 


194 


MPRT 


205 






MPRT 


196 


MPRT 


208 


MPRT 234 




MPRT 


197 


MPRT 


195 






MPRT 


200 


MPRT 


193 






MPRT 


204 


MPRT 


192 






MPRT 


207 


MPRT 


200 






MPRT 


209 


MPRT 


199 


MPRT 203 




MPRT 


217 


MPRT 


220 






MPRT 


218 


MPRT 


214 






MPRT 


221 


MPRT 


236 
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********************************** 

* CROSS REFERENCE FOR CSECT MPRT * 
********************************** 



HPRT 


223 


MPRT 


219 


MPRT 


240 


MPRT 


242 


HP RT 


231 


MPRT 


228 










MPRT 


232 


MPRT 


230 










MPRT 


235 


MPRT 


216 










MPRT 


237 


MPRT 


235 










MPRT 


241 


MPRT 


238 










MPRT 


243 


MPRT 


115 










MPRT 


255 


MPRT 


276 










MPRT 


265 


INRU 


079 










MPRT 


270 


MPRT 


266 










MPRT 


277 


MPRT 


270 


MPRT 


275 






MPRT 


283 


MPRT 


124 


MPRT 


262 






MPRT 


284 


MPRT 


279 


MPRT 


2 82 






MPRT 


290 


MPRT 


288 










MPRT 


294 


MPRT 


2 90 










MPRT 


295 


MPRT 


286 


MPRT 


291 


MPRT 


293 


MPRT 


297 


MPRT 


2 80 


MPRT 


295 






MPRT 


301 


MPRT 


296 










MPRT 


309 


MPRT 


302 










MPRT 


314 


MPRT 


312 










MPRT 


315 


MPRT 


309 










MPRT 


318 


MPRT 


269 










MPRT 


326 


MPRT 


119 


MPRT 


354 


MPRT 


402 


MPRT 


335 


MPRT 


331 


MPRT 


332 






MPRT 


347 


MPRT 


326 










MPRT 


353 


MPRT 


351 










MPRT 


359 


IOCM 


047 










MPRT 


364 


IOCM 


050 










MPRT 


369 


MPRT 


360 


MPRT 


372 






MPRT 


371 


IOCM 


049 










MPRT 


376 


MPRT 


362 


MPRT 


366 


MPRT 


367 


MPRT 


377 


IOCH 


048 










MPRT 


379 


MPRT 


370 










MPRT 


386 


MPRT 


3C8 


MPRT 


380 


MPRT 


381 


MPRT 


388 


MPRT 


386 










MPRT 


393 


MPRT 


389 










MPRT 


394 


MPRT 


359 


MPRT 


364 


MPRT 


371 


MPRT 


398 


MPRT 


396 










MPRT 


399 


MPRT 


121 










MPRT 


403 


MPRT 


401 










MPRT 


404 


MPRT 


3 87 










MPRT 


409 


MPRT 


414 










MPRT 


411 


MPRT 


4C6 










MPRT 


412 


MPRT 


4C7 










MPRT 


413 


MPRT 


411 











MPRT 374 



MPRT 378 
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MQQQ DESCRIPTIVE TEXT 



ENTRY POINTS (CHANNEL ATTACHED PRINTER! 

PTERR 

THIS ENTRY IS FROM THE IOCM ROUTINE FOR HANDLING 
BRANCH ON PRINTER ERROR INSTRUCTIONS. 



DECMT 



CH9 

CH12 



XXXXXX 



ENTRY HERE IS FROM THE SENSE STATUS DECODE 
ROUTINE* 



THESE ENTRY POINTS ARE FROM THE IOCM ROUTINE FOR 
BRANCH ON CHANNEL 9 AND 12 INSTRUCTIONS, 



ENTRY HERE IS FROM THE SOFT STOP ROUTINE IINRU) 
WHEN THERE IS A CHANNEL INTERRUPT CONDITION, 



ADDR 


WORD 


SEQUENCE NO. 


LABE L 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 






MQQQ 


001 


T 


BRANCH ON PRINTER ERROR, 


KRAGER 






MQQQ 


002 


* 










2614 


5 EC 2 


MQQQ 


003 


PTERR 






RDH H DA, B8 


READ CONTROL BYTE 


2616 


CB20 


MQQQ 


004 




009 


CKFER 


BR IF HI BIT4=0 


BR IF 1443 


2618 


5E62 


MQQQ 


005 








RDH H DA»9C 


READ FORMS BYTE 


261A 


DB2D 


MQQQ 


006 




038 


WAIT 


BR IF HI BIT5^1 


BR IF PRINTER ACTIVE 


26 1C 


5492 


MQQQ 


007 








RDH G DA, AA 


READ CHNL STATUS BYTE 


261E 


E135 


MQQQ 


008 




042 


SENSE 


BR IF Gl BIT6=1 


BR IF UNIT CHECK ON 


2620 


5E92 


MQQQ 


009 


CKFER 






RDH H DAtAA 


READ ERROR BYTE 


2622 


FA27 


MQQQ 


010 




012 


RESET 


BR IF HO BIT7=1 


BR IF ERROR BIT ON 


2624 


807C 


MQQQ 


Oil 




ICYC 037 


H1STRT 


BR 




2626 


1E13 


MQQQ 


012 


RESET 






H0=H0*-K01 


RESET ERROR BIT 


2628 


7E92 


MQQQ 


013 








STH H DA, AA 


STORE ERROR BYTE 


262A 


9E72 


MQQQ 


014 




IUBR 002 


UNCDBR 


BR 




2638 


58 86 


MQQQ 


015 


DECMT 






1=1-1 


DECREMENT I STAR -I 


263A 


5790 


MQQQ 


016 








RD8 01 1+0 


READ MAIN STORAGE 


263C 


D739 


MQQQ 


017 




015 


DECMT 


BR IF Dl BIT 1=1 


BR IF NO WM YET 


263E 


8D7C 


MQQQ 


018 




ICYC 037 


HISTRT 


BR 




25FE 


5E62 


MQQQ 


019 


CH9 






RDH H DA,9C 


READ LATCH BITS 


2600 


DB2D 


MQQQ 


020 




38 


WAIT 


BR IF HI BIT5=1 


BR IF ACTIVE BIT ON 


2602 


5492 


MQQQ 


021 








RDH G DA, AA 


READ CHNL STATUS BYTE 


2604 


E135 


MQQQ 


022 




042 


SENSE 


BR IF Gl BIT6=1 


BR IF UNIT CHECK ON 


2606 


OE OB 


MQQQ 


02 3 




025 


REMOVE 


BR IF HO BIT1=1 


BR IF CH 9 BIT ON 


2608 


8D7C 


MQQQ 


024 




ICYC 037 


HISTRT 


BR 




260A 


54C2 


MQQQ 


02 5 


REMOVE 






RDH G DA, B8 




26 OC 


CU3 


MQQQ 


026 




029 


IS03 


BR IF Gl BIT4=1 


BR IF 1403 


260E 


IE45 


MQQQ 


02 7 








HQ=H0*-K4Q 


RESET CH 9 BIT 


2610 


7E62 


MQQQ 


02 8 


STORE 






STH H DA,9C 


STORE BACK 


2612 


9E72 


MQQQ 


02 9 


IS03 


IUBR 002 


UNCDBR 


BR 




2640 


5E62 


MQQQ 


030 


CH12 






RDH H DA,9C 


READ LATCH BITS 


2642 


DB2D 


MQQQ 


031 




38 


WAIT 


BR IF Hi BIT5=1 


BR IF ACTIVE BIT ON 


2644 


EE49 


MQQQ 


032 




034 


BLANK 


BR IF HO BIT2=i 


BR IF CH 12 BIT ON 


2646 


8D7C 


MQQQ 


033 




ICYC 037 


HISTRT 


BR 




2648 


54C2 


MQQQ 


034 


BLANK 






RDH G DA,B8 





ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E40, EC LEVEL=12821i 
COMMENTS 
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264A 


i 


D113 MQQQ 


035 




029 


IS03 


BR IF Gl BIT4=1 


BR IF 1403 


264C 




1E25 MQQQ 


036 








H0=H0*-K20 


RESET CH 12 BIT 


264E 




A610 MQQQ 


037 




028 


STORE 


BR 




262C 




5E62 MQQQ 


038 


WAIT 






RON H 0A f 9C 


READ STATUS BYTE 


262E 




DB20 MQQQ 


039 




038 


WAIT 


BR IE HI BIT 5*1 


WAIT FOR ACTIVE BIT T 


26 30 




5E92 MQQQ 


040 








ROH H OA,AA 




2632 


i 


EB38 MQQQ 


041 




015 


OECMT 


BR IF HI BIT6=0 


BR IF UNIT CK OFF 


2634 




26A3 MQQQ 


042 


SENSE 






00=0$KOA 


SET SENSE AND PRINTER 


2636 




9F4C MQQQ 


043 




MKKK 057 


ADDR 


BR 




09 80 


j 


A638 MQQQ 


044 




015 


DECMT 


BR 


GO BACK UP I STAR 


0990 




0010 MQQQ 


045 


xxxxxx 






RST S7 




0992 




A638 MQQQ 


055 




015 


DECMT 


BR 
















********************************** 














* CROSS 


REFERENCE FOR CSECT 


MQQQ * 














********************************** 


MQQQ 


003 


IOCM 053 














MQQQ 


009 


MQQQ 004 














MQQQ 


012 


MQQQ 010 














MQQQ 


0X5 


MMMM 035 


MQQQ 


017 MQQQ 


041 MQQQ 


044 MQQQ 


055 




MQQQ 


019 


IOCM 052 














MQQQ 


025 


MQQQ 023 














MQQQ 


028 


MQQQ 037 














MQQQ 


029 


MQQQ 026 


MQQQ 


035 










MQQQ 


30 


IOCM 054 














MQQQ 


034 


MQQQ 032 














MQQQ 


038 


MQQQ 006 


MQQQ 


020 MQQQ 


031 MQQQ 


039 






MQQQ 


042 


MQQQ 008 


MQQQ 


022 










MQQQ 


045 


INRU 056 















DROP 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTS£( 


3 NEXT 






Hill 


001 


T 




AUX 






Hill 


002 


♦ 










Hill 


003 


ATABLE 


ADDR=QOOO 








Hill 


004 


* 




ADDRESS 


0000 


40F1 


Hill 


005 


CARGWO 






0010 


7A61 


Hill 


006 


CAR0W1 






0020 


60D1 


Hill 


007 


CAR0W2 






0030 


50C1 


Hill 


008 


CAR0W3 






0040 


0040 


Hill 


009 


CAR0W4 






0050 


3040 


Hill 


010 


CAR0W5 






0060 


2011 


Hill 


Oil 


CAR0W6 






0070 


4A70 


Hill 


012 


CAR0W7 






0080 


08C0 


Hill 


014 


CAR0W8 






0090 


0000 


Hill 


018 


CAR0W9 






00A0 


0081 


Hill 


020 


CAROWA 






OOBO 


0000 


Hill 


024 


CAROWB 






OOCO 


3A31 


Hill 


025 


CAROWC 






0000 


2A21 


Hill 


026 


CARD WO 






OOEO 


1A51 


Hill 


02 7 


CAROWE 






OOFO 


0A01 


Hill 
Hill 
Hill 


028 
02 9 
030 


CAROWF 
AEND 

* 










Hill 


031 


ATABLE 


ADDR*2G00 








Hill 


032 


* 




ADDRESS 


2000 


OOOA 


Hill 


033 


CBROWO 






2010 


0059 


Hill 


034 


CBR0W1 






2020 


005E 


Hill 


035 


C8R0W2 






20 30 


0063 


Hill 


036 


CBR0W3 






2040 


0000 


Hill 


037 


CBR0W4 






2050 


0000 


Hill 


03 8 


G8ROW5 






2060 


0000 


Hill 


039 


CBR0W6 






2070 


0000 


Hill 


040 


CBR0W7 






2080 


0000 


Hill 


041 


C BRQ W8 






2090 


0000 


Hill 


042 


CBR0W9 






20A0 


0000 


Hill 


043 


CBROWA 






20B0 


0016 


Hill 


044 


CBRQWB 






20C0 


1C18 


Hill 


045 


CBROWC 






20D0 


ID 34 


Hill 


046 


CBROWO 






20E0 


3405 


Hill 


047 


CBROWE 






20F0 


3421 


Hill 
Hilt 
Hill 


048 
049 
05 


CBROWF 

AENO 

♦ 










Hill 


051 


ATABLE 


A00R=5000 








Hill 


052 


♦ 




ADDRESS 


5000 


0000 


Hill 


053 


CCROWO 






5010 


0000 


Hill 


054 


CCftOWl 






5020 


0032 


Hill 


055 


CGRGW2 






5030 


8000 


Hill 


056 


CCR0W3 






5040 


F900 


Hill 


057 v 


CCR0W4 






5050 


D900 


Hill 


058 


CCR0W5 






5060 


C900 


Hill 


059 


CCR0W6 






50 70 


0005 


Hill 


060 


CCRQW7 






5080 


F800 


Hill 


061 


CCR0W8 
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STORAGE TABLES 

MODULE 
1 



2 3 4 5 6 



AUXILIARY 
7 8 9 A B C 



STORAGE 
D £ F 



XAUX*40F1F2F3F4F5F6F7F8F9F07B7C7D7E7F*BCD TO EBCDIC 
XAUX*7A61E2E3E4E5E6E7E8E9E06B6C6D6E6F* CONVERSION 
XAUX*60D1D2D304D5D6D7D8D9D05B5C5D5E5F* TABLE 
XAUX*50C1C2C3C4C5C6C7C8C9C04B4C4D4E4F* **** 

XAUX* 00404040404040404040403B3C3D3E3F 'EBCDIC TO BCD 
XAUX* 304040404Q4040404040402B2C2D2E2F * CONVERSION 
X AUX * 20 11 524040404040404040 IB LClDiE IF • TABLE 1 
X AUX* 4 A7040404040404040401 OOB OC ODOE OF • **** 

XAUX»08COC1C2C3C4C54001 80000000000000* INITIALIZE AREA 
XAUX*O000000000G00004GO0000008E00OAOO*GVERLY WITH 
XAUX*008102400420061O00C080003F00000Q*OPTIONS ON 2ND 
XAUX*O00O00000O0OO8O0E800FF00O0O000O0«FRH LAST LOADCD 
X AUX* 3A31323334353637383940404048455C •EBCDIC TO BCD 
XAUX»2A212223242526272829404040404650* CONVERSION 
XAUX* 1A511213141516I718 19404040494F56* TABLE 2 
XAUX* OA01020304050607080940404040445F ■ **** 



MODULE 




2 
1 2 



3 4 5 6 7 



AUXILIARY STORAGE 
89ABCDEF 



=20RC 



XAUX* 0O0A141E28323C465O5A0101O101O101* TENS DEC /HEX*** 
X AUX* O059000O0G00044C0BB807D003E 80000* HUNDREDS 
XAUX*005E0000O000000OOClC0834044C0064* CONVERSION 
XAUX»OO63OOOO0OOGO0OOOC8OO898O4BOOOC8* DEC TO HEX 
XAUX«OOO00O0000OO00OO0CE408FCO5l4012C«AND INDEX REGS. 
XAUX*OO00OOOOOOOOOO0OOD48O96OO578O19O*THE VALUES IN 
XAUX*0OOO0O0OO0OOOOOO0DAC09C4Q5DC01F4* THIS AREA ARE 
XAUX*O0O0O000000G000O0E 100A2806400258* ADDED TO THE 
XAUX«O0000000000O000O0E740A8CG6A402BC*BIAS CONSTANT 
XAUX*0000O0O0O0O00OOO0ED8OAFO07080320*AND STORED BACK 
XAUX*OOOOOOO0OO0OOOOOOF3COB54O76CO384*0URING CSL **** 
XAUX* 001632486480961 12844607692072339* TENS HEX/DEC*** 
XAUX* 1C180B1F12162A34B134340215343434* OP-CODE 
XAUX* 1D3429908006341EF 134343434343434* DECODE 
XAUX* 3405 1934200E0F34131734041B343434* TABLE 
XAUX* 3421222324252627060634141A343434* **** 



MODULE 




2 3 4 5 6 7 



AUXILIARY STORAGE 
8 9ABCDEF 



XAUX* OOOOOOOOOOOOOOOOOOCOOOOOOOOOOOOO* WORK AREA FOR 

XAUX*OO0OO0OO00OO00OOOOOOO0OOOOOOOOOO« 2540 **** 

X AUX* OO320A3C i446i£5028 5A00000O0O0O00 *F I LE TABLE 

XAUX* 8000080 100020440506000000C000000* **** 

XAUX*F9CK>000000000000£900000000000000*2540 

XAUX*D9000000000000000000000000000000* 

XAUX*C9000000000000000000000000000000*READ 

XAUX* 00050106020703080409000000000000* 

XAUX* F8007A787C707E7FE800E06B6C6D6E6F "TRANSLATE 



AD OR 



WORD SEQUENCE NO* LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



5090 


0800 


MZZZ 


062 


CCR0W9 




50A0 


C800 


MZZZ 


063 


CCROWA 




50B0 


0003 


MZZZ 


064 


CCROWB 




50C0 


40F1 


MZZZ 


065 


CCROWC 




5000 


60D1 


MZZZ 


066 


CCROWD 




50E0 


50C1 


MZZZ 


067 


CCROWE 








MZZZ 


068 


AEND 








MZZZ 


070 


* 








MZZZ 


071 


ATABLE 


ADDR=6000 






Hill 


072 


* 




6000 


407E 


MZZZ 


078 


COROWO 




6010 


7C61 


MZZZ 


079 


CO'ROWi 




6020 


6001 


MZZZ 


080 


C0R0W2 




6030 


50C1 


MZZZ 


081 


C0R0W3 




6040 


0000 


MZZZ 


082 


C0R0W4 




6050 


8000 


MZZZ 


083 


CDR0W5 




6060 


4021 


MZZZ 


084 


C0RQW6 




6070 


0000 


MZZZ 


085 


C0R0W7 




6080 


8000 


MZZZ 


086 


CDR0W8 




6090 


0000 


MZZZ 


087 


CDR0W9 




60A0 


0000 


MZZZ 


088 


COROWA 




60B0 


0000 


MZZZ 


089 


COROWB 




60C0 


A081 


MZZZ 


090 


CDROWC 




6000 


6041 


MZZZ 


091 


COROWD 




60E0 


3200 


MZZZ 


098 


CDROWE 




60F0 


2001 


MZZZ 


100 


COROWF 








MZZZ 


101 


AENO 








MZZZ 


103 


* 








MZZZ 


104 


ATABLE 


ADDR-7000 






MZZZ 


105 


* 




70 00 


4EC1 


MZZZ 


111 


CEROWO 




!Q10 


7D01 


MZZZ 


112 


CER0W1 




JOZO 


7E61 


MZZZ 


113 


CER0W2 




70 30 


F0F1 


MZZZ 


114 


CER0W3 




7040 


4040 


MZZZ 


115 


CERGW4 




7050 


4040 


MZZZ 


116 


CER0W5 




7060 


4040 


MZZZ 


117 


CER0W6 




7070 


4040 


MZZZ 


118 


CER0W7 




7080 


0000 


MZZZ 


119 


CER0W8 




70 90 


7C00 


MZZZ 


120 


CER0W9 




70A0 


5061 


MZZZ 


121 


CEROWA 




70 BO 


0000 


MZZZ 


122 


CEROWB 




70C0 


1625 


MZZZ 


123 


CEROWC 




7QD0 


2219 


MZZZ 


124 


CEROWO 




70E0 


2E00 


MZZZ 


125 


CEROWE 




70F0 


0A01 


MZZZ 


126 


CEROWF 








MZZZ 


12 7 


AENO 





XAUX* D800005B5C5D5E5F0C 
XAUX* C800004B4C4D4E4F00 
XAUX* 000302300130303000 
XAUX* 40F1F2F3F4F5F6F7F0 
XAUX*60D1D2D3D4D5D6D7D0 
XAUX* 50C1C2C3C4C5C6C7C0 



CLQAD=*E40 f 
COMMENTS 

OOOOOOOOOOOOOO* 
OOOOOOOOOOOOOO* 
30303030303030* 
61E2E3E4E5E6E7* 
00000000000000' 
OOOOOOOOOOOOOO* 
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MODULE 




2 3 4 5 6 7 



AUXILIARY 

8 9 A B C 



STORAGE 
E F 



A0DRESS=60RC 



XAUX* 40 7E4C5E7A6C7D6E5C40507B7F40406F* CONSOLE 
XAUX*7C61E2E3E4E5E6E7E8E9006B4F6CEEE0* PRINTER 
XAUX*60D1D2D3D4D5D6D7D8D9605B007C7BDO* TRANSLATE 
XAUX* 50C1C2C3C4C5C6C7C8C94E4B5F4C40C0*PTT/EBCDIC **** 
XAUX* 00000000000000000000009394959697* 2540 PUNCH 
XAUX* 80000000000000000000005354555657* TRANSLATE 
XAUX* 40210000000000000000003334353637* TABLE 1 
XAUX* 00000000000000000000201314151617* **** 

XAUX* 80004000200010000800040002000100*2540 PUNCH MASK 
XAUX* 00000000000000000000000000000000* WORKING 
XAUX*O000000O00000000O0C0O00O000O00O0* STORAGE 
XAUX* 00000000000000000000000000000000* **** 

XAUX* A0818283848586879088000000000000*2540 PUNCH 
XAUX* 60414243444546475048000000000000* TRANSLATE 
XAUX* 32002223242526273028000000000000* TABLE 2 
XAUX* 20010203040506071008000000000000* **** 



MODULE 




2 3 4 5 6 7 



AUXILIARY 
8 9 A B C 



STORAGE 
E F 



A0DRESS=70RC 



XAUX* 4EC1C2C3C4C5C6C7C8C9404B4C404040* 1443 

XAUX* 70010203D405D6070809505B5C404040* GRAPHICS 

XAUX*7E61E2E3E4E5E6E7E8E9606B6C404040* TABLE 

XAUX* F0F1F2F3F4F5F6F7F8F9407B7C 404040* 

XAUX* 40404040404040404040404040404040* WORKING 

XAUX* 40404040404040404040404040404040* STORAGE 

XAUX* 404040404040404040 40404040404040 'WORKING 

XAUX* 40404040404040404040404040404040* STORAGE 

XAUX* 0000004BC57FC67A0000004B4E7F6C7A 'CONSOLE 

XAUX* 7C00005B7D4F4C4A7C00005B704F4C4A* SPECIAL 

XAUX* 506 1006 BE56E5C605061006B506E5C6D *RE-TRANSLATE 

XAUX*00005F06055E407E00005F7B605E4D7E*EBCDIC/PTT **** 

XAUX* 1625262728292A2B2C2D002F30000000U403 

XAUX* 22191A1B1C1D1E1F2021162324000000* GRAPHICS 

XAUX*2EO00E0FlO11121314l5221718O00000* TABLE 2 

XAUX* OAO1O20304O5060708092E0BOCO00000* **** 



**** 



PRINTER 
CHAR 



ADDRESS LIST 
CONTROL ADDRESS 2 



DATE 11/08/68 
A C 
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00— 



-0000- 



-0010- 



-0020- 



-0040- 



-00 50- 



-0060- 



BCPL 003 
8000 

BCPL 009 
3210 

BCPL 017 
C48F 



-0030- BCPL 025 
2B08 



BCPL 033 
2B23 

BCPL 041 
EOCE 

BCPL 049 
8100 



-0070- BCPL 057 
DE6E 



BCPL 004 
OBAD 

BCPL 010 
2610 

BCPL 018 

OCEF 

BCPL 026 
C9B3 

BCPL 034 
4FBF 

BCPL 042 
5FFF 

BCPL 050 
2406 

BCPL 058 
5B3F 



BCPL 004 
OBAD 

BCPL Oil 
50CF 

BCPL 019 
C4E3 

BCPL 027 
4FAF 

BCPL 035 
2 842 

BCPL 043 
F05B 

BCPL 051 
2617 

BCPL 059 
6348 



BCPL 004 
OBAD 

BCPL 012 
51AF 

BCPL 020 
OCFF 

BCPL 028 
2804 

BCPL 36 
F0C6 

BCPL 044 
7F48 

BCPL 052 
2783 

BCPL 060 
736A 



BCPL 004 
OBAD 

BCPL 013 
2413 

BCPL 021 
C4A8 

BCPL 029 
2 844 

BCPL 037 
5F8F 

BCPL 045 
F05C 

BCPL 05 3 
3775 

BCPL 06 1 
FOEE 



BCPL 004 
OBAD 

BCPL 014 
OCCF 

8CPL 022 

800E 

BCPL 030 
C9BA 

BCPL 038 
C4CA 

BCPL 046 
6F48 

BCPL 054 
2507 

BCPL 062 
161B 



BCPL 004 
OBAD 

BCPL 015 
C4AD 

BCPL 02 3 
2486 

BCPL 031 
2B40 

BCPL 03 9 
2B48 

BCPL 04 7 
055D 

BCPL 055 
4066 

BCPL 063 
FOE 7 



BCPL 005 
80AC 

BCPL 016 
OCDF 

BCPL 024 
2 507 

BCPL 032 
CDBE 

BCPL 040 
FDCF 

BCPL 048 
C4CC 

BCPL 056 
5EEF 

BCPL 064 
8100 



-0000- 



-0010- 



-0020- 



-003 0- 



-0040- 



-0050- 



-0060- 



-0070- 



008- 



-0080- 


BCPL 065 


BCPL 066 


BCPL 067 


BCPL 068 


BCPL 069 


BCPL 070 


BCPL 071 


BCPL 072 


-0080- 




6EE3 


6EE3 


6EE3 


0E08 


0E04 


49EF 


4EDF 


4BFF 




- 00 90- 


BCPL 073 


BCPL 074 


BCPL 075 


BCPL 076 


BCPL 077 


BCPL 078 


BCPL 079 


BCPL 080 


-0090- 




2E 63 


3E15 


4FEF 


2E43 


E598 


4EEF 


4BFF 


3D00 




-OOAO- 


BCPL 031 


BCPL 082 


BCPL 083 


BCPL 084 


BCPL 08 5 


BCPL 086 


BCPL 087 


BCPL 088 


-OOAO- 




E5A1 


1000 


50EF 


CA25 


C1A9 


810A 


240E 


2507 




-QOBG- 


BCPL 089 


BCPL 090 


BCPL 091 


BCPL 092 


BCPL 09 3 


BCPL 094 


BCPL 095 


BCPL 096 


-OOBO' 




2F04 


5FDF 


DAB8 


ED33 


2F 10 


DAC6 


CAB9 


58FF 




-OOCO- 


BCPL 097 


BCPL 098 


BCPL 099 


BCPL 100 


BCPL 101 


BCPL 102 


BCPL 103 


BCPL 104 


-ooco- 




5AEF 


4EF3 


6F48 


2814 


055D 


C4B4 


8100 


FFFF 




-OODO- 


BCPL 104 


BCPL 104 


BCPL 104 


BCPL 104 


BCPL 104 


BCPL 104 


BCPL 105 


BCPL 106 


-OODO- 




FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


2B07 




-OOEO- 


BCPL 107 


BCPL 108 


BCPL 109 


BCPL 110 


BCPL 111 


BCPL 112 


BCPL 113 


BCPL 114 


-OOEO- 




6A02 


2490 


2813 


2907 


4A86 


4C02 


2F15 


5FE9 




-OOFO- 


BCPL 115 


BCPL 116 


BCPL 117 


BCPL 118 


BCPL 119 


BCPL 120 


BCPL 121 


BCPL 122 


-OOFO- 




2D23 


4D9F 


8811 


54E8 


6488 


FA76 


0608 


88FE 




CONTROL ADDRESS 
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-OiCO- IZWM 002 
5D3A 

-01 10- LPTR 005 
2208 

-0120- ITRP 067 
22EC 

-0130- MPRT 177 
2613 

-0140- KAAH 014 
3210 

-0150- JTYP 490 
F258 

-0160- LERR 002 
3462 

-0170- JDTA 003 
2240 



IZWM 003 
8309 

LPTR 006 
9062 

ITRP 068 
1F00 

MPRT 178 
2A25 

KAAH 015 
3480 

JTYP 491 

4EBD 

LERR 003 
C461 

JDTA 004 
C1F7 



I8CH 110 
5759 

I COM 006 
2A7F 

ITRP 069 
02EC 

MPRT 179 
2ACB 

KAAH 016 
95FE 

JTYP 492 
D147 

LERR 004 
FFEC 

JDTA 005 
AD46 



IBCH 111 
5EB2 

ICOM 007 
128E 

MPRT 172 
4D4F 

MPRT 181 
2E75 

JTYP 498 
32F3 

JTYP 493 
6B28 

LERR 005 
1F00 

JDTA 006 
AOOE 



IBCH 112 
9153 

ICOM 002 
0A61 

MPRT 173 

1D00 

MPRT 185 

2EAB 

JTYP 499 

7B28 

JTYP 494 
5EB3 

LERR 006 
3400 

IERR 032 
2A25 



IBCH 107 
2513 

ICOM 003 
E094 

MPRT 174 
76E2 

MPRT 186 

20A7 

JTYP 500 

81B6 

JTYP 495 

7BE2 

LERR 007 
9E72 

IERR 033 
3A13 



IBCH 108 
251B 

ICOM 004 

2AFD 

MPRT 175 
2785 

MPRT 187 
20FF 

JTYP 501 
8158 , 

JTYP 496 
161B 

LERR 008 
3400 

IERR 034 
7AF2 



IBCH 109 
8106 

ICOM 005 
12 8E 

MPRT 176 
274B 

MPRT 188 
A1BE 

JTYP 489 
5BE2 

JTYP 497 
896C 

LERR 009 
8D7C 

IERR 035 
A044 



-0100- 



-0110- 



-0120- 



-0130- 



-0140- 



-0150- 



-0160- 



-0170- 



018- 



-0180- 
-0190- 
-01A0- 
-OIBO- 
-01C0- 
-01D0- 
-01E0- 

-01F0- 

CONTROL ADDRESS 



JENO 003 
2204 

MPRT 152 
3C83 

MPRT 160 
8D7C 

LRTR 005 
2206 

IBCH 113 
90B8 

IBCH 121 
5E92 

ITRP 061 
226A 

IRST 114 
5649 



JEND 004 
FD86 

MPRT 153 
5032 

MPRT 161 
05AB 

LRTR 006 

5ACF 

IBCH 114 
8D7C 

IBCH 122 
DA46 

ITRP 062 
1F00 

IRST 115 

5659 



JEND 005 
9ACA 

MPRT 154 
1D97 

MPRT 162 
FOAD 

LRTR 007 
9146 

IBCH 115 
90B0 

IBCH 123 
1E43 

ITRP 063 
026A 

IRST 116 
426F 



JEND 006 
8FA0 

MPRT 155 
7C62 

MPRT 163 
1523 

JTYP 517 
028D 

IBCH 116 
8D7C 

IBCH 124 
7E92 

IRST 109 

3480 

IRST 117 

534C 



MPRT 148 
56E2 

MPRT 156 
3400 

MPRT 164 
FOAD 

JTYP 518 
C4 8C 

IBCH 117 
90C0 

IBCH 125 
9E72 

IRST 110 
426F 

IRST 118 
151B 



MPRT 149 
3000 

MPRT 157 
2C05 

MPRT 165 
8020 

JTYP 519 
1285 

IBCH 118 
90BC 

IERR 036 
56A5 

IRST 111 
3400 

IRST 119 
2588 



MPRT 150 
2D02 

MPRT 158 
5EC2 

MPRT 166 
1525 

JTYP 52 9 
12F3 

IBCH 119 
90B4 

IERR 037 
1AC3 

IRST 112 
2743 

IRST 120 
C4F4 



MPRT 151 -0180- 
1C63 

MPRT 159 -0190- 
CB23 

MPRT 168 -01A0- 
A5AA 

JTYP 530 -OIBO- 
128E 

IBCH 120 -OiCO- 
90AC 

IERR 038 -01D0- 
A068 

IRST 113 -01EO- 
4F7F 

IRST 121 -01F0- 
3486 
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-02 00- 



-0210- 



-0220- 



-0230- 



-0240- 



-0250- 



-02 60- 



•02 70- 



IRST 122 
5A60 

ITRP 004 
3200 

ITRP 010 
3202 

ITRP 018 
0216 

8DIA 018 
2810 

BDIA 062 
2810 

IREG 010 
2A07 

JEND 139 
2D85 



IRST 123 
3400 

ITRP 005 
0080 

ITRP Oil 
2080 

ITRP 019 
0218 

BDIA 030 
3210 

BDIA 066 
D553 

IREG Oil 
1865 

JEND 140 
3D73 



IRST 124 
2705 

ITRP 006 
8224 

ITRP 012 
57FF 

ITRP 020 
AAOC 

BDIA 048 
2400 

BDIA 067 
2810 

IREG 012 
7222 

JEND 141 
5FC0 



IRST 125 
5769 

MPRT 394 
5CC2 

ITRP 013 
56EF 

KAAN 196 
5652 

BDIA 053 
F8CB 

BDIA 072 
E53C 

IREG 013 
7032 

JEND 142 
5FF9 



IRST 126 
128E 

MPRT 395 
2C05 

ITRP 014 
C4AC 

KAAN 197 
49 7F 

BDIA 054 
B7C9 

IREG 006 
2A15 

IREG 014 
7812 

JEND 143 
C4F5 



ICYC 168 
2FAD 

MPRT 396 

D91F 

ITRP 015 
7812 

KAAN 198 
A7CC 

BDIA 056 
2810 

IREG 007 
2BF5 

IREG 015 
128E 

JEND 144 
EB7F 



ICYC 169 
2DF3 

MPRT 397 
128E 

ITRP 016 
7EF2 

BDIA 075 
2810 

BDIA 057 
25F3 

IREG 008 
76A8 

BDIA 083 
2810 

JEND 145 
8D7C 



ICYC 170 
8C88 

MPRT 398 
890A 

ITRP 017 
0210 

BDIA 080 
F56C 

BDIA 061 
C54F 

IREG 009 
74AA 

BDIA 084 
9FFC 

JEND 146 
9E72 



-0200- 



-0210- 



-0220- 



-0230- 



-0240- 



-0250- 



-0260- 



-0270- 



-0280- 



028- 



-0280- 



-02 90- 



-0290- 



-02A0- 



-02A0- 



-02B0- 



-02B0- 



-02C0- 

-02D0- 

-02EO- 

-02F0- 
CONTROt ADDRESS 



KEND 017 
4026 

KEND 025 
1625 

JTYP 058 
9F5E 



KEND 018 
5224 

KEND 026 
5812 

JTYP 060 

2 075 



KEND 019 
1E00 

KEND 027 
021E 



KEND 020 
2C07 

KEND 028 
2C07 



KEND 021 KEND 022 KEND 023 KEND 024 



4FCF 



4DCF 



3400 



5622 



8D7C 



5FFF 



0FC9 



JTYP 064 JTYP 065 JTYP 066 JTYP 067 JTYP 068 



2145 



5208 



5608 



540 8 



5808 



JTYP 070 JTYP 071 JTYP 072 JTYP 073 JTYP 085 JTYP 086 JTYP 087 



5C08 



5E92 



CA78 



9F7C 



5E08 



5032 



5C92 



F4FC 

JTYP 069 
5A08 

JTYP 088 
ECIO 



-02C0- 



KEND 029 JTYP 055 JTYP 056 JTYP 057 -02D0- 



-02E0- 

-02F0- 
02— 
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-0300- JTYP 089 
1F2C 

-0310- JTYP 114 
CFC7 

-0320- JTYP 139 
3400 

-0330- JTYP 103 
0F02 

-0340- JTYP 111 
C1C5 

-0350- JTYP 120 
A40C 

-0360- JTYP 083 
4F1F 

-0370- JTYP 477 
10C0 



JTYP 090 
1040 

JTYP 115 

DFC7 

JTYP 140 

8D7C 

JTYP 104 

5EF2 

JTYP 112 

A 044 

JTYP 076 
5F0A 

JTYP 084 
96AC 

JTYP 478 
OF 02 



JTYP 091 
1C35 

JTYP 116 
E1CB 

JTYP 097 
FFAF 

JTYP 105 
3400 

JTYP 113 
ACBC 

JTYP 077 
CF5A 

JTYP 123 
C249 

JTYP 479 
0640 



JTYP 092 
CC1A 

JTYP 117 
FECE 

JTYP 098 

8264 

JTYP 106 
CFBD 

JTYP 121 
FFE5 

JTYP 078 
3F20 

JTYP 124 
C1EC 

JTYP 480 
5C92 



JTYP 093 
7C92 

JTYP 118 
92EC 

JTYP 099 

0020 

JTYP 107 
0611 

JTYP 122 

890E 

JTYP 079 
835C 

JTYP 125 
DFEF 

JTYP 48 1 
3C25 



JTYP 094 
FAA4 

JTYP 136 
3C85 

JTYP 100 
3400 

JTYP 108 
FOBF 

JTYP 074 
0ED3 

JTYP 080 

2F08 

JTYP 126 
8536 

JTYP 482 
7C92 



JTYP 095 
0610 

JTYP 137 
7C92 

JTYP 101 

96AC 

JTYP 109 
3E29 

JTYP 075 
A40C 

JTYP 081 
0F20 

JTYP 128 
ACOE 

JTYP 483 
16F3 



JTYP 096 

98DA 

JTYP 138 

2C05 

JTYP 102 
C1B2 

JTYP 110 
7EF2 

JTYP 119 
9F5E 

JTYP 082 
3400 

JTYP 127 
8376 

JTYP 484 
2C53 



-0300- 



-0310- 



-0320- 



-0330- 



-0340- 



-0350- 



-0360- 



-0370- 



038- 



-0380- JTYP 485 JTYP 486 JTYP 487 

3C15 4FCF 0F10 

-0390- KAAQ 015 KAAQ 016 KAAQ 017 

2F13 15E5 1483 

-03A0- MNNN 004 MNNN 005 MNNN 006 

5E62 DB27 8D7C 

-03BO- IREG 002 IREG 003 I REG 004 

5EC2 EA37 7222 

-03C0- BDIA 347 BDIA 348 BD1A 349 

C4C0 4AC2 4CD2 

-03D0- BDIA 355 BDIA 356 BDIA 357 

6AC2 6CD2 6EF2 

-03E0- BDIA 335 BDIA 336 8DIA 337 

2A25 2BF5 3B73 

-03F0- BDIA 343 BDIA 373 BDIA 374 

83D0 2505 2518 
CONTROL ADDRESS 



JTYP 488 
A412 

KAAQ 018 
9EAA 

MNNN 003 
9E72 

IREG 005 
128E 

BDIA 350 
4EF2 

BDIA 358 
83B8 

BDIA 338 
2C25 

BDIA 375 
F4FD 



IRST 181 
07 FF 

IRST 184 

0000 

IRST 18 7 
0000 

IRST 190 
2FF7 

BDIA 351 
2A1B 

BDIA 331 
4812 

BDIA 339 
2D15 

BDIA 376 
C4F4 



IRST 181 
C48A 

IRST 184 

0000 

IRST 187 

0000 

IRST 190 
2F1B 

BDIA 352 
2C1B 

BDIA 332 
3935 

BDIA 340 
30B3 

BDIA 377 
5007 



IRST 181 
8800 

IRST 184 

0000 

IRST 187 
0000 

IRST 190 
C4BC 

BDIA 353 
2E1B 

BDIA 333 
292B 

BDIA 341 
2E05 

BDIA 381 
2413 



IRST 181 

4E08 

IRST 184 

0000 

IRST 187 

0000 

IRST 190 
0F01 

BDIA 354 
E0F2 

BDIA 334 

68E2 

BDIA 342 
2F13 

BDIA 382 
883C 



-0380- 

-0390- 

-03A0- 

-03B0- 

-03C0- 

-03D0- 

-03E0- 

-03F0- 
03— 
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-0400- 



-0410- 



-0420- 



-0430- 



-0440- 



-0450- 



-0460- 



-0470- 



nm 004 

8D7C 

IZWM 012 
5FC0 

IZWM 020 
£089 

JCHL 185 
51C0 

BDIA 122 
5007 

I ADD 167 
3D85 

I ADD 175 
1D3D 

KAAA 342 
2304 



IZWM 005 
8424 

IZWM 013 
57D9 

IZWM 021 
8D7C 

JCHL 186 
1FFF 

IADD 160 
0DF5 

IADD 168 
128E 

IADD 176 
FD51 

KAAA 343 
3110 



IZWM 006 
840E 

IZWM 014 
55C0 

IZWM 022 
DD23 

JCHL 187 
6F17 

IADD 161 
F0D9 

IADD 169 
1DF3 

IADD 177 
3D85 

KAAA 344 
3D29 



IZWM 007 

DDOF 

IZWM 015 
C61E 

IZWM 023 
9E72 

JCHL 188 
7FC0 

IADD 162 
ODAB 

IADD 170 
F95C 

IADD 178 
128E 

KAAA 345 
4FDF 



IZWM 008 
9E72 

IZWM 016 
65F7 

JCHL 181 
5F42 

JCHL 189 
9DE4 

IADD 163 
F0D5 

IADD 171 
ED61 

KAAA 338 
3210 

KAAA 346 
43 DF 



IZWM 009 
3685 

IZWM 017 
C488 

JCHL 182 
CF39 

JCHL 178 
FCA8 

IADD 164 
0D18 

I ADD 172 

FD64 

KAAA 339 
5D79 

KAAA 347 
8526 



IZWM 010 
5D3A 

IZWM 018 
8D7C 

JCHL 183 
2D95 

JCHL 179 
2A45 

IADD 165 
F0D1 

IADD 173 
ID ID 

KAAA 340 
OE08 

KAAA 348 
5FCF 



IZWM Oil 
3D45 

IZWM 019 
6F51 

JCHL 184 
3D63 

JCHL 180 
9796 

IADD 166 
1D83 

IADD 174 
FD50 

KAAA 341 
2302 

KAAA 349 
ICFF 



-0400- 



-0410- 



-0420- 



-0430- 



-0440- 



-0450- 



-0460- 



-0470- 



048- 



-0480- 



-04A0- 



-04B0- 



-04D0- 



KAAA 350 
C4FA 



-0490- KAAA 359 
C4FA 



KAAA 367 
851E 

KAAA 375 
8528 



-04C0- KAAA 384 
CAFB 



KAAA 394 
2390 



-04E0- KAAA 404 
2380 



-04F0- 
CONTROL ADDRESS 



KAAA 413 
2D55 



KAAA 351 
4FCF 

KAAA 360 
2310 

KAAA 368 
2D35 

KAAA 376 
3D73 

KAAA 385 
2380 

KAAA 395 
3114 

KAAA 405 
2308 

KAAA 414 
3D83 



KAAA 352 
5FCF 

KAAA 361 
2390 

KAAA 369 
2DIB 

KAAA 377 
8524 

KAAA 386 
3114 

KAAA 397 
2308 

KAAA 406 
2D35 

KAAA 415 
8524 



KAAA 353 
C4FA 

KAAA 362 
2D13 

KAAA 370 
4FDF 

KAAA 378 
3114 

KAAA 388 
851A 

KAAA 398 
2D75 

KAAA 407 
3DA3 

KAAA 416 
IDOO 



KAAA 354 
8512 

KAAA 363 
4FDF 

KAAA 371 
8516 

KAAA 380 
851A 

KAAA 389 
2D45 

KAAA 399 
3DA3 

KAAA 408 
8524 

KAAA 417 
8506 



KAAA 355 
5BCF 

KAAA 364 
2D25 

KAAA 372 
58CF 

KAAA 381 
2DA3 

KAAA 390 
3DE3 

KAAA 400 
8524 

KAAA 409 
IDOO 

KAAA 418 
2100 



KAAA 356 
8528 

KAAA 365 
43 DF 

KAAA 373 
2D85 

KAAA 382 
8524 

KAAA 391 
8524 

KAAA 402 
IDOO 

KAAA 410 
3114 

KAAA 419 
1E00 



KAAA 358 
5ECF 

KAAA 366 
3110 

KAAA 374 
3D23 

KAAA 383 
IDOO 

KAAA 393 
IDOO 

KAAA 403 
3114 

KAAA 412 
2308 

KAAA 420 
0E08 



-0480- 
-0490- 

-04A0- 

-04B0- 

-04C0- 

-04D0- 

-04E0- 

-04F0- 
04— 
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-Q500- 



-0510- 



-0520- 



-0530- 



-0540- 



-0550- 



-0560- 



-0570- 



KAAA 421 
1210 

KAAA 429 
87B4 

KAAA 437 
2308 

I CYC 164 
2F4D 

JfYP 327 

OBBB 

JTYP 335 

EOFB 

JTYP 343 
859E 

JTYP 351 
5BF9 



KAAA 422 
A5D0 

KAAA 430 
2308 

KAAA 438 
128E 

1CYC 165 
3DE9 

JTYP 328 
F0C8 

JTYP 336 
0B1F 

JTYP 344 
2B8B 

JTYP 352 

OFAB 



KAAA 423 
8B58 

KAAA 431 
2308 

KAAA 439 
2112 

ICYC 166 
8C88 

JTYP 329 
2B1B 

JTYP 337 
C4DA 

JTYP 345 
857A 

JTYP 353 

FOFE 



KAAA 424 
2100 

KAAA 432 
2308 

KAAA 440 
5ECF 

JTYP 322 
5AEF 

JTYP 330 
857A 

JTYP 338 
2BF3 

JTYP 346 

OBOD 

JTYP 354 
LFF3 



KAAA 425 
3E00 

KAAA 433 
2308 

KAAA 441 
6CD1 

JTYP 323 

5EB9 

JTYP 331 

OBOD 

JTYP 339 
857A 

JTYP 347 
EOFA 

JTYP 355 
857E 



KAAA 426 
0E08 

KAAA 434 
2308 

KAAA 442 
C4AF 

JTYP 324 
1BC5 

JTYP 332 
FODO 

JTYP 340 
DA60 

JTYP 348 

OBBB 

JTYP 357 
2A65 



KAAA 427 
1210 

KAAA 435 
2308 

KAAA 443 
84FA 

JTYP 32 5 

C4FB 

JTYP 333 
3BA3 , 

JTYP 341 
0B4B 

JTYP 349 
C4FB 

JTYP 361 

5FA0 



KAAA 428 
57D9 

KAAA 436 
2308 

KAAA 444 
128E 

JTYP 326 
CE66 

JTYP 334 
857A 

JTYP 342 
F0E2 

JTYP 350 
3BF5 

JTYP 362 
D26B 



-0500- 



-0510- 



-0520- 



-0530- 



-0540- 



-0550- 



-0560- 



-0570- 



058- 



-0580- 


JTYP 363 


JTYP 364 


JTYP 365 


JTYP 366 


JTYP 367 


JTYP 368 


JTYP 369 


JTYP 370 


-0580- 




C16B 


OFOD 


C488 


859E 


CE13 


D526 


0F7D 


E087 




-0590- 


JTYP 371 


JTYP 372 


JTYP 373 


JTYP 374 


JTYP 375 


JTYP 376 


JTYP 377 


JTYP 378 


-0590- 




85A6 


D527 


0FB8 


F08D 


OFCB 


F08D 


85A6 


8710 




-05A0- 


JTYP 379 


JTYP 380 


JTYP 381 


JTYP 382 


JTYP 383 


JTYP 384 


JTYP 385 


JTYP 386 


-05A0 




2F45 


85 A A 


2FE7 


OFEF 


C4C7 


5D30 


ODFB 


C4B2 




-05B0- 


JTYP 387 


JTYP 388 


JTYP 389 


JTYP 390 


JTYP 391 


JTYP 392 


JTYP 393 


JTYP 394 


-05B0- 




C260 


C23F 


DD3E 


F53F 


3F45 


7F38 


85EA 


F542 




-05C0- 


JTYP 395 


JTYP 396 


JTYP 397 


JTYP 398 


JTYP 399 


JTYP 400 


JTYP 401 


JTYP 402 


-05C0- 




F138 


1F45 


85BA 


3513 


1F83 


9DB6 


D254 


C1D2 




-05D0- 


JTYP 403 


JTYP 404 


JTYP 405 


JTYP 406 


JTYP 407 


JTYP 408 


JTYP 409 


JTYP 410 


-0500- 




A494 


A4FE 


C153 


DADE 


5ADF 


0DA3 


F0E1 


896C 




-05EO- 


JTYP 411 


JTYP 412 


JTYP 416 


JTYP 417 


JTYP 418 


JTYP 419 


JTYP 420 


KEND 030 


-05E0- 




8710 


8376 


DF6B 


F56A 


F124 


1511 


9D7E 


3480 




-05F0- 


KEND 031 


KEND 032 


IMPY 010 


IMPY 012 


IMPY 013 


IMPY 014 


IMPY 020 


IMPY 022 


-05F0 




6004 


9872 


7222 


2C07 


10 20 


4426 


7032 


5D1A 
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-06C0- IMPY 023 
CD05 

-0610- IMPY 046 
3C85 

-0620- IMPY 042 
CC15 

-0630- IDVD 073 
2F07 

-0640- IDVD 070 
865 8 

-0650- IDVD 015 
16F3 

-0660- IDVD 036 
3683 

-0670- IDVD 052 
7AFF 



IMPY 030 
8442 

IMPY 047 
8618 

IMPY 043 
DF10 

IDVD 074 
8664 

IDVO 058 
ODED 

IDVD 016 
3042 

IDVD 037 
5DFD 

IDVD 053 
D1F7 



IMPY 032 
£DOB 

IMPY 048 
5D30 

IMPY 044 
5F1A 

IDVD 064 
3645 

IDVD 059 
E0B8 

IDVD 022 
7032 

IDVD 039 
5 030 

IDVD 054 
4ADD 



IMPY 033 
FDOA 

IMPY 049 
8600 

IMPY 045 
8618 

IDVD 065 
3613 

IDVD 060 
0D18 

IDVD 024 
4426 

IOVD 040 
CD6B 

IDVD 055 
ED43 



IMPY 034 
1618 

IMPY 038 
5D30 

MAAA 120 
2A85 

IDVD 066 
D180 

IDVO 061 
F0B8 

IDVD 025 
5D1A 

IDVD 047 
8442 

IDVD 056 
FD35 



IMPY 035 
5DF9 

IMPY 039 
5008 

MAAA 121 
9172 

IDVD 067 
7D30 

IDVD 062 
1D85 

IDVD 026 
CD5F 

IDVD 049 
5DAD 

IDVD 057 
8636 



IMPY 036 
CC18 

IMPY 040 
3DB5 

IDVD 071 
D27D 

IDVD 068 
5226 

IDVD 063 
8638 

IDVD 033 
8442 

IDVD 050 
C5F1 

IDVD 075 
16C3 



IMPY 037 

94FC 

IMPY 041 
7D3A 

IDVD 072 
3643 

IDVD 069 
C22D 

IDVD 014 
16C5 

IDVD 035 
DD63 

IDVD 051 
3A95 

IDVD 076 
F583 



-0600- 



-0610- 



-062 0- 



-0630- 



-0640- 



-0650- 



-0660- 



-0670- 



068- 



-0680- 


IDVD 07 7 


IDVD 078 


IDVD 079 


IDVD 080 


IDVD 086 


IDVD 088 


IDVD 089 


IDVD 090 


-0680- 




869E 


D187 


86F0 


0040 


5032 


C591 


3000 


5444 




-0690- 


IDVD 091 


IDVD ,092 


IDVD 093 


IDVD 094 


IDVD 095 


IDVD 096 


IDVD 097 


IDVD 098 


-0690- 




F595 


2002 


4246 


C59A 


8658 


0002 


8658 


E222 




-06A0- 


IDVD 099 


IDVD 105 


IDVD 107 


IDVD 108 


IDVD 109 


IDVD 110 


IDVD 116 


IDVO 117 


-06A0- 




86CC 


5032 


1000 


D194 


F20C 


86D2 


1000 


5030 




-06B0- 


IDVD 118 


IDVD 119 


IDVD 120 


IDVD 121 


IDVD 122 


IOVD 123 


IDVD 124 


IDVD 125 


-06B0- 




3DB5 


2A95 


5DFD 


7FAF 


40FB 


7F3A 


F5C3 


3042 




-06C0- 


IDVD 126 


IDVD 135 


IDVD 136 


IDVD 137 


IDVD 139 


IDVD 140 


IDVD 141 


IDVD 142 


-06G0- 




8688 


5A82 


3B43 


7A82 


3623 


2B33 


2BFF 


C4D3 




-06D0- 


IDVD 143 


IDVO 149 


IDVD 151 


IDVO 152 


IDVD 159 


IDVD 161 


IDVD 162 


IDVD 163 


-06D0- 




86A2 


5A32 


5DB0 


CD5B 


8442 


5B30 


ED61 


FD69 




-0660- 


IDVD 164 


IDVD 165 


IDVD 166 


IDVD 167 


IDVD 170 


IDVD 171 


IDVD 168 


IDVD 169 


-06E0- 




066 D 


183D 


TB3A 


8D7C 


D663 


86EC 


IB 2D 


86E4 




-06F0- 


IDVD 112 


IDVD 113 


IDVD 114 


IDVD 115 


IMAD 070 


IMAD 071 


IMAD 072 


IMAD 073 


-06F0- 




C5AD 


2040 


F22B 


8688 


57AB 


5DFB 


1AFD 


1FFD 
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-0700- I MAD 074 
6FA3 

-0710- JTYP 260 
5C82 

-0720- INDX 007 
8726 

-0730- INDX 015 
1FFD 

-0740- INDX 023 
8C06 

-0750- INDX 031 
5D8A 

-0760- INDX 039 
5DBA 

-0770- INDX 047 
74FF 



IMAD 075 
D208 

JTYP 261 

3D83 

INDX 008 
5079 

INDX 016 
5F43 

INDX 024 
CD4B 

INDX 032 
3D45 

INDX 040 
CD6B 

INDX 048 
5BD9 



I MAD 076 
F588 

JTYP 262 
7C82 

INDX 009 
17FD 

INDX 017 
5FFB 

INDX 025 
5DC0 

INDX 03 3 
CD5D 

INDX 041 
3D45 

INDX 049 
3D45 



IMAD 077 
2F1D 

JTYP 263 
128E 

INDX 010 
CF31 

INDX 018 
5 AEG 

INDX 026 
108 3 

INDX 034 
5DC0 

INDX 042 
5DC0 

INDX 050 
C07F 



IMAD 078 
1FBD 

INDX 003 
1002 

INDX Oil 
5F09 

INDX 019 
5D98 

INOX 027 
874C 

INDX 035 
1D83 

INDX 043 
1083 

INDX 051 
5DC0 



IMAD 079 
4FB8 

INDX 004 
CD23 

INDX 012 
5FC0 

INDX 020 
DD4 3 

INDX 028 
1DFD 

INDX 036 
875E 

INDX 044 
5BB0 

INDX 052 
1D83 



IMAD 080 
3BC5 

INDX 005 
57C0 

INDX 013 
1F83 

INDX 021 
6886 

INDX 029 
4D4D 

INDX 037 
1DFD 

INDX 045 
5FAB 

INDX 053 
8780 



IMAD 081 
128E 

INDX 006 
1783 

INDX 014 
8732 

INDX 022 
5F98 

INDX 030 
5DFB 

INDX 038 
6FD3 

INDX 046 
4DF3 

INDX 054 
1DFD 



-0700- 



-0710- 



-0720- 



-0730- 



-0740- 



-0750- 



-0760- 



-0770- 



078- 



-0780- 


INDX 055 


INDX 056 


INDX 057 


INDX 058 


INDX 059 


INDX 060 


INDX 061 


INDX 062 


-0780- 




77DF 


D708 


2A1D 


1745 


54F5 


5FE0 


64FF 


5AF9 




-0790- 


INDX 063 


INDX 064 


INDX 065 


INDX 066 


INDX 067 


INDX 068 


INDX 069 


INDX 070 


-0790- 




€F2D 


2D07 


FF1E 


2DFB 


2 4 AD 


F49E 


2D1B 


17FD 




-07A0- 


INDX 071 


INDX 072 


INDX 07 3 


INDX 074 


INDX 075 


INDX 076 


I$DX 077 


INDX 078 


-07A0- 




57F1 


6FFF 


5AE0 


6B4B 


1645 


8C8A 


*3DE9 


244D 




-07B0- 


INDX 079 


INDX 080 


KAAA 105 


KAAA 106 


KAAA 107 


KAAA 108 


KAAA 109 


KAAA 110 


-07B0- 




FF17 


879E 


490F 


56B2 


7C52 


EEF5 


DEF4 


FAF5 




-07C0- 


KAAA 111 


KAAA 112 


KAAA 123 


KAAA 124 


KAAA 125 


KAAA 126 


KAAA 127 


KAAA 128 


-07C0- 




CEEO 


8BF0 


E754 


0753 


F0D6 


CF58 


174D 


D759 




-07D0- 


KAAA 129 


KAAA 130 


KAAA 131 


KAAA 132 


KAAA 133 


KAAA 134 


KAAA 135 


KAAA 136 


-07D0- 




3E23 


87D8 


C659 


1745 


1685 


FB79 


C778 


9F6C 




-07E0- 


KAAQ 019 


KAAQ 020 


KAAQ 021 


KAAQ 022 


KAAA 103 


KAAA 104 


KAAA 097 


KAAA 098 


-07E0- 




2F07 


49FF 


2F15 


8392 


4ECF 


8468 


3480 


F5EF 




-07F0- 


KAAA 099 


KAAA 100 


KAAA 101 


KAAA 102 


KAAA 137 


KAAA 138 


KAAA 139 


KAAA 140 


-07F0- 




5ECF 


C4E9 


A5D0 


8390 


17 B5 


577B 


2E 08 


9E48 
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07 — 



ADDRESS LIST 
CONTROL ADDRESS 2 



DATE il/08/68 

A C 



CL0AD=*E40, EC LEVEL=1282il f PAGE 240 
08— 



-0800- 



BDIA 280 
4E02 



-0810- BDIA 304 
E190 



-0820- 



-0830- 



-0840- 



-0850- 



-0860- 



-0870- 



BDIA 312 
8802 

BDIA 320 
4622 

BDIA 388 
3808 

BDIA 400 
886E 

BDIA 408 
1212 

BDIA 416 
3804 



BDIA 281 
2E18 

BDIA 305 

2EC5 

BDIA 313 
0020 

BDIA 321 
6E12 

BDIA 389 
050D 

BDIA 401 
0E3F 

8DIA 409 
886E 

BDIA 417 
6E80 



BDIA 282 
2F1D 

BDIA 306 
3E43 

BDIA 314 
E1A5 

BDIA 322 
3EC9 

BDIA 390 
3800 

BDIA 402 
FED4 

BDIA 410 
0F1F 

BOIA 418 
CAF4 



BDIA 283 
CAOD 

BDIA 307 
2F85 

BDIA 315 
D1AC 

BDIA 323 
5EF1 

BDIA 391 
DAC6 

BDIA 403 
4E80 

BDIA 411 
FEE6 

BDIA 419 
3800 



BDIA 284 
6E02 

BDIA 308 
3FA3 

BDIA 316 
0040 

BDIA 324 
8802 

BDIA 392 
1212 

BDIA 404 
6E80 

BDIA 412 
4E80 

BDIA 420 
128E 



BDIA 285 
8388 

BDIA 309 
6E12 

BDIA 317 
83D8 

BDIA 385 
6443 

BDIA 393 
2800 

BDIA 405 
FADA 

8DIA 413 

6E80 

INTP 109 
5E82 



BDIA 302 
E1A3 

BDIA 310 
2EF7 

BDIA 318 
2040 

BDIA 386 
2505 

BDIA 394 
C43A 

BDIA 406 
0E3F 

BDIA 414 
02E2 

INTP 110 
4A65 



BDIA 303 
202 

BDIA 311 
3F89 

BDIA 319 
D1AE 

BDIA 387 
7543 

BDIA 399 
2440 

BDIA 407 
EADE 

BDIA 415 
4E80 

INTP 111 
2F23 



-0800- 



-0810- 



-0820- 



-0830- 



-0840- 



-0850- 



-0860- 



-0870- 



088- 



-08 80- 



-0890- 



-08A0- 



-08C0- 



-08D0- 



-08E0- 



INTP 112 
9245 

IOCM 039 
57F9 

JCHL 222 
3A79 



-08B0- JCHL 230 
20D3 



JCHL 238 
2AC7 

JCHL 247 
20FF 

JCHL 212 
D917 



-08F0- BDIA 271 
2E87 



IOCM 047 
A564 

IOCM 040 
3F23 

JCHL 223 
9796 

JCHL 231 

6808 

JCHL 23 9 
9796 

JCHL 248 
C4C4 

JCHL 213 
5F7F 

BDIA 272 
2F05 



IOCM 048 
ADDS 

IOCM 041 
8902 

JCHL 224 
2A95 

JCHL 232 
6ACD 

JCHL 240 
5730 

JCHL 249 
9DE2 

JCHL 214 
2B48 

BDIA 273 
6E12 



5007 

JCHL 217 
2B42 

JCHL 225 
D1A3 

JCHL 233 
5E22 

JCHL 242 
07FB 

JCHL 250 
9DE4 

JCHL 215 
77C8 

BDIA 274 
6E22 



IOCM 049 
A570 

JCHL 218 
FD98 

JCHL 226 
3D2B 

JCHL 234 
7FB9 

JCHL 243 
C4CF 

JCHL 208 
2B48 

JCHL 216 
88DE 

BDIA 275 
3EE9 



5007 

JCHL 219 
2B00 

JCHL 227 
5FC0 

JCHL 235 
7EA9 

JCHL 244 
577B 

JCHL 209 
AA31 

MAAA 033 
9286 

BDIA 276 
2F77 



5007 

JCHL 220 
2B08 

JCHL 228 
CF56 

JCHL 236 
F5D7 

JCHL 245 
17B5 

JCHL 210 
2D95 

BDIA 269 

DIED 

BDIA 277 
8802 



IOCM 050 
A 556 

JCHL 221 
C5A5 

JCHL 229 
4A26 

JCHL 237 
D345 

JCHL 246 
7738 

JCHL 211 
EDDE 

BDIA 270 
E1EF 

BDIA 004 
AAFA 
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-09GO- 



-0910- 



-0920- 



-0930- 



-0940- 



-09 50- 



-0960- 



-0970- 



IOCM 042 
57F9 

JTYP 266 
C114 

JTYP 274 
8376 

JTYP 282 
8376 

JTYP 290 
C237 

JTYP 299 

8538 

JTYP 307 
C269 

JTYP 315 
A416 



IOCM 043 
5AC2 

JTYP 267 
924C 

JTYP 275 
5AEF 

JTYP 283 
2FF3 

JTYP 291 
8710 

JTYP 300 

OEDB 

JTYP 308 
2F55 

JTYP 316 

CEEE 



IOCM 044 
0B83 

JTYP 268 
5F30 

JTYP 276 
0AA9 

JTYP 284 
7F38 

JTYP 292 

CACB 

JTYP 301 
F0D8 

JTYP 309 
3FD3 

JTYP 317 
5226 



IOCM 045 
F08A 

JTYP 269 
OFFB 

JTYP 277 
8948 

JTYP 285 
8376 

JTYP 293 
85AA 

JTYP 302 
FE60. 

JTYP 310 
85AA 

JTYP 318 
8376 



IOCM 046 
9B11 

JTYP 270 

C49D 

JTYP 278 
1EC5 

JTYP 286 
8710 

JTYP 295 
CAC3 

JTYP 303 
2F45 

JTYP 311 
2F15 

MAAA 133 
221E 



IOCM 051 
9B13 

JTYP 271 
85E4 

JTYP 279 
0E5B 

JTYP 287 
0EA8 

JTYP 296 
CA4F 

JTYP 304 
8710 

JTYP 312 
3F53 

MAAA 134 
3486 



MAAA 032 
9286 

JTYP 272 

E21B 

JTYP 280 
C4B8 

JTYP 288 
C4C8 

JTYP 297 
8538 , 

JTYP 305 
C26F 

JTYP 313 
E273 

MAAA 135 
2B08 



JTYP 265 
CFA3 

JTYP 273 
5224 

JTYP 281 
C232 

JTYP 289 
2F45 

JTYP 298 
DA 53 

JTYP 306 

85AA 

JTYP 314 
4FFF 

MAAA 136 
94D8 



-0900- 



-0910- 



-0920- 



-0930- 



-0940- 



-0950- 



-0960- 



-0970- 



098- 



-09 80- 


MQQQ 044 


IOCM 052 


IOCM 053 




IOCM 054 






IOCM 055 


-0980- 




A638 


A5FE 


A614 


5007 


A640 


5007 


5007 


83A0 




-0990- 


MQQQ 045 


MQQQ 055 


LRXF 003 


LRXF 004 


LRXF 005 


LRXF 007 


LRXF 00 8 


LRXF 009 


-0990- 




0010 


A63 8 


2B55 


7B38 


2406 


1B00 


2A55 


5C88 




-09A0- 


LRXF 010 


LRXF Oil 


LRXF 012 


LRXF 013 


LRXF 014 


LRXF 015 


LRXF 016 


LRXF 017 


-09A0 




2B73 


6DD3 


6DD3 


EOBB 


6BC7 


C4C7 


F231 


2B80 




-09B0- 


LRXF 018 


LRXF 019 


LRXF 020 


LRXF 021 


LRXF 022 


LRXF 023 


LRXF 024 


LRXF 025 


-09B0 




2545 


0840 


E0E1 


2F80 


89E0 


6BC7 


C4D1 


1C73 




-09C0- 


LRXF 026 


LRXF 027 


LRXF 028 


LRXF 029 


LRXF 030 


LRXF 031 


LRXF 032 


LRXF 033 


-09C0- 




89CA 


98EA 


8EA0 


3C43 


5DB5 


3BB5 


57A0 


6C75 




-09D0- 


LRXF 034 


LRXF 035 


LRXF 036 


LRXF 37 


LRXF 038 


LRXF 039 


LRXF 04 


LRXF 041 


-09D0- 




5DB3 


C4D6 


2BC5 


6BC5 


EC5C 


FC 2D 


55A0 


D52C 




-09E0- 


LRXF 042 


LRXF 043 


LRXF 044 


LRXF 045 


LRXF 046 


LRXF 047 


LRXF 048 


LRXF 049 


-09E0 




5D30 


DD67 


1545 


7538 


21FF 


C49E 


83B0 


084D 




-09F0- 


LRXF 050 


LRXF 051 


LRXF 052 


LRXF 053 


LRXF 054 


LUXF 055 


LRXF 056 


LRXF 05 7 


-09F0- 




E0C2 


F277 


8A2E 


2A07 


2C45 


202 5 


2945 


63 9B 




CONTROL ADDRESS 
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-OAOO- LRXF 058 
62AD 

-OAiO- LRXF 066 
55A0 

-0A20- LRXF 074 
3545 

-0A30- JENO 129 
2085 

-0A40- JENO 137 
7FC0 

-0A50- INTP 128 
F0D7 

-0A60- INTP 142 
8E82 

-GA70- J END 114 
5552 



LRXF 059 
62 A9 

LRXF 067 
3545 

LRXF 075 
5F10 

JEND 130 
5FC0 

JEND 138 
9E72 

INTP 129 
6FE5 

JEND 122 
C5EB 

JEND 115 
C56B 



LRXF 060 
292F 

LRXF 068 
5F30 

LRXF 076 
DF29 

JEND 131 
4FD5 

INTP 116 
6FF3 

INTP 130 
8A5A 

JEND 123 
3189 

JEND 116 
5042 



LRXF 061 
6024 

LRXF 069 
DF1B 

LRXF 077 
1545 

JEND 132 
1D83 

INTP 117 
6FF3 

INTP 131 
1FFF 

JEND 124 
6151 

JEND 117 
2005 



LRXF 062 
6198 

LRXF 070 
15 45 

LRXF 078 
7518 

JEND 133 
5FC0 

INTP 118 
6FF3 

INTP 132 
6FE7 

JEND 125 
C4F1 

JEND 118 
5700 



LRXF 063 
60AD 

LRXF 071 
7538 

LRXF C79 
CDOC 

JEND 134 
FF3F 

INTP 119 
6FF3 

INTP 138 
7F82 

JENO 126 
7222 

JENO 119 
3715 



LRXF 064 
58C8 

LRXF 072 
5989 

LRXF 080 
DDOC 

JEND 135 
80 7C 

INTP 120 
6FF3 

INTP 140 
1F13 

JENO 127 
3486 

JEND 120 
7700 



LRXF 065 
58B9 

1RXF 073 
55A0 

LRXF 081 

8A8A 

JEND 136 
1F15 

INTP 121 
0A9D 

INTP 141 
5FB9 

JEND 128 
A24C 

JEND 121 
8A6A 



-OAOO- 



-OAIO- 



-0A20- 



-0A30- 



-0A40- 



-0A50- 



-GA60- 



-0A70- 



0A8- 



-0A80- 


IERR 002 


IERR 003 


IERR 004 


IERR 005 


MMMM 017 


LXFR 003 


LXFR 004 


LXFR 005 


-0A80- 




B159 


81DA 


8D04 


9378 


AE80 


3466 


D414 


0719 




-0A90- 


LXFR 006 


LXFR 007 


LXFR 008 


LXFR 009 


LXFR 010 


LXFR Oil 


LXFR 012 


LXFR 013 


-0A90- 




£08 A 


E40B 


2D04 


DD9A 


CE9D 


93F4 


3406 


2045 




-OAAO- 


LXFR 014 


LXFR 015 


LXFR 016 


LXFR 017 


LXFR 018 


LXFR 019 


LXFR 020 


LXFR 021 


-OAAO- 




2115 


3183 


5400 


7008 


5111 


E431 


2035 


21A5 




-OABG- 


LXFR 022 


LXFR 023 


LXFR 024 


LXFR 025 


LXFR 026 


LXFR 02 7 


LXFR 028 


LXFR 029 


-OABO- 




2445 


2525 


251B 


22A3 


2807 


290 7 


4A86 


4C86 




-OACO- 


LXFR 030 


LXFR 031 


LXFR 032 


LXFR 033 


LXFR 034 


LXFR 035 


LXFR 036 


LXFR 037 


-OACO- 




4E86 


2613 


5700 


C74B 


6965 


D74F 


6B65 


E753 




-OADO- 


LXFR 038 


LXFR 039 


LXFR 040 


LXFR 041 


LXFR 042 


LXFR 043 


LXFR 044 


LXFR 045 


-OADO- 




6D65 


F757 


6F65 


C35B 


6865 


D35F 


6A65 


E363 




-OAEO- 


LXFR 046 


LXFR 047 


LXFR 048 


LXFR 049 


LXFR 050 


LXFR 051 


LXFR 052 


LXFR 053 


-OAEO 




6C65 


F367 


6 £65 


6663 


D679 


F475 


21AB 


F4F2 




-OAFO- 


LXFR 054 


LXFR 055 


LXFR 056 


LXFR 057 


LXFR 058 


LXFR 059 


LXFR 060 


LXFR 061 


-OAFO- 




201D 


8AC4 


319B 


8AC4 


7940 


6444 


7B40 


6444 




CONTROL ADDRESS 


















OA — 



ADDRESS LIST 
CONTROL ADDRESS 2 



DATE 11/08/68 
A C 



CL0AD=*E40, EC L£VEL=128211 ,PAGE 243 
OB — 



-OB CO- LXFR 062 
7D40 

-0B10- LXFR 070 
5EF9 

-0B20- LXFR 078 
8AB8 

-0B30- LXFR 086 
3466 

-OB 40- LXFR 094 
5202 

-OB 50- LXFR 102 
A5A0 

-0B60- ICYC 225 
9CB8 

-0B70- JTYP 244 
AE1E 



LXFR 063 
6444 

LXFR 071 
8AF8 

LXFR 079 
213F 

LXFR 087 
D331 

LXFR 095 
2155 

LXFR 103 
98EA 



5007 

JTYP 245 
5AEF 



LXFR 064 
7F40 

LXFR 072 
22FF 

LXFR 080 
8AB8 

LXFR 088 
3400 

LXFR 096 
2907 

LXFR 104 
3466 

ICYC 226 
A062 

JTY,P 246 
8538 



LXFR 065 
6444 

LXFR 073 
C4A7 

LXFR 081 
148B 

LXFR 089 
8AB6 

LXFR 097 
2835 

LXFR 105 
8E8C 



5007 

ICYC 235 
934C 



LXFR 066 
C114 

LXFR 074 
F423 

LXFR 082 
C03E 

LXFR 090 
21A7 

LXFR 098 
89 94 

KAAN 052 
56EQ 

ICYC 227 
8C50 

MDDQ 052 
2A85 



LXFR 067 
5899 

LXFR 075 
313D 

LXFR 083 
F439 

LXFR 091 
2507 

LXFR 099 
004D 

KAAN 053 
3785 

ICYC 223 
A1D8 

MDDD 05 3 
9172 



LXFR 068 
5AB9 

LXFR 076 
C020 

LXFR 084 
2UB 

LXFR 092 
8AB6 

LXFR 100 
C4D3 

KAAN 054 
76E0 

ICYC 229 
8D7C 

ICYC 237 
8100 



LXFR 069 
5C09 

LXFR 077 

20FD 

LXFR 085 
2525 

LXFR 093 
F44A 

LXFR 101 

98EA 

KAAN 055 
8390 

JTYP 243 
E172 

ICYC 238 
840A 



-OBOO- 



-OBIO- 



-0B20- 



-0B30- 



-0B4 0- 



-0B50- 



-0B60- 



-0B70- 



0B8- 



-0B8O- 


LPSU 004 


LPSU 005 


LPSU 006 


LPSU 007 


LPSU 008 


LPSU 009 


LPSU 010 


LPSU Oil 


-0B80- 




3462 


C401 


3402 


2D80 


CFC8 


CEC8 


FFC5 


C14F 




-0B90- 


LPSU 012 


LPSU 013 


LPSU 014 


LPSU 015 


LPSU 016 


LPSU 018 


LPSU 019 


LPSU 020 


-0B90- 




C563 


3462 


F419 


3443 


2400 


2815 


2977 


2C35 




-OBAO- 


LPSU 021 


LPSU 022 


LPSU 023 


LPSU 024 


LPSU 025 


LPSU 026 


LPSU 027 


LPSU 028 


-OBAO- 




59D9 


2AF7 


5AB9 


5280 


7A8A 


72CA 


C826 


5202 




-0B80- 


LPSU 029 


LPSU 030 


LPSU 031 


LPSU 032 


LPSU 033 


LPSU 034 


LPSU 035 


LPSU 036 


-OBBO- 




2C15 


2D07 


F26B 


2A65 


3A43 


63AB 


62DD 


2BF5 




-OBCO- 


LPSU 037 


LPSU 038 


LPSU 039 


LPSU 040 


LPSU 041 


LPSU 042 


LPSU 043 


LPSU 044 


-OBCO- 




7B38 


9488 


5EC2 


CEOE 


3AA9 


0D80 


8EBA 


0D80 




-OBDO- 


LPSU 045 


LPSU 046 


LPSU 047 


LPSU 048 


LPSU 049 


LPSU 050 


LPSU 051 


LPSU 052 


-OBDO- 




3462 


3415 


3400 


2435 


2513 


2015 


21E7 


317B 




-OBEO- 


LPSU 053 


LPSU 054 


LPSU 055 


LPSU 056 


LPSU 057 


LPSU 058 


LPSU 059 


LPSU 060 


-OBEG- 




8AB6 


3462 


1443 


2F40 


8B98 


2B95 


2A13 


9B5C 




-OBFO- 


KBBG 027 


KBBG 02 8 


KBBG 029 


KBBG 030 


KBBG 031 


KBBG 032 


KBBG 033 


KBBG 034 


-OBFO 




2C45 


4ECF 


2C15 


4BCF 


2C07 


4ECF 


4BCF 


128E 
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ocoo- 


ICYC 124 


ICYC 125 


ICYC 126 


ICYC 127 


ICYC 128 


ICYC 129 


ICYC 130 


ICYC 131 


-ocoo- 




8718 


8718 


8718 


5798 


D721 


5F79 


5F29 


2345 




OCIO- 


ICYC 132 


ICYC 133 


ICYC 134 


ICYC 135 


ICYC 136 


ICYC 137 


ICYC 138 


ICYC 139 


-0C1O- 




C64G 


1685 


8C44 


C61D 


3625 


8C32 


3615 


8C32 




OC2 0- 


ICYC 140 


ICYC 141 


ICYC 142 


ICYC 149 


ICYC 151 


ICYC 152 


ICYC 153 


ICYC 154 


-0C2O- 




5FFD 


5FE0 


6 8FB 


6ACD 


FB17 


D617 


C733 


0718 




OC30- 


ICYC 155 


ICYC 156 


ICYC 157 


ICYC 197 


ICYC 198 


ICYC 199 


ICYC 200 


ICYC 201 


-0C30- 




F096 


57FD 


8719 


5D79 


2245 


2345 


C645 


3683 




OC40- 


ICYC 202 


ICYC 203 


ICYC 204 


ICYC 205 


ICYC 206 


ISWM 012 


ISWM 013 


ISWM 014 


-0C40- 




3625 


4026 


3615 


5886 


862B 


1D45 


1B45 


8C5A 




OC5G- 


ISWM 004 


ISWM 005 


ISWM 006 


ISWM 007 


ISWM 008 


ISWM 009 


ISWM 010 


ISWM Oil 


-0C50- 




5D10 


5B30 


F14A 


3D45 


3B45 


70 1 A 


7B3A 


8D7C 




OC60- 


ICYC 239 




ICYC 240 


ICYC 241 


ICYC 242 


ICYC 243 


ICYC 244 


ICYC 245 


-0C60- 




9C9C 


5007 


ADA6 


ADA6 


9B7C 


8C50 


9578 


A26E 




OC70- 


ICYC 246 


ICYC 247 


ICYC 248 


ICYC 249 


ICYC 250 


ICYC 251 


ICYC 282 


ICYC 283 


-0C70- 




9704 


9702 


85F4 


864E 


A2D4 


A2D4 


AE6C 


A6EC 





0C8- 



-0C8O- 


ICYC 158 


ICYC 163 


ICYC 167 


ICYC 171 


ICYC 172 


ICYC 173 


ICYC 174 


ICYC 175 


-0C80- 




8CCE 


8530 


820A 


2D07 


6BFB 


6ADD 


5D98 


C61B 




-0C90- 


ICYC 176 


ICYC 177 


ICYC 178 


ICYC 179 


ICYC 180 


ICYC 186 


ICYC 187 


ICYC 188 


-0C90- 




40A6 


DD30 


3685 


1655 


8DAC 


42A6 


1685 


DD2C 




-OCAQ- 


ICYC 189 


ICYC 190 


ICYC 191 


ICYC 192 


ICYC 193 


ICYC 194 


ICYC 195 


ICYC 196 


-OCAO- 




0553 


C4AD 


5079 


5D98 


DD25 


3623 


5886 


862B 




-OCBO- 


ICYC 181 


ICYC 182 


ICYC 183 


ICYC 184 


ICYC 185 


KAAQ 013 


KAAQ 014 




-OCBO- 




3643 


C52D 


4206 


1615 


8CAC 


2F83 


9EAA 


5007 




-OCCO- 


I ERR 006 




I ERR 007 




IERR 008 


IERR 009 


IERR 010 


ICYC 159 


-OCCO- 




81 DA 


5 007 


A062 


5007 


81DA 


936C 


8D7C 


2FED 




-OCDO- 


ICYC 160 


ICYC 161 


ICYC 162 


IERR 016 


JTYP 241 


JTYP 242 


IERR 018 


IERR 019 


-GCDO- 




2DE3 


2D2D 


8C88 


934C 


4EDD 


AE2A 


81DA 


81DA 




-OCEO- 


ICYC 284 


ICYC 287 


ICYC 288 


ICYC 289 


ICYC 290 


ICYC 291 


ICYC 292 


ICYC 293 


-OCEO- 




8D7C 


A57C 


999C 


999C 


A57C 


A57C 


999C 


999C 




-OCFO- 


ICYC 294 


ICYC 295 


ICYC 307 




ICYC 308 


ICYC 309 


ICYC 310 




-OCFO- 




8D7C 


AE40 


A874 


5007 


3613 


91CA 


9 ICC 


5007 
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-ODOO- 



-0D10- 



-0D20- 



-0D30- 



-0D40- 



-0D50- 



-0D60- 



-0070- 



ICYC 211 
B167 

MBB8 077 
3400 

ICYC 207 
850B 

MKKK 086 
0939 

MKKK 098 
EB45 

MKKK 106 
26A3 

MKKK 072 
FDEO 

MKKK 080 
1F13 



ICYC 212 
B169 

MBBB 078 
2C05 

ICYC 208 
8515 

MKKK 087 
5E62 

MKKK 099 
1E65 

MKKK 107 
9F4C 

MKKK 073 
5FDF 

MKKK 081 
3F43 



ICYC 213 
B179 

MBBB 079 
56F2 

ICYC 209 
8515 

MKKK 088 
3F43 

MKKK 100 
F948 

MKKK 091 
093 B 

MKKK 074 
FD55 

MKKK 082 
7E62 



ICYC 214 
D10B 

MBBB 080 
02 ID 

ICYC 210 
8515 

MKKK 089 
7E62 

MKKK 101 
3E25 

MKKK 092 
2 808 

MKKK 075 
2F05 

MKKK 083 
2B48 



ICYC 215 
914E 

MBB8 081 
C61D 

MKKK 066 
5E92 

MKKK 090 
8D0C 

MKKK 102 
7E62 

MKKK 093 
021E 

MKKK 076 
7E92 

MKKK 084 
021E 



ICYC 216 

A06C 

MBBB 082 
807C 

MKKK 067 
EB5C 

MKKK 095 
5E62 

MKKK 103 
E956 

MKKK 094 
8F1A 

MKKK 077 
5E62 

MKKK 085 
AC4A 



MBBB 075 
2B08 

MBBB 083 
5032 

MKKK 068 
26A3 

MKKK 096 
1F43 

MKKK 104 
2B08 

MKKK 070 
4F4F 

MKKK 078 
E94D 

ICYC 037 
2F43 



MBBB 076 
021E 

MBBB 084 
9E72 

MKKK 069 
AE80 

MKKK 097 
CC44 

MKKK 105 
021E 

MKKK 071 
2B42 

MKKK 079 
C931 

ICYC 038 
4FFF 



•0000- 



-0010- 



-0020- 



-0030- 



-0040- 



-0050- 



-0D60- 



-0070- 



08- 



-0D80- 


iCYC 039 


ICYC 041 


ICYC 047 


ICYC 049 


ICYC 050 


ICYC 051 


ICYC 052 


ICYC 053 


-0D80- 




F1E2 


5F98 


2E25 


DF61 


16C5 


16F3 


3F45 


CF17 




-0090- 


ICYC 054 


ICYC 055 


ICYC 056 


ICYC 057 


ICYC 058 


ICYC 059 


ICYC 060 


ICYC 061 


-0090- 




FG94 


2FF7 


3F85 


55E0 


5 098 


DD21 


3613 


8CAC 




-ODAO- 


ICYC 069 


ICYC 070 


ICYC 071 


ICYC 072 


ICYC 073 


ICYC 074 


ICYC 075 


ICYC 076 


-OOAO- 




D52A 


4206 


1615 


E62A 


3615 


1625 


50F1 


CD45 




-OOBO- 


ICYC 077 


ICYC 078 


ICYC 079 


ICYC 080 


ICYC 08 1 


ICYC 082 


ICYC 083 


ICYC 084 


-ODBO- 




001B 


F0C7 


C664 


0D4O 


C4C2 


05BB 


C4C2 


5886 




-ODCO- 


ICYC 085 


ICYC 109 


ICYC 110 


ICYC 111 


ICYC 112 


ICYC 113 


ICYC 114 


ICYC 115 


-ODCO- 




9E72 


3645 


6FFF 


5AE0 


5F98 


DF4F 


8C36 


CF5F 




-OODO- 


ICYC 116 


ICYC 117 


ICYC 118 


ICYC 119 


ICYC 120 


ICYC 121 


ICYC 123 


ICYC 122 


-ODOO- 




OFAB 


FOOD 


0F4D 


C4DE 


3645 


8C06 


8718 


8F09 




-OOEO- 


ICYC 067 


ICYC 036 


ICYC 086 


ICYC 087 


ICYC 08 8 


ICYC 089 


ICYC 090 


ICYC 097 


-ODEO- 




8178 


9682 


5559 


F0C2 


ODCB 


F0C2 


E042 


5551 




-ODFO- 


ICYC 098 


ICYC 100 


ICYC 102 


ICYC 103 


ICYC 104 


ICYC 105 


ICYC 106 


ICYC 107 


-ODFO- 




3525 


35C3 


5D49 


3635 


5198 


5109 


5198 


5098 
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OEOO- 


ICYC 108 


MLLL 047 


MLLL 048 


MLLL 049 


MLLL 050 


MLLL 051 


MLLL 052 


MLLL 053 


-OEOO- 




8C92 


5FDF 


0D8B 


F090 


CCOE 


1523 


F094 


8D0C 




0E10- 


MLLL 060 


MILL 061 


MLLL 054 


MLLL 055 


MLLL 056 


MLLL 057 


MLLL 058 


MLLL 059 


-0E10- 




2802 


8D10 


2 808 


3400 


2C05 


5032 


56F2 


8D04 




0E20- 


INTP 171 


INTP 172 


INTP 173 


INTP 174 


INTP 175 


INTP 176 


INTP 177 


INTP 178 


-0E2 0- 




6AA3 


6AA3 


6AA3 


6AA3 


6AA3 


6AA3 


6AA3 


DA45 




0E30- 


INTP 179 


INTP 180 


INTP 194 


INTP 195 


INTP 196 


INTP 197 


INTP 198 


INTP 199 


-OE30- 




6AF7 


C4D3 


DE73 


FA3C 


3BC5 


8E7E 


2E1D 


EE39 




OE 40- 


INTP 200 


INTP 201 


INTP 202 


INTP 203 


INTP 204 


INTP 205 


INTP 206 


INTP 207 


-0E40- 




3E43 


8E74 


FE4A 


6FA5 


8E4E 


1AFF 


6FA7 


7FC0 




0E50- 


INTP 208 


INTP 209 


INTP 210 


INTP 211 


INTP 212 


INTP 213 


INTP 214 


INTP 215 


-0E50- 




8E38 


FA7B 


OEOD 


C4B7 


DE60 


3B85 


1B45 


8E7E 




0E60- 


INTP 216 


INTP 217 


INTP 218 


INTP 219 


INTP 220 


INTP ZZ\ 


INTP 222 


INTP 223 


-0E6O- 




OEO-9 


F4DB 


18C5 


EE6F 


1E4B 


EOFE 


8E40 


3845 




QE70- 


INTP 224 


INTP 167 


INTP 168 


INTP 169 


INTP 170 


INTP 225 


INTP 226 


INTP 227 


-0E70- 




8E7E 


2E07 


5FC0 


2A13 


9220 


0849 


F4DB 


5CE2 





0E8- 



-0E80- 


INTP 228 


INTP 229 


INTP 230 


INTP 231 


INTP 232 


INTP 233 


LRDR 002 


LRDR 003 


-0E80- 




7BC0 


5EF2 


5EA9 


0640 


7AF2 


A412 


2B40 


2D 08 




-0E90- 


LRDR 004 


LRDR 005 


LRDR 006 


LRDR 007 


LRDR 008 


LRDR 009 


LRDR 010 


LRDR Oil 


-0E90- 




3445 


3406 


5A82 


1A85 


F99F 


3D00 


3A85 


7A 82 




-OEAG- 


LRDR 012 


LRDR 013 


LRDR 014 


LRDR 015 


LRDR 016 


LRDR 017 


LRDR 018 


LRDR 019 


-0EA3- 




5 A 92 


FDB1 


C981 


1A43 


7A92 


3400 


1593 


A5A0 




-■QEBO- 


LRDR 020 


LRDR 021 


LRDR 022 


LRDR 023 


LRDR 024 


LRDR 025 


LRDR 026 


LRDR 027 


-OEBO- 




3A43 


5DC2 


CD28 


1583 


3AC9 


5AB9 


7AF2 


AC8C 




-OECQ- 






IRST 175 


IRST 176 


KAAN 081 


KAAN 082 


KAAN 083 


KAAN 084 


-QECO- 








0000 


0000 


2F07 


5AEF 


0E55 


E0D3 




-QEPO- 


KAAN 085 


KAAN 086 


KAAN 087 


KAAN 088 


KAAN 089 


KAAN 090 


KAAN 091 


•KAAN 092 


-OEDO- 




3F25 


0EB5 


£009 


3F13 


0E33 


FOEB 


3F2 3 


FE 66 




-QEEO- 


KAAN 093 


KAAN 094 


KAAN 095 


KAAN 096 


KAAN 097 


KAAN 098 


KAAN 104 


KAAN 105 


-GEEO- 




3F2 7 


D5E6 


3F13 


5EEF 


9E98 


EA5E 


3E00 


1210 




-OEFO- 


KAAN 106 


KAAN 107 


KAAN 108 


KAAN 109 


KAAN 110 


KAAN 111 


KAAN 112 


KAAN 113 


-OEFO- 




2725 


4D7F 


2715 


487F 


0340 


3763 


0E04 


2E08 




■AOORESS 


















OE — 



ADDRESS LIST 
CONTROL AOORESS 2 



DATE 11/08/68 
A C 



CL0A0=*E40, EC LEVEL-1282 11 , PAGE 247 
OF — 



-OF 00- 



KAAN 114 
4F7F 



-OF 10- KAAN 122 
8F10 



-0F20- 



-0F3Q- 



-0F40- 



-0F50- 



-0F60- 



-0F70- 



BDIA 424 
1212 

KBBB 058 
F437 

KBBB 025 
F544 

KB8B 033 
2807 

KBBB 041 
60B1 

KBBB 064 
5A42 



KAAN 115 
3D00 

MBBB 043 
1645 

BOiA 425 
5EFF 

KBBB 059 
3765 

KBBB 026 
271B 

KBBB 034 
2915 

KBBB 042 
C4E9 

KBBB 065 
2B6B 



KAAN 116 
3443 

MBBB 044 
3685 

BDIA 426 
C4A4 

KBBB 060 
E071 

KBBB 027 
E538 

KBBB 035 
5A32 

K8BB 043 
5CD9 

KBBB 066 
F4F8 



KAAN 117 
3490 

MBBB 045 
1633 

BDIA 427 
2800 

KBBB 061 
3725 

KBBB 028 
271D 

KBBB 036 
3480 

KBBB 044 
8F60 

KBBB 067 
2A1B 



KAAN 118 
2807 

MBBB 046 
3623 

BDIA 428 
2020 

KBBB 062 
3445 

KBBB 029 
278B 

KBBB 037 
F56A 

KBBB 048 
9800 

KBBB 068 
42A6 



KAAN 119 
2943 

MBBB 047 
5AE2 

BDIA 434 
9876 

KBBB 063 
8F7A 

KBBB 030 
4F7F 

KBBB 038 
3490 

KBBB 045 
5224 

KBBB 069 
4F7F 



KAAN 120 
5A32 

MBBB 048 
8978 

KB8B 056 
1485 

KBBB 023 
1485 

KBBB 031 
3D 00 

KBBB 039 
6CA4 

KBBB 046 
2F07 

KBBB 070 
3D00 



KAAN 121 
2B88 

BDIA 423 
EE9E 

KBBB 057 
27D3 

KBBB 024 
2753 

KBBB 032 
3490 

KBBB 040 
5DC9 

KBBB 047 
9E06 

KBBB 071 
A8BC 



-OFOO- 



-0F10- 



-0F20- 



-0F30- 



-0F40- 



-0F50- 



-0F60- 



-0F7O- 



0F8- 



-QF80- 


JEND 043 


JEND 044 


JEND 045 


JEND 046 


JEND 047 


JEND 048 


JEND 049 


JENO 050 


-0F80- 




622 3 


6223 


6223 


5249 


6237 


C494 


6345 


7300 




-0F90- 


JEND 051 


JEND 052 


JEND 053 


JEND 054 


JEND 055 


JEND 056 


JEND 057 


JEND 058 


-0F90- 




3515 


75C0 


5C62 


1CE5 


6CE1 


C49F 


8FE6 


A94C 




-OFAO- 


JEND 008 


JEND 009 


JEND 010 


JEND Oil 


JEND 012 


JEND 013 


JEND 014 


JEND 015 


-OFAO- 




2B40 


CDAB 


DDA3 


2 BOO 


0204 


2 BOO ^ 


5FEF 


2B02 




-OFBO- 


JEND 016 


JEND 017 


JEND 018 


JEND 019 


JEND 020 


JEND 021 


JEND 022 


JEND 023 


-OFBO- 




FDBO 


5FFF 


2B08 


2C07 


2D85 


57C0 


5731 


63E1 




-OFCO- 


JEND 024 


JEND 025 


JEND 026 


JENO 027 


JEND 028 


JEND 029 


JEND 030 


JEND 031 


-OFCO- 




£094 


2D7B 


55C0 


5559 


C494 


7FC0 


FB14 


47D5 




-QFDO- 


JEND 032 


JEND 033 


JEND 034 


JEND 035 


JEND 036 


JEND 037 


JEND 038 


JEND 039 


-OFDO- 




1D83 


55C0 


C710 


2007 


2195 


3163 


5300 


2215 




-OFEO- 


JEND 040 


JEND 041 


JEND 042 


JEND 147 


JEND 148 


JEND 149 


JEND 150 


JEND 151 


-OFEO- 




D764 


5221 


871F 


5C72 


6CE1 


C4F4 


5C82 


1C85 




-OFFO- 


JEND 152 


JEND 153 


JEND 154 


JEND 155 


JEND 156 


JEND 157 


JEND 158 




-OFFO- 




7C82 


A97A 


6DE1 


C4F2 


5C82 


1C13 


8FF0 


5007 




CQNTROL ADDRESS 


















OF — 



ADDRESS LIST 
CONTROL ADDRESS 2 



DATE 11/08/68 
A C 
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10— 



-1000- IMPY 104 
7DFF 

-1010- IMPY 112 
1E83 

-1020- IMPY 120 
4DC5 

-1030- IMPY 128 
E0B5 

-1040- IMPY 169 
2607 

-1050- IMPY 142 
5CDD 

-1060- IMPY 161 
9508 

-1070- LPTR 051 
263 5 



IMPY 105 
7DFF 

IMPY 113 
7DFF 

IMPY 121 

5B50 

IMPY 129 
2020 

IMPY 170 
8D7C 

IMPY 143 
7DAF 

LPTR 008 
FAEC 

LPTR 052 
266B 



IMPY 106 

7DFF 

IMPY 114 
9000 

IMPY 122 
E1AA 

IMPY 130 
4DBD 

IMPY 136 

0002 

IMPY 144 
4DBD 

LPTR 009 
5BFF 

LPTR 053 
2215 



IMPY 107 
7DFF 

IMPY 115 
CAIC 

IMPY 123 
2002 

IMPY 131 
57D9 

IMPY 137 
5B50 

IMPY 145 
785A 

LPTR 010 
5ACF 

LPTR 054 
2307 



IMPY 108 
70FF 

IMPY 116 
7DFF 

IMPY 124 
0020 

IMPY 132 
7B5A 

IMPY 138 

EICE 

IMPY 156 

DC3F 

LPTR Oil 
A213 

LPTR 055 
5F2C 



IMPY 109 
7DFF 

IMPY 117 
9010 

IMPY 125 

5DDD 

IMPY 133 
DE44 

IMPY 139 
2002 

IMPY 157 
5422 

LPTR 012 
9074 

LPTR 056 
0208 



IMPY 110 
9016 

IMPY 118 
5CAD 

IMPY 126 
5BAD 

IMPY 134 
9526 

IMPY 140 

0020 

IMPY 158 
5446 

LPTR 049 
3485 

MJJJ 003 
8205 



IMPY ill 
CAIC 

IMPY 119 
7DAF 

IMPY 127 
7DAF 

IMPY 167 
2C07 

IMPY 141 
5BAD 

IMPY 159 
7422 

LPTR 050 
1F80 



5007 



-1000- 
-1010- 
-1020- 
-1030- 
-1040- 
-1050- 
-1060- 
-1070- 



-1080- 

- 1 090- 

-10A0- 

-10B0- 

-10C0- 

-10D0- 

-10E0- 

-10FO- 
CONTROL ADDRESS 



IBCH 088 
8160 

IBCH 097 
90BC 

IBCH 065 
52C0 

IBCH 073 
FF22 

IBCH 081 
FB22 

IBCH 105 
5EF9 

IBCH 043 
81D0 



IBCH 090 
909C 

IBCH 09 8 
57F9 

IBCH 066 
807C 

IBCH 074 
9E72 

IBCH 082 
9E72 

IBCH 106 
90CO 



5007 



IBCH 050 IBCH 051 



FE7E 



9E72 



IBCH 091 

8A30 

IBCH 099 
3F63 

IBCH 067 
CF22 

IBCH 075 
CB22 

IBCH 083 
C748 

JODE 007 
20E5 

IBCH 044 
CE7E 

IBCH 052 
CA7F 



108- 

IBCH 092 
8270 

IBCH 100 
8902 

IBCH 068 
9E72 

IBCH 076 
9E72 

IBCH 084 
B31I 

JODE 008 
31F5 

IBCH 045 
9E72 

IBCH 053 
9E72 



IBCH 09 3 
8D7C 

IBCH 061 
C722 

IBCH 069 
DF22 

IBCH 077 
DB22 

IBCH 101 
07CB 

JODE 009 
2793 

IBCH 046 
DE7E 

IBCH 054 
DA7E 



IBCH 094 
810C 

IBCH 062 
8890 

IBCH 070 
9E72 

IBCH 078 
9E72 

IBCH 102 
F0B5 

JODE 010 
3 7D5 

IBCH 047 
9E72 

IBCH 055 
9E7 2 



IBCH 095 
8D7C 

IBCH 063 
2D95 

IBCH 071 
EF22 

IBCH 079 
EB22 

IBCH 103 
0705 

JODE Oil 
2040 

IBCH 048 
EE7E 

IBCH 056 
EA7B 



IBCH 096 
8900 

IBCH 064 
3D43 

IBCH 072 
9E72 

IBCH 080 
9E72 

IBCH 104 
F08C 

JODE 012 
937E 

IBCH 049 
9E72 

IBCH 057 
8D7C 



-1080- 

-1090- 

-10A0- 

-10B0- 

-10C0- 

-10D0- 

-10E0- 

-10F0- 
10— 



ADDRESS LIST 
CONTROL ADDRESS 2 
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1100- 


LRTR 013 


LRTR 014 


LRTR 015 


LRTR 016 


LRTR 017 


LRTR 018 


LRTR 019 


LRTR 020 


-1 100 




5F00 


7D08 


C08E 


201D 


7D00 


30F8 


3465 


6CF1 




1110- 


LRTR 021 


LRTR 022 


LRTR 023 


LRTR 024 


LRTR 025 


LRTR 026 


LRTR 027 


LRTR 02 8 


-1110 




C4A3 


CDA3 


3 BOO 


2E15 


57FD 


3FF5 


5DE0 


6DC5 




1120- 


LRTR 029 


LRTR 030 


LRTR 031 


LRTR 032 


LRTR 033 


LRTR 034 


LRTR 035 


LRTR 036 


-1120 




7DE0 


2718 


C488 


CDC5 


7400 


1465 


0206 


5BDF 




1130- 


LRTR 037 


LRTR 038 


LRTR 039 


LRTR 040 


LRTR 041 


LRTR 042 


LRTR 043 


LRTR 044 


-1130 




3445 


30C9 


21A5 


2745 


F0C4 


3763 


07A1 


C4C4 




1140- 


LRTR 045 


LRTR 046 


LRTR 047 


LRTR 009 


LRTR 010 


LRTR Oil 


LRTR 012 


ISAB 039 


-1140- 




CDC5 


0D04 


0206 


EAAE 


5BDF 


A303 


0206 , 


0060 




1150- 


ISA8 040 


I SAB 041 


ISAB 042 


ISAB 043 


ISAB 037 


ISAB 038 


ISAB 044 


ISAB 045 


-1150- 




4426 


A3 04 


CE5C 


AAA6 


2BE5 


AAAA 


DE59 


AA88 




1 1 bO- 


LPXF 021 


LPXF 022 


LPXF 023 


LPXF 024 


LPXF 025 


LPXF 026 


LPXF 027 


LPXF 02 8 


-1160- 




2DAB 


2DA8 


2DAB 


2 DAB 


2DAB 


20 A B 


9474 


9480 




ll 70- 


MAAA 090 


MAAA 091 


MAAA 09 2 


MAAA 093 


MAAA 094 


MAAA 095 


MAAA 096 


MAAA 097 


-1170- 




2A95 


2B05 


021E 


5EA2 


56F9 


7EA2 


2C05 


817C 





118- 



-1180- 



•1190- 



•UAO- 



LPTR 013 
5F2C 

LPTR 021 
502 

LPTR 029 
6CF1 



LPTR 014 
C607 

LPTR 022 
7F20 

LPTR 030 
C4B5 



-HBO- LPTR 037 LPTR 038 



-11C0- 

-11D0- 

-11E0- 

-11F0- 
CONTROL ADDRESS 



6DC5 

LPTR 045 
0208 

IOCM 005 
50D9 

JTPE 053 
6003 

MPRT 412 
8D7C 



7DE0 

LPTR 046 
F0C6 

IOCM 006 

DD49 

JTPE 054 
6003 

MPRT 404 
1080 



LPTR 015 

D638 

LPTR 023 
337F 

LPTR 031 
CAB4 

LPTR 039 
2215 

LPTR 047 
266B 

IOCM 007 
2A35 

JTPE 055 
6003 

MPRT 405 
07CB 



LPTR 016 

33BB 

LPTR 024 
5F20 

LPTR 032 
3F40 

LPTR 040 
23CB 

LPTR 048 
0208 

IOCM 008 
817A 

JTPE 056 
5EC2 

MPRT 406 
FOEE 



LPTR 017 
DOOC 

LPTR 025 
6DF7 

LPTR 033 
2E55 

LPTR 041 
261B 

IOCM Oil 
8D15 

IOCM 009 
2A53 

JTPE 057 
9462 

MPRT 407 
EE70 



LPTR 018 
DF9D 

LPTR 026 
7D20 

LPTR 034 
56F0 

LPTR 042 
C4C2 

IOCM 002 
F659 

IQCM 010 
817C 

MPRT 413 

1E45 

MPRT 408 
1E25 



LPTR 019 
238D 

LPTR 027 
2235 

LPTR 035 
3FF5 

LPTR 043 
0D80 

IOCM 003 
51D9 

IERR 030 
2A13 

MPRT 414 
91FC 

MPRT 409 
7E62 



LPTR 020 
33 7B 

LPTR 028 
5F20 

LPTR 036 

5DE0 

LPTR 044 
1495 

IOCM 004 
DD54 

IERR 031 
A068 

MPRT 411 
DE6B 

MPRT 410 
9E72 



-1180- 

-1190- 

-11A0- 

-11B0- 

-11C0- 

-11D0- 

-11E0- 

-11F0- 
11 — 
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CONTROL ADDRESS 2 
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CLQAD=*E40, EC LEVEL*1282I1 , PAGE 250 
12 — 



-1200- MJJJ 004 
8D28 

►1210- MJJJ 014 
CF2A 

-1220- MJJJ 022 
0B10 

-1230- MJJJ 030 
9F26 

-1240- MJJJ 038 
1E45 

-12 50- JTYP 504 
482 8 

-1260- MAAA 161 
9286 

•1270- IRST 072 
C3FB 



5007 

MJJJ 015 
6BB3 

MJJJ 023 
EQB3 

MJJJ 031 
IE65 

MJJJ 039 
9234 

JTYP 505 
58B1 



5007 

CRST 097 

160 



MJJJ 005 

8A88 

MJJJ 016 
3F23 

MJJJ 024 
FB2F 

MJJJ 032 
7E62 

JTYP 512 
32F3 

JTYP 506 
5BF9 

MAAA 162 
AE80 

IRST 098 
1210 



MJJJ 006 
8D28 

MJJJ 017 
0B9D 

MJJJ 025 
3433 

MJJJ 033 
9224 

JTYP 513 
5B23 

JTYP 507 
5FAD 

MAAA 163 
9286 

IRST 099 
98 E A 



MJJJ 007 
5F49 

MJJJ 018 
E0B9 

MJJJ 026 
9F26 

MJJJ 034 
3E45 

JTYP 514 

81B6 

JTYP 508 
8118 

IRST 065 
0604 

IRST 100 
ABC6 



MJJJ 008 
5E62 

MJJJ 019 
OBCD 

MJJJ 027 
1F23 

MJJJ 035 
1E25 

JTYP 515 
9252 

JTYP 509 
5AF9 

IRST 066 
2607 

IRST 101 

9D04 



MJJJ 009 
1473 

MJJJ 020 
EOBF 

MJJJ 02 8 
9234 

MJJJ 036 
9234 

JTYP 502 
F253 

JTYP 510 
16 IB 

IRST 067 
81E6 



5007 



MJJJ 013 
5FB9 

MJJJ 021 
CC33 

MJJJ 029 
3413 

MJJJ 037 
3E25 

JTYP 503 
D145 

JTYP 511 
896C 

IRST 068 
A150 



5007 



-1200- 



-1210- 



-1220- 



-1230- 



-1240- 



-1250- 



-1260- 



-1270- 



128- 



-12 80- 

-1290- 

-L2A.Q? 

-12B0- 

-L2C0^ 

- 120.07 

-12E0- 

-12F0- 
CQNTROL ADDRESS 



IOCM 012 
928C 

IOCM 020 
091 7 

IOCM 032 
ODCI 

MPRT 244 
3A65 

JODE 060 
6883 

JODE 068 
47F3 

JOQE 076 
3415 

JTYP 144 
5C5B 



IOCM 013 
9286 

IOCM 021 
F907 

IOCM 033 
FOAD 

MPRT 245 
5AB9 

JODE 061 
6883 

JODE 069 
55E9 

JODE 07 7 
15C5 

JTYP 145 
16F3 



IOCM 014 
929C 

IOCM 022 
937C 

IOCM 034 
0D81 

MPRT 246 
5032 

JODE 062 
6883 

JODE 070 
7E52 

JODE 078 
0020 

JTYP 146 
7C92 



IOCM 015 
5AF2 

IOCM 023 
F91B 

IOCM 035 
F086 

MPRT 247 
7AF2 

JODE 063 
6897 

JODE 071 
D562 

JODE 079 
D66B 

JTYP 147 
10C0 



IOCM 016 
2A53 

IOCM 025 
99 EC 

IOCM 036 
9EFC 

MPRT 248 
7C62 

JODE 064 
C4CF 

JODE 072 
C1E2 

JODE 080 
5549 

JTYP 148 
2E05 



IOCM 017 
81 7C 

IOCM 029 

88 E A 

IOCM 037 
A3E2 

MPRT 249 
3400 

JODE 065 
3433 

JODE 073 
E1E2 

JODE 081 
977E 

JTYP 149 
2F73 



IOCM 018 
C907 

IOCM 030 
0DD1 

IOCM 038 
937C 

MPRT 250 
8258 

JODE 066 
92D0 

JODE 074 
3645 

JTYP 142 
3F22 

JTYP 150 
7EE2 



IOCM 019 
E906 

IOCM 031 
FOAB 

MPRT 243 
2AF3 

MPRT 251 
AC8C 

JODE 067 
34B3 

JODE 075 
544D 

JTYP 143 
3C95 

JTYP 151 
A416 



-1280- 

-1290- 

-12A0- 

-12B0- 

-12C0- 

-12D0- 

-12E0- 

-12FQ- 
12 — 
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13C0- 


IBCH 024 


IBCH 025 


IBCH 026 


IBCH 027 


IBCH 028 


IBCH 029 


IBCH 030 


IBCH 031 




9098 


90A8 


90 BO 


90 AC 


90 A4 


8104 


8104 


8104 


1310- 


IBCH 032 


IBCH 033 


IBCH 034 


IBCH 035 


IBCH 036 


IBCH 037 


IBCH 038 


IBCH 039 




8104 


DB27 


8D7C 


8D7C 


807C 


8D7C 


810A 


8D7C 


1320- 


iBCH 040 


IBCH 041 


IBCH 042 


IBCH 058 


IBCH 059 


IBCH 060 


KAAA 091 


KAAA 092 




6DD3 


FD1F 


B971 


1F43 


7E82 


9E72 


2E07 


F332 


1330- 


KAAA 093 


KAAA 094 


KAAA 095 


KAAA 096 


KAAA 088 


KAAA 089 


KAAA 090 






3E15 


F236 


3E43 


87 EC 


EA2C 


2E13 


932E 


5007 


1340- 


IBCH 015 


IBCH 016 


IBCH 017 


IBCH 018 


IBCH 019 


IBCH 020 


IBCH 002 


IBCH 003 




932 


90C4 


B307 


079B 


F0E6 


8900 


D250 


9E72 


13 50- 


IBCH 004 


IBCH 005 


IBCH 006 


IBCH 007 


IBCH 008 


IBCH 009 


IBCH 010 


IBCH Oil 




C663 


06F9 


F4D8 


81DA 


5F3A 


6F71 


OF 45 


C4CF 


1360- 


IBCH 012 


IBCH 013 


IBCH 014 


IBCH 021 


IBCH 022 


IBCH 023 


IERR 061 


IERR 067 




8D7C 


5E82 


8747 


07CB 


FOEO 


8900 


F676 


91 DC 


13 70- 


IERR 051 


IERR 052 


IERR 039 


IERR 041 


IERR 053 


IERR 054 


JTPE 002 


JTPE 003 




2A23 


A068 


E671 


8D00 


E671 


8D06 


10EE 


OlFt 



-1300- 



-1310- 



-1320- 



-1330- 



-1340- 



-1350- 



-1360- 



-1370- 



138- 



-13 80- 


JTPE 004 


JTPE 005 


JTPE 006 


JTPE 007 


JTPE 018 


JTPE 019 


JTPE 02 


JTPE 021 


-1380- 




F489 


2A53 


7AF2 


A044 


0191 


F483 


8258 


5EC2 




-1390- 


JTPE 022 


JTPE 023 


JTPE 024 


JTPE 025 


JTPE 026 


JTPE 027 


JTPE 02 8 


JTPE 029 


-1390- 




16F5 


2DE5 


E154 


07CD 


E0E3 


07DD 


E0A9 


2D4B 




-13A0- 


JTPE 030 


JTPE 031 


JTPE 032 


JTPE 033 


JTPE 043 


JTPE 044 


JTPE 045 


JTPE 046 


-13A0- 




6D71 


C4DE 


25F3 


93B2 


074B 


FOBD 


079B 


FODE 




-1380- 


JTPE 047 


JTPE 048 


JTPE 049 


JTPE 050 


JTPE 051 


JTPE 052 


JTPE 064 


JTPE 065 


-13B0- 




2573 


51E9 


2015 


DA3A 


5001 


8A73 


35E9 


36C5 




-13C0- 


JTPE 066 


JTPE 061 


JTPE 062 


JTPE 063 


JTPE 058 


JTPE 059 


JTPE 060 


JTPE 015 


-13C0- 




9462 


159B 


2020 


9462 


2 598 


362 5 


9462 


07 9B 




-13D0- 


JTPE 016 


JTPE 017 


JTPE 008 


JTPE 009 


JTPE 010 


JTPE Oil 


JTPE 012 


JTPE 013 


-13D0- 




FODE 


941A 


07DD 


EOCF 


2D6B 


6D71 


C4D3 


2A95 




-13E0- 


JTPE 014 


JTPE 034 


JTPE 035 


JTPE 036 


JTPE 037 


JTPE 038 


JTPE 039 


JTPE 040 


-13E0 




9384 


071 B 


F0C9 


072B 


F0C3 


0758 


FODE 


3F25 




-13F0- 


JTPE 041 


JTPE 042 


LRDR 028 


LRDR 029 


LRDR 030 


LRDR 031 


LRDR 032 


LRDR 033 


-13F0 




7EC2 


8D7C 


0D04 


1B00 


3406 


98EA 


3AB9 


8EBA 
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1400- JODE 050 
3545 



-1410- 



•1450- 



-1460- 



-1470- 



JODE 058 
5881 



-1420- JODE 005 
2513 

-1430- JODE 026 
5D19 

-1440- JODE 034 
16E3 



JODE 042 
ED57 

JODE 016 
2523 

MPRT 403 
A650 



JODE 051 
£009 

JODE 059 
8B55 

JODE 006 
9428 

JODE 027 
7042 

JODE 035 
1F35 

JODE 043 
258D 

JODE 017 
1F25 



5007 



JODE 052 
FE09 

JODE 047 
0020 

JODE 020 
2515 

JODE 028 
E195 

JODE 036 
57C0 

JODE 044 
3435 

JODE 018 
7EC2 

LPXF 029 

2D1D 



JODE 053 
3585 

JODE 048 
3F25 

JODE 021 
3573 

JODE 029 
EF3C 

JODE 037 
5D32 

JODE 045 
3425 

JODE 019 
9428 

LPXF 030 
2DEB 



JODE 054 
5802 

JODE 049 
943C 

JODE 022 
2085 

JODE 030 
2020 

JODE 038 
OFCD 

JODE 046 
92CE 

MPRT 399 
5EEF 

LPXF 031 
5 SCO 



JODE 055 
24C5 

JODE 002 
F758 

JODE 023 
41DD 

JODE 031 
1F25 

JODE 039 
E081 

JODE 013 
2080 

MPRT 400 
0E93 

LPXF 032 
6841 



JODE 056 
2815 

JODE 003 
36C5 

JODE 024 
5FE9 

JODE 032 
7FC0 

JODE 040 
3645 

JODE 014 
3B43 

MPRT 401 
FOFl 

LPXF 033 
7BC0 



JOOE 057 
OBI 2 

JODE 004 
EF25 

JODE 025 
5FC0 

JODE 033 
1DF3 

JODE 041 
5F4B 

JODE 015 
72 A 

MPRT 402 
954C 

LPXF 034 
58D5 



-1400- 



-1410- 



-1420- 



-1430- 



-1440- 



-1450- 



-1460- 



-1470- 



148- 



-1480- LPXF 035 LPXF 036 LPXF 037 
C504 6141 D508 

-1490- LPXF 043 LPXF 044 LPXF 045 
C114 6E41 282B 

-14A0- LPXF 051 LPXF 052 LPXF 053 
79C0 2D5D 7FC0 

-14B0- LPXF 059 LPXF 060 LPXF 061 
C4BC 83B0 98EA 

-14C0- LPXF 010 LPXF Oil LPXF 012 
51F9 51E9 5199 

-14D0- LPXF 018 LPXF 019 LPXF 020 
55A0 157B 9163 

-14E0- MAAA 141 MAAA 142 MAAA 143 
C9EB DDE1 8628 

-14F0- MAAA 147 MAAA 148 MAAA 149 
6AB1 C4E7 2A85 
CONTROL ADDRESS 



LPXF 038 
6741 

LPXF 046 
F0C6 

LPXF 054 
2DAB 

LPXF 062 
A74E 

LPXF 013 

58BD 

MAAA 160 
9265 

MAAA 151 
C256 

MAAA 150 
9172 



LPXF 039 
E50C 

LPXF 047 
71C0 

LPXF 055 
5EF9 

LPXF 002 
2807 

LPXF 014 
3B85 

MAAA 137 
C9D9 

MAAA 152 
907C 



5007 



LPXF 040 
6941 

LPXF 048 
2DA8 

LPXF 056 
7FC0 

LPXF 004 
2A65 

LPXF 015 
54A0 

MAAA 138 
4FAF 

MAAA 144 
2B40 



5007 



LPXF 041 
F510 

LPXF 049 
77C0 

LPXF 057 
58D5 

LPXF 008 
21F7 

LPXF 016 
5B38 

MAAA 139 
2804 

MAAA 145 
CDEC 

IMPY 050 
5D50 



LPXF 042 
6F41 

LPXF 050 

2DAB 

LPXF 058 
08AD 

LPXF 009 
5179 

LPXF 017 
3B45 

MAAA 140 
2B44 

MAAA 146 
5FBF 

IMPY 051 

5 ODD 



-1480- 

-1490- 

-14A0- 

-14B0- 

-14C0- 

-1400- 

-14E0- 

-14F0- 
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-1500- 



-1510- 



-1520- 



•1530- 



^■1540- 



■1550- 



IMPY 052 
F204 

IMPY 068 
DD15 

IMPY 083 
IDF 5 

IMPY 099 
4DEB 

MPRT 350 
5622 

MPRT 328 
3E13 



-1560- MPRT 336 
3EF3 



-1570- 



. MPRT 344 
3400 



IMPY 053 
3D15 

IMPY 069 
3C45 

IMPY 084 
F0A6 

IMPY 100 
1E7B 

MPRT 351 
FC47 

MPRT 329 
7E92 

MPRT 337 
2F05 

MPRT 345 
2C05 



IMPY 054 
3DC5 

IMPY 070 
5DBB 

IMPY 085 
901C 

IMPY 101 

5 ODD 

MPRT 352 
1C13 

MPRT 330 
5EC2 

MPRT 338 
7EF2 

MPRT 346 
A044 



IMPY 055 
7D50 

IMPY 071 
5D79 

IMPY 086 
5DE9 

IMPY 102 

5DF0 

MPRT 353 
1D43 

MPRT 331 
CE5F 

MPRT 3 39 
3043 



5007 



IMPY 063 
5032 

IMPY 072 

38B5 

IMPY 088 
5DIA 

IMPY 103 
9A01 

MPRT 354 
F840 

MPRT 332 
FC5F 

MPRT 340 
7C62 

I EOT 02 8 
5EC2 



IMPY 064 
1CF3 

IMPY 073 
7B3A 

IMPY 089 
CD2F 

MPRT 347 
5CA2 

MPRT 355 
A908 

MPRT 333 
1C13 

MPRT 341 
5CA2 

I EOT 030 
571A 



IMPY 065 
5422 

IMPY 074 

CD21 

IMPY 096 
8442 

MPRT 348 
5D6<? 

MPRT 326 
D93B 

MPRT 334 
A908 

MPRT 342 
56D9 

IEDT 031 
57D9 



IMPY 067 
5D30 

IMPY 081 
8442 

IMPY 098 
0002 

MPRT 349 
5C62 

MPRT 327 
5E92 

MPRT 335 
2E65 

MPRT 343 
7CA2 

IEDT 032 
3D45 



-1500- 
-1510- 
-1520- 
-1530- 
-1540- 
-1550- 
-1560- 
-1570- 



158- 



-1580- 


IEDT 033 


IEDT 034 


IEDT 035 


IEDT 036 


IEDT 037 


IEDT 038 


I EOT 039 


IEDT 040 


-1580- 




C519 


2585 


5DC0 


EDOC 


FOOD 


3545 


5DDD 


5DC0 




-1590- 


IEDT 046 


IEDT 048 


IEDT 049 


IEDT 050 


IEDT 051 


IEDT 052 


IEDT 053 


IEDT 054 


-1590- 




FE14 


3613 


EE18 


3513 


5F30 


5FB9 


3B45 


0B5D 




-15A0- 


IEDT 055 


IEDT 056 


IEDT 057 


IEDT 058 


IEDT 059 


IEDT 060 


IEDT 061 


IEDT 062 


-15A0- 




F0D7 


C151 


2A33 


3AC5 


6AB1 


C4CD 


2A93 


3AD5 




-15B0- 


IEDT 063 


IEDT 064 


IEDT 065 


IEDT 066 


IEDT 067 


IEDT 068 


IEDT 069 


IEDT 070 


-15B0- 




6AB1 


C4CD 


2AB3 


3A65 


F23C 


1A25 


6AB1 


C4C2 




-15CQ- 


IEDT 071 


IEDT 072 


IEDT 073 


IEDT 074 


IEDT 075 


IEDT 076 


IEDT 077 


IEDT 078 


-15C0- 




2B45 


7B3A 


DF19 


D148 


8D7C 


A67C 


0543 


95C0 




-15D0- 


IEDT 079 


IEDT 080 


IEDT 081 


IEDT 090 


IEDT 091 


IEDT 092 


IEDT 093 


IEDT 094 


-15D0- 




F142 


EOEE 


A97E 


E0C1 


OBFD 


C4DE 


A996 


0B6D 




-15E0- 


IEDT 095 


IEDT 096 


IEDT 09 7 


IEDT 098 


IEDT 099 


IEDT 100 


IEDT 101 


IEDT 082 


-15E0- 




C4E6 


C14C 


95C2 


0B4D 


C4C2 


E143 


A99E 


2A45 




-15F0- 


IEDT 083 


IEDT 084 


IEDT 085 


IEDT 086 


IEDT 08 7 


IEDT 088 


IEDT 089 


KAAH 018 


-15F0- 




3AB3 


F276 


3A25 


6AB1 


C4C2 


1525 


95C2 


5EDF 
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•1600- 



-1610- 



-1620- 



•1630- 



-164 0- 



KAAH 019 
C1B4 

KAAH 027 
A50O 

KAAH 086 
40CF 

KAAH 078 
2F07 

KAAH 042 
F148 



-1650- KAAQ 005 
2F23 



- 1660- 



•1670- 



KAAH 061 
263D 

KAAH 069 
2643 



KAAH 020 
2C07 

KAAH 028 
8EC8 

KAAH 087 
021E 

KAAH 079 
9EA6 

KAAH 043 
C048 

KAAQ 006 
1423 

KAAH 062 
4F6F 

KAAH 070 
4E6F 



KAAH 021 
48CF 

KAAH 080 
3480 

KAAH 088 
5CC4 

KAAH 036 
1D00 

KAAH 044 
F048 

KAAQ 007 
1525 

KAAH 063 
2653 

KAAH 071 
DABl 



KAAH 022 
1D00 

KAAH 081 
2D07 

KAAH 089 
C4A2 

KAAH 037 
1210 

KAAH 045 
8F2C 

KAAQ 008 
9EAA 

KAAH 064 
26FF 

KAAH 072 
3462 



KAAH 023 
DFD8 

KAAH 082 
2C07 

KAAH 090 
2206 

KAAH 038 
D059 

KAAH 046 
3D00 

KAAH 050 
9C6A 

KAAH 065 
C4E6 

KAAH 073 
£995 



KAAH 024 
E110 

KAAH 083 
3E08 

KAAH 091 
F8AA 

KAAH 039 
C801 

KAAH 047 
AD2C 

KAAH 058 
1210 

KAAH 066 
2613 

KAAH 074 
3480 



KAAH 025 
1210 

KAAH 084 
4BCF 

KAAH 092 
9862 

KAAH 040 
FDCF 

KAAH 048 
AB82 

KAAH 059 
2613 

KAAH 067 
48 6F 

KAAH 075 
2615 



KAAH 026 
A854 

KAAH 085 
4FCF 

KAAH 093 
AD 16 

KAAH 041 
C44C 

KAAH 049 
A722 

KAAH 060 
4E6F 

KAAH 068 
4BCF 

KAAH 076 
4B6F 



-1600- 
-1610- 
-1 620- 
-1630- 
-1640- 
-1650- 
-1660- 
-1670- 



168- 



-1680- 


KAAH 077 


INRU 009 


INRU 010 


INRU Oil 


INRU 012 


INRU 013 


INRU 014 


INRU 015 


-1680- 




9680 


2206 


0416 


5EFF 


EF17 


0216 


3600 


DB97 




- 1 6 90- 


INRU 016 


INRU 017 


INRU 018 


INRU 019 


INRU 020 


INRU 021 


INRU 022 


INRU 023 


-1690- 




5F90 


OF 5 9 


F4F2 


0216 


2 DO 7 


7CF2 


00 A 


3600 




-16A0- 


INRU 024 


INRU 025 


INRU 026 


INRU 27 


INRU 028 


INRU 029 


INRU 030 


INRU 031 


-16A0- 




5A4F 


EFE8 


FFE2 


CBFD 


DBE-1 


CFDE 


5EF2 


2C07 




-1660- 


INRU 032 


INRU 033 


INRU 034 


INRU 035 


INRU 036 


INRU 031* 


INRU 038 


INRU 039 


-16B0- 




DFC3 


E1AD 


CIFA 


OFFB 


FOFA 


0004 


4FFF 


EFE8 




-16C0- 


INRU 040 


INRU 060 


INRU 061 


INRU 062 


INRU 063 


INRU 064 


INRU 065 


INRU 066 


-16C0- 




96AC 


3404 


EAC8 


82DA 


EECD 


EIDB 


3406 


EBD3 




-1600- 


INRU 067 


INRU 069 


INRU 077 


INRU 78 


INRU 079 


INRU 080 


INRU 081 


INRU 057 


-16D0- 




E9D4 


9A60 


3482 


FADA 


9C14 


3400 


96AC 


A 044 




-16E0~ 


INRU 058 


INRU 059 


INRU 053 


INRU 054 


INRU 056 


INRU 045 


INRU 046 


INRU 047 


-16E0- 




ABC 6 


9FDE 


F0F2 


FE73 


8990 


FFE2 


D8AD 


CFAC 




-16F0- 


INRU 048 


INRU 049 


INRU 050 


INRU 051 


INRU 052 


INRU 041 


INRU 042 


INRU 043 


-16F0- 




C1F5 


8D82 


OEFF 


C4E4 


9E72 


CBEA 


50EF 


51FF 
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-1700- 



-1710- 



-172 0- 



-1730- 



1740- 



-1750- 



-1760- 



-1770- 



INRU 044 


IADD 004 


IADD 005 


IADD 006 


IADD 007 


IADD 008 


IADD 009 


IADD 010 


A378 


3585 


10EE 


571A 


C711 


57D9 


8442 


5D79 


I ADD Oil 


IADD 012 


IADD 013 


IADD 014 


IADD 015 


IADD 016 


IADD 017 


IADD 018 


E717 


F716 


158D 


5D30 


CD1D 


8442 


ED25 


FD24 


I ADD 019 


IADD 020 


IADD 021 


IADD 022 


IADD 02 3 


IADD 024 


IADD 03 


IADD 032 


158D 


2040 


57AD 


5DFD 


C530 


3000 


7222 


A4DC 


IADD 035 


IADD 036 


IADD 037 


IADD 038 


IADD 039 


IADD 040 


IADD 041 


IADD 042 


3A95 


7FAF 


4DFB 


3FC5 


0F1B 


F0C2 


OFED 


E0C2 


IADD 043 


IADD 044 


IADD 045 


IADD 054 


IADD 055 


IADD 056 


IADD 058 


IADD 059 


1F8D 


DD73 


F5CC 


5A82 


3B43 


7A82 


IF 45 


7F3A 


IADD 060 


IADD 062 


IADD 063 


IADD 064 


IADD 065 


IADD 066 


IADD 067 


IADD 068 


8D7C 


571A 


C75D 


57D9 


8442 


5D79 


5D30 


CD63 


IADD 069 


IADD 070 


IADD 071 


IADD 072 


IADD 073 


IADD 074 


IADD 075 


IADD 076 


8442 


47AD 


5DFD 


7FAF 


DD71 


C5EF 


AA52 


AD60 


IADD 077 


IADD 078 


IADD 079 


IADD 080 


IADD 081 


IADD 082 


IADD 083 


JCHL 088 


3FF5 


7F3A 


D753 


E1DD 


2020 


27B5 


975C 


5FB9 



-1700- 



-1710- 



-1720- 



-1730- 



-1740- 



-1750- 



-1760- 



-1770- 



178- 



-1780- 
-1790- 
-17A0- 
-17B0- 
-17C0- 
-17D0- 
-17E0- 

-17F0- 

CONTROL ADDRESS 



JCHL 089 
3486 

JCHL 097 
FDA5 

JCHL 105 
98EA 

JCHL 113 
EOAE 

JCHL 135 
C646 

JCHL 143 
0EC3 

JCHL 118 
5FAF 

JCHL 126 
2B00 



JCHL 090 
221E 

JCHL 098 
DD8F 

JCHL 106 
A044 

JCHL 114 
9782 

JCHL 136 
3983 

JCHL 144 
C4D6 

JCHL 119 
6AF1 

JCHL 127 
2B08 



JCHL 091 
2 085 

JCHL 099 
2A27 

JCHL 107 
2B04 

JCHL 129 
044B 

JCHL 137 
2F07 

JCHL 145 
A238 

JCHL 120 
C494 

JCHL 128 
97A6 



JCHL 092 
57C0 

JCHL 100 
3A23 

JCHL 108 
FDA7 

JCHL 130 
C4BA 

JCHL 138 
3D73 

JCHL 146 
2B08 

JCHL 121 
4F4F 

JYPE 059 
0080 



JCHL 093 
4FFF 

JCHL 101 
7AF2 

JCHL 109 
C9A9 

JCHL 131 
88D8 

JCHL 139 
7FC0 

JCHL 147 
A212 

JCHL 122 
2B42 

JYPE 060 
0F11 



JCHL 094 
2B04 

JCHL 102 
02 IE 

JCHL 110 
2B00 

JCHL 132 
5FFF 

JCHL 140 
4973 

JCHL 115 
2B40 

JCHL 123 
FDEA 

JYPE 061 
FOFF 



JCHL 095 
2B44 

JCHL 103 
0214 

JCHL 111 
021E 

JCHL 133 
5842 

JCHL 141 
2D85 

JCHL 116 
021E 

JCHL 124 
5FEF 

JYPE 062 
1600 



JCHL 096 
C9DB 

JCHL 104 
3400 

JCHL 112 
2D2B 

JCHL 134 
E645 

JCHL 142 
77C8 

JCHL 117 
CDDE 

JCHL 125 
FE34 

JYPE 063 
9FDA 



-1780- 

-1790- 

-17A0- 

-17B0- 

-17C0- 

-17D0- 

-17E0- 

-17F0- 
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1800- 


KBBO 008 


KBBD 009 


KBBD 010 


KBBD Oil 


KBBD 012 


KBBD 013 


KB8D 014 


KBBD 015 


-1800- 




3400 


5242 


2CF5 


D10A 


2CB5 


5F30 


6FC5 


1FF3 




1810- 


KBBD 016 


KBBD 017 


KBBD 018 


KBBD 019 


KBBD 020 


KBBD 021 


KBBD 022 


KBBD 023 


-1810- 




7F38 


5632 


5A78 


5864 


278B 


6BB3 


67B3 


5A70 




1820- 


KB8D 024 


KBBD 025 


KBBD 026 


KBBD 027 


KBBO 028 


KBBD 029 


KBBD 030 


KBBD 031 


-1820- 




5F30 


6FC5 


56E2 


10EE 


76AF 


46FD 


7F38 


5F30 




1830- 


KBBO 032 


KBBO 033 


KBBO 034 


KBBD 035 


KBBD 036 


KBBD 037 


KBBD 038 


KBBD 039 


-1830- 




6FC5 


4AF5 


7F38 


5D98 


5F90 


3F00 


5F79 


2002 




1840- 


KBBD 040 


KBBD 041 


KBBO 042 


KBBD 043 


KBBD 044 


KBBD 045 


KBBD 046 


KBBD 047 


-1 840- 




3F9B 


E0C9 


10EE 


57F9 


2A95 


4DA0 


7DAF 


F4D2 




18 50- 


KBBO 048 


KBBD 049 


KBBD 050 


KBBD 051 


KBBD 052 


K8BD 053 


KBBD 054 


KBBD 055 


-1850- 




2B1B 


5730 


67C5 


4B7D 


7738 


5730 


67C5 


407D 




1860- 


KBBO 056 


KBBD 057 


KBBD 058 


KBBD 059 


KBBD 060 


KBBD 061 


KBBD 062 


KEND 033 


-1860- 




7738 


5730 


67C5 


4F7D 


7738 


E56E 


A8C4 


3480 




18 70- 


KEND 034 


KEND 035 


KEND 036 


IRST 004 


IRST 005 


IRST 006 


IRST 007 


IRST 008 


-1870- 




5006 


5242 


9EE2 


3210 


3460 


2493 


2507 


2605 





188- 



-1880- IRST 009 IRST 010 IRST Oil 

2705 34E0 4F6F 

-1890- IRST 017 IRST 018 IRST 019 

0E08 3400 5C82 

-18A0- IRST 025 IRST 026 IRST 027 

5CCB 1C35 3C8 5 

-18B0- IRST 041 IRST 043 IRST 045 

1D25 3D83 7CC2 

-18C0- IRST 051 IRST 052 IRST 053 

7DEA 3F4B 7DEA 

-18D0- IRST 059 IRST 060 IRST 061 

77E0 2F1D 3482 

-18E0- IRST 104 IRST 105 IRST 106 

1C75 3C43 2D07 

-18F0- IREG 019 IREG 020 IREG 021 

2E15 2FF5 56E8 
CONTROL ADDRESS 



IRST 012 
4D6F 

IRST 020 
1C85 

IRST 028 
7C92 

IRST 046 
D95C 

IRST 054 
2C05 

IRST 062 
5FE0 

IRST 107 
7C62 

IREG 022 
54E8 



IRST 013 
4B6F 

IRST 021 
IC13 

IRST 029 
5CB2 

IRST 047 
2E05 

IRST 055 
7CF2 

IRST 063 
49FF 

IRST 108 

98B8 

IREG 023 
2C07 



IRST 014 
4E6F 

IRST 022 
2D 05 

IRST 030 
2D05 

IRST 048 
2F95 

IRST 056 
44FF 

IRST 064 
A9EC 

IREG 016 
5222 

IREG 024 
128E 



IRST 015 
1E00 

IRST 023 
7C82 

IRST 031 
7CB2 

IRST 049 
3F63 

IRST 057 
1F83 

IRST 102 
5C62 

IREG 017 
5032 



5007 



IRST 016 -1880- 
2100 

IRST 024 -1890- 
5C92 

IRST 040 -18A0- 
5CC2 

IRST 050 -18B0- 

2007 

IRST 058 -18C0- 
2745 

IRST 103 -18D0- 

5CCB 

IREG 018 -18E0- 
5812 



5007 



-18F0- 



18— 



ADDRESS LIST 
CONTROL ADORESS 2 



DATE U/08/68 
A C 
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1900- 



-1910- 



-1920- 



-1930- 



-1940- 



-19 50- 



-1960- 



-1970- 



KAAA 236 
2485 

KAAA 244 
FF15 

KAAA 252 
2707 

KAAA 260 
76BA 

KAAA 201 
2040 

KAAA 209 
5D38 

KAAA 267 
379B 

KAAA 280 
519F 



KAAA 237 
5659 

KAAA 245 
1438 

KAAA 253 
7788 

KAAA 261 
D163 

KAAA 202 
1D13 

KAAA 210 
5DD0 

KAAA 268 
76F2 

KAAA 281 
A800 



KAAA 238 
4026 

KAAA 246 
5224 

KAAA 254 
2607 

KAAA 262 
CB60 

KAAA 203 
E1C8 

KAAA 211 
D1D8 

KAAA 269 
FB68 



5007 



KAAA 239 
EB1F 

KAAA 247 
6224 

KAAA 255 
2725 

KAAA 263 
26 A3 

KAAA 204 
3D13 

KAAA 212 
2 DAB 

KAAA 270 
3483 



5007 



KAAA 240 
DF14 

KAAA 248 
DB1E 

KAAA 256 
CB2E 

KAAA 264 
2775 

KAAA 205 
5D7D 

KAAA 213 
2D1B 

KAAA 271 
6AA6 

MPRT 063 
56F2 



KAAA 241 
3415 

KAAA 249 
3525 

KAAA 257 
26B3 

KAAA 265 
27AB 

KAAA 206 
3775 

KAAA 214 
7DB8 

KAAA 272 
56B0 

MPRT 064 
1000 



KAAA 242 
EF15 

KAAA 250 
FA21 

KAAA 258 
274D 

KAAA 266 
9962 

KAAA 207 
5960 

KAAA 215 
E500 

KAAA 273 
7242 

MPRT 065 
2C05 



KAAA 243 
3413 

KAAA 251 
1513 

KAAA 259 
274F 

KAAA 200 
F944 

KAAA 208 
78B8 

KAAA 221 
9D6A 

KAAA 274 
3480 

MPRT 066 
5062 



-1900- 



-1910- 



-1920- 



-1930- 



-1940- 



-1950- 



-1960- 



-1970- 



198- 



-19 80- 


MPRT 067 


MPRT 068 


MPRT 069 


MPRT 070 


MPRT 07 1 


MPRT 072 


MPRT 073 


MPRT 074 


-1980 




5EC2 


1183 


6D15 


1F33 


4FD3 


C58E 


128E 


54A9 




-1990- 


MPRT 075 


MPRT 076 


MPRT 077 


MPRT 078 


MPRT 079 


MPRT 080 


MPRT 033 


MPRT 034 


-1990 




1A83 


0A3B 


F098 


A938 


CD59 


99E4 


5EC2 


CB23 




-19A0- 


MPRT 035 


MPRT 036 


MPRT 037 


MPRT 038 


MPRT 039 


MPRT 040 


MPRT 041 


MPRT 042 


-19A0- 




92 86 


7032 


5062 


1000 


5149 


2D05 


F034 


1113 




-1980- 


MPRT 043 


MPRT 044 


MPRT 045 


MPRT 046 


MPRT 047 


MPRT 048 


MPRT 049 


MPRT 050 


-19B0 




1463 


9986 


2493 


0677 


C4BC 


9980 


2BC3 


3B45 




-19C0- 


MPRT 051 


MPRT 052 


MPRT 053 


MPRT 054 


MPRT 055 


MPRT 056 


MPRT 057 


MPRT 058 


-19C0 




6B71 


C4C8 


2C23 


9980 


2B23 


3BE5 


6B71 


C480 




-19D0- 


MPRT 059 


MPRT 060 


MPRT 061 


MPRT 062 


MPRT 081 


MPRT 082 


MPRT 083 


MPRT 084 


-19D0- 




3123 


1113 


2413 


9980 


5202 


28C7 


1B5B 


2A05 




-19E0- 


MPRT 085 


MPRT 086 


MPRT 087 


MPRT 088 


MPRT 089 




KAAA 020 


KAAA 021 


-19E0 




63BB 


62 AD 


2B67 


1B23 


A922 


5007 


7622 


7812 




-rl9F0- 


KAAA 022 


KAAA 023 


KAAA 024 


KAAA 025 


KAAA 026 


KAAA 027 


KAAA 028 


KAAA 029 


-19F0- 




5C02 


3C0D 


2D07 


7D52 


7C32 


6C24 


2053 


2E45 




CONTROL ADDRESS 
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CL0AD=*E40, EC LEVEL = 1282U ,PAGE 258 
IA— 



-1A00- 



-1A10- 



-IA2Q- 



KAAA 030 
5FD8 

KAAA 038 
2407 

KAAA 046 
€525 



-1A30- KAAA 054 
2455 

•1A40- KAAA 061 
FA4F 

•1A50- KAAA 069 
4026 

-1A60- LREQ 007 
£9€8 



-1A70- 



LREQ 015 
C4EC 



KAAA 031 
3F45 

KAAA 039 
25A5 

KAAA 047 
5530 

KAAA 055 
5D55 

KAAA 062 
5530 

KAAA 070 
253D 

LREQ 008 
5A82 

LREQ 016 
EBDF 



KAAA 032 
6FE1 

KAAA 040 
3513 

KAAA 048 
1513 

KAAA 056 
C4BD 

KAAA 063 
555D 

KAAA 071 
5F40 

LREQ 009 
1A85 

LREQ 017 
C1DC 



KAAA 033 
C48C 

KAAA 041 
5F40 

KAAA 049 
555D 

KAAA 057 
35B5 

KAAA 064 
1513 

KAAA 084 
CC3E 

LREQ 010 
7A82 

LREQ 018 
3E99 



KAAA 034 
40 26 

KAAA 042 
5FE9 

KAAA 050 
35A5 

KAAA 058 
5F40 

KAAA 065 
7C51 

KAAA 085 
CF3F 

LREQ Oil 
2A07 

LREQ 019 
6EFi 



KAAA 035 
A70A 

KAAA 043 
5530 

KAAA 051 
C12E 

KAAA 059 
EF40 

KAAA 066 
C4CF 

KAAA 086 
9CEA 

LREQ 012 
2B07 

LREQ 020 
C4DD 



KAAA 036 
300D 

KAAA 044 
6224 

KAAA 052 
25E8 

KAAA 060 
9CEA 

KAAA 067 
2C85 

LREQ 023 
96DA 

LREQ 013 
OB 30 

LREQ 021 
FODC 



KAAA 037 
C480 

KAAA 045 
7242 

KAAA 053 
5C40 

KAAA 087 
9338 

KAAA 068 
515D 

LREQ 006 
1FB0 

LREQ 014 
6AA4 

LREQ 022 
8B4E 



■1A00- 



-1A10- 



-1A20- 



-1A30- 



-1A40- 



-1A50- 



-1A60- 



-1A70- 



IA8- 



-1A80- JEND 094 
5EC2 

-1A90- JEND 081 
31B9 

-1AA0- JEND 089 
9AC4 

-1ABQ- JEND 105 
7700 

-1AC0- JEND 113 
8A62 

-1AQ0- JENO 062 
1623 

-iAEO- JENO 070 
31F3 



-IAFO- 



CONTROL ADORE SS 



5007 



JEND 095 
CF47 

JEND 082 
7138 

JEND 098 
D744 

JEND 106 
5022 

JEND 090 
D423 

JEND 063 
0191 

JEND 071 
E213 



5007 



JEND 096 
3523 

JEND 083 
2007 

JEND 099 
F100 

JEND 107 
£138 

JEND 091 
F12 7 

JEND 064 
5130 

JEND 072 
F112 

LPCB 003 
2807 



JEND 097 
9AC6 

JEND 084 
2185 

JEND 100 
7500 

JEND 108 
3000 

JEND 092 
7500 

JEND 065 
01FB 

JEND 073 
3135 

LPCB 004 
27F7 



JEND 077 
7222 

JEND 08 5 
3173 

JEND 101 
5042 

JEND 109 
5510 

JEND 093 
9AB2 

JEND 066 
C493 

JEND 074 
7138 

LPCB 005 
5799 



JEND 078 
2B0 8 

JEND 086 
5752 

JEND 102 
2007 

JEND 110 
F23E 

JEND 059 
5F5F 

JEND 067 
11B7 

JEND 075 
3623 

LPCB 006 
57E9 



JEND 079 
2A55 

JEND 087 
C743 

JEND 103 
5700 

JEND ill 
3545 

JEND 060 
0D04 

JEND 068 
F261 

JEND 076 
9AD4 

LPCB 007 
57F9 



JEND 080 -1A80- 
9796 

JEND 088 -IA90- 
D422 

JEND 104 -1AA0- 
3715 

JEND 112 -1AB0- 
2007 

JEND 061 -1AC0- 
C188 

JEND 069 -1A00- 
2145 



5007 



-1AEQ- 



LPCB 008 -1AF0- 
40E6 
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-1BC0- 



-1B10- 



-IB20- 



-1B30- 



-1B40- 



-1B50- 



-1B60- 



-1B70- 



LPC8 010 
2A65 

LPCB 021 
E514 

LPCB 029 
E124 

LPCB 03? 
79C0 

LPCB 045 
77C0 

LPCB 052 
DD4F 

LPCB 060 
9AF4 

KAAA 332 
1445 



LPCB 014 
58BD 

LPCB 022 
6741 

LPCB 030 
6041 

LPCB 038 

2DAB 

LPCB 046 
2DA8 

LPCB 053 
2D1B 

KAAA 325 
2D43 

KAAA 333 
128E 



LPCB 015 
3B85 

LPCB 023 
F518 

LPCB 031 
F128 

LPCB 039 
5E79 

LPCB 047 
T1C0 

LPCB 054 
83B0 

KAAA 326 
4EDF 



5007 



LPCB 016 
54A0 

LPCB 024 
6941 

LPCB 032 
6141 

LPCB 040 
77C0 

LPCB 048 
08AD 

LPCB 055 
2B15 

KAAA 327 
6 0D3 



5007 



LPCB 017 
5838 

LPCB 025 

cue 

LPCB 033 
282B 

LPCB 041 
2DAB 

LPC8 049 
C4D1 

LPCB 056 
283B 

KAAA 328 
FD66 



5007 



LPCB 018 
3B45 

LPCB 026 
6E41 

LPCB 034 
F080 

LPCB 042 
7FC0 

LPCB 050 
3D3D 

LPCB 057 
2A07 

KAAA 329 
4BDF 



5007 



LPCB 019 
2A07 

LPCB 027 
D120 

LPCB 035 
77C0 

LPCB 043 
2DA8 

LPCB 051 
9AF6 

LPCB 058 
63B9 

KAAA 330 
2D65 

IMAD 002 
16F3 



LPCB 020 
55A0 

LPCB 028 
6F41 

LPCB 036 
2DAB 

LPCB 044 
5 079 

LPCB 061 
A74E 

LPCB 059 
62 AD 

KAAA 331 
4DDF 

IMAD 003 
1002 



-IBOO- 



-IBIO- 



-1B20- 



-IB30- 



-1B40- 



-1B50- 



-1B60- 



-1B70- 



138- 



-1380- 


IMAD 004 


IMAD 005 


IMAD 006 


IMAD 013 


IMAD 015 


IMAD 016 


IMAD 017 


IMAD 018 


-1B80- 




5D1A 


3D45 


CD09 


8442 


5D79 


1613 


5D30 


DD13 




-1B90- 


IMAD 019 


IMAD 020 


IMAD 027 


IMAD 029 


IMAD 030 


IMAD 031 


IMAD 032 


IMAD 033 


-1B90- 




3613 


CD17 


8442 


2A95 


3D45 


4DAD 


57BD 


7BAF 




■-1BA0- 


IMAD 034 


IMAD 035 


IMAD 036 


IMAD 037 


IMAD 038 


IMAD 039 


IMAD 040 


IMAD 041 


-1BA0- 




E229 


3623 


86F8 


9BB6 


D230 


368 3 


86F8 


9BB6 




-1BB0- 


IMAD 042 


IMAD 043 


IMAD 044 


IMAD 045 


IMAD 046 


IMAD 047 


IMAD 048 


IMAD 049 


-1BB0- 




40BB 


3B85 


3643 


0B1B 


F0C7 


F23E 


1B45 


7B3A 




-1BC0- 


IMAD 050 


IMAD 051 


IMAD 052 


IMAD 053 


IMAD 054 


IMAD 055 


IMAD 056 


IMAD 057 


-IBCO- 




C200 


E24F 


8D7C 


OBED 


EOBA 


1B8D 


9BBA 


DF44 




-1BD0- 


IMAD 058 


IMAD 059 


IMAD 060 


IMAD 061 


IMAD 062 


IMAD 063 


IMAD 064 


IMAD 065 


-1BD0- 




6224 


5224 


5B30 


1613 


5B79 


2DF5 


2002 


D763 




-1BE0- 


IMAD 066 


IMAD 06 7 


IMAD 068 


IMAD 069 


IRST 165 


IRST 166 


IRST 167 


IRST 168 


-1BE0 




3613 


86F8 


1623 


9BB6 


062B 


C4F2 


078D 


C4F2 




-1BF.0-- 


IRST 169 


IRST 170 


IRST 171 


IRST 172 


IRST 173 






MPRT 283 


-IBFO- 




274D 


4260 


6A21 


6B31 


128E 


5007 


5007 


3000 
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-1C00- 



MPRT 2 84 
3C43 



-1C10- MPRT 292 
3C25 



-1C20- 



-1C30- 



-1C40- 



MPRT 271 
5EF2 

MPRT 279 
CE81 

MPRT 313 
A91E 



-1C50- MPRT 296 
EADA 

-1C60- MPRT 304 
4EC6 



-1C70- 



KAAN 133 
5E32 



MPRT 285 
1C83 

MPRT 293 
9C4E 

MPRT 272 
2E65 

MPRT 280 

CAD2 

MPRT 314 

998E 

MPRT 297 
3C13 

MPRT 305 
7C62 

KAAN 134 
2F8B 



MPRT 286 
E94F 

MPRT 265 
5EC2 

MPRT 273 
3EF3 

MPRT 281 
1C65 

MPRT 315 
7C62 

MPRT 298 
5E92 

MPRT 306 
3400 

KAAN 135 
58F8 



MPRT 287 
5EC2 

MPRT 266 
DB1E 

MPRT 274 
6EF1 

MPRT 282 
9C00 

MPRT 316 
3400 

MPRT 299 
3E13 

MPRT 307 
2C05 

KAAN 136 
56F0 



MPRT 288 
CBOC 

MPRT 267 
0D08 

MPRT 275 

C4AC 

MPRT 309 
C5C4 

MPRT 317 
2C05 

MPRT 300 
7E92 

MPRT 308 
ADCA 

KAAN 137 
A7E6 



MPRT 289 
1C65 

MPRT 268 

3400 

MPRT 276 
9E62 

MPRT 310 
997E 

MPRT 318 
96AC 

MPRT 301 
ODOA 

KAAN 130 
58E2 



5007 



MPRT 290 
EECD 

MPRT 269 
9C4A 

MPRT 277 
5C62 

MPRT 311 
1000 

MPRT 294 
3C45 

MPRT 302 
DIB 8 

KAAN 131 
51 9F 



5007 



MPRT 291 
FECE 

MPRT 270 
CAAC 

MPRT 278 
1000 

MPRT 312 
C943 

MPRT 295 
DAD3 

MPRT 303 
0040 

KAAN 132 
78E2 



5007 



-1C00- 



-1C10- 



-1C20- 



-1C30- 



-1C40- 



-1C50- 



-1C60- 



-1C70- 



1C8- 



-1C80- 


IMVE 060 


IMVE 061 


IMVE 073 


IMVE 074 


IMVE 075 


IMVE 081 


IMVE 083 


IMVE 084 


-1C80- 




3745 


9CE2 


3000 


5710 


71B0 


70CD 


5F30 


DF22 




-1C90- 


IMVE 085 


IMVE 086 


IMVE 08 7 


IMVE 088 


IMVE 089 


IMVE 013 


IMVE 014 


IMVE 015 


-1C90- 




D732 


773A 


C584 


1002 


9C86 


773A 


571A 


5F30 




-1CA0- 


IMVE 016 


IMVE 017 


IMVE 018 


IMVE 019 


IMVE 005 


IMVE 006 


IMVE 007 


IMVE 008 


-1CA0- 




D71B 


1745 


773 A 


8D7C 


773A 


571A 


5F30 


DF22 




-1CB0- 


IMVE 009 


IMVE 010 


IMVE Oil 


IMVE 012 


IMVE 028 


IMVE 034 


IMVE 035 


IMVE 037 


-1CB0- 




D729 


3745 


773A 


8D7C 


E22A 


5FC2 


CB2A 


2B65 




-icco- 


IMVE 038 


IMVE 039 


IMVE 040 


IMVE 041 


IMVE 042 


IMVE 043 


IMVE 044 


IMVE 045 


-1CC0- 




2B3B 


37CD 


C485 


071B 


C4AA 


3000 


571A 


5F30 




-1CD0- 


IMVE 046 


IMVE 047 


IMVE 048 


IMVE 049 


IMVE 055 


IMVE 057 


IMVE 058 


IMVE 059 


-1CD0- 




DF60 


D700 


7730 


73BD 


72CD 


C5CA 


1002 


9CCC 




-1CE0- 


IMVE 062 


IMVE 063 


IMVE 064 


IMVE 070 


IMVE 072 


KEND 002 


KEND 003 


KEND 004 


-1CE0- 




1745 


7730 


73BD 


72CD 


8D7C 


2665 


5412 


6446 




-lCfO- 


KEND 005 


KEND 006 


KEND 007 


KEND 008 


KEND 009 








-1CF0- 




6446 


6446 


6446 


7412 


9F72 


5007 


5007 


5007 
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-1DQ0- 



1D10- 



-1D20- 



-1D30- 



-1D40- 



-1D50- 



•1D60- 



IPLS 057 
A57A 

IPLS Oil 
6679 

IPLS 019 
F0A7 

IPLS 041 
2D45 

IPLS 049 
2507 

IPLS 025 
F0A2 

IPLS 033 
F92A 



-1D7Q- KAAF 051 
5DC9 



IPLS 061 
90D4 

IPLS 012 
67F1 

IPLS 020 
2625 

IPLS 042 
2EFF 

IPLS 050 
1210 

IPLS 026 
2E1F 

IPLS 034 
23EB 

KAAF 052 
5CD9 



IPLS 005 
AD84 

IPLS 013 
C4D5 

IPLS 021 
91 D8 

IPLS 043 

C4AE 

IPLS 051 
4286 

IPLS 027 

3E1D 

IPLS 035 
4826 

KAAF 053 
6DB1 



IPLS 006 
5 IFF 

IPLS 014 
EOCF 

IPLS 22 
5E11 

IPLS 044 
E83C 

IPLS 052 

0F4D 

IPLS 028 
5661 

IPLS 36 
2E37 

KAAF 054 
C4F2 



IPLS 007 
5202 

IPLS 015 
1E25 

IPLS 023 
9D3C 

IPLS 045 
2DF3 

IPLS 053 
E082 

IPLS 029 
6E61 

IPLS 037 
9D2C 

KAAF 055 
A88C 



IPLS 008 
5224 

IPLS 016 
E0A2 

IPLS 038 
2E55 

IPLS 046 

7D30 

IPLS 054 
F081 

IPLS 030 
C4A2 

KAAF 048 
3490 



5007 



IPLS 009 
4826 

IPLS 017 
5771 

IPLS 039 
2D07 

IPLS 047 
0620 

IPLS 055 

890C 

IPLS 031 
EB28 

KAAF 049 
5BD9 



5007 



IPLS 010 
50EF 

IPLS 018 
6E71 

IPLS 040 
7D38 

IPLS 048 
2607 

IPLS 024 
0F2 3 

IPLS 032 
5DC2 

KAAF 050 
2D88 

JTYP 422 
3F45 



-1D00- 



-1D10- 



-1D20- 



-1D30- 



-1D40- 



-1D50- 



-1D60- 



-1D70- 



1D8- 



-1D80- 

-1D90- 

-1DA0- 

-1DB0- 

-1DC0- 

-1DD0- 

-1DE0- 

-1DF0- 
■ CONTROL ADDRESS 



JTYP 423 
CF12 

JTYP 431 
9DB6 

JTYP 439 
2FC5 

JTYP 464 
FD37 

JTYP 472 
5ACF 

JTYP 447 
2A75 

JTYP 458 
9DB6 

JDTA 061 
2D85 



JTYP 424 
OFFD 

JTYP 432 
D216 

JTYP 440 
3F63 

JTYP 465 
2F15 

JTYP 473 

OCDB 

JTYP 451 

2F4D 

JDTA 054 
7222 

JDTA 062 
3D73 



JTYP 425 

E088 

JTYP 433 
8370 

JTYP 441 

9DB6 

JTYP 466 
3F53 

JTYP 474 

F0B3 

JTYP 452 
5FB9 

JDTA 055 
C9E5 

JDTA 063 
C1F9 



JTYP 426 
9DB6 

JTYP 434 
C115 

JTYP 459 

50F9 

JTYP 467 
CFBA 

JTYP 475 

9DB6 

JTYP 453 
D55A 

JDTA 056 
3400 

JDTA 064 
E17D 



JTYP 427 
F08F 

JTYP 435 
0F4D 

JTYP 460 
CFCi 

JTYP 468 

85CC 

JTYP 442 
5AEF 

JTYP 454 
188B 

JDTA 057 
0214 

JDTA 065 
2DDB 



JTYP 428 
1F45 

JTYP 436 
C4D0 

JTYP 461 
F537 

JTYP 469 
F13F 

JTYP 443 
CE50 

JTYP 455 
5CA0 

JDTA 058 
0210 

JDTA 066 
72C0 



JTYP 429 

9DB6 

JTYP 437 
CFC9 

JTYP 462 
60 A 9 

JTYP 470 
5224 

JTYP 444 
1EC5 

JTYP 456 
FB27 

JDTA 059 
021E 

JDTA 067 
8D7C 



JTYP 430 -1D80- 
3F73 

JTYP 438 -1D90- 
F550 

JTYP 463 -1DA0- 
F0B6 

JTYP 471 -1DB0- 
896C 

JTYP 445 -1DC0- 
C4A0 

JTYP 457 -1DD0- 
5CF9 

JDTA 060 -1DE0- 
98EA 



5007 



-1DF0- 



1D— 
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-1EQ0- KAAA 150 
6F65 

-IE 10- KAAA 163 
568D 

-1E20- KAAA 171 
3713 

•IE 30- KAAA 179 
2020 

-1E40- KAAA 187 
69B9 

-1E50- KAAA 145 
5F69 

-IE 60- KAAA 199 
993E 

-IE 70- MPRT 262 
9BFE 



KAAA 151 
76B2 

KAAA 164 
1813 

KAAA 172 
2 655 

KAAA 180 
1D13 

KAAA 188 
5D38 

KAAA 146 
FE03 

MPRT 255 
98EA 

IUBR 002 
E678 



KAAA 152 
2507 

KAAA 165 
78E2 

KAAA 173 
577D 

KAAA 181 
D1BA 

KAAA 189 
CF5A 

KAAA 147 
DF03 

MPRT 256 
2E07 

IUBR 008 
2A23 



KAAA 158 
3400 

KAAA 166 
10EE 

KAAA 174 
272D 

KAAA 182 
3D13 

KAAA 195 
A43E 

KAAA 148 
3785 

MPRT 257 
5EF9 

IUBR 009 
817C 



KAAA 159 
5738 

KAAA 167 
F31E 

KAAA 175 
5960 

KAAA 183 
0040 

KAAA 141 
CF4E 

KAAA 149 
9E02 

MPRT 258 
7EF2 

IUBR Oil 
4286 



KAAA 160 
5769 

KAAA 168 
2040 

KAAA 176 
5D3 8 

KAAA 184 
5D70 

KAAA 142 
3685 

KAAA 196 
5A32 

MPRT 259 
5C62 

IUBR 012 
1615 



KAAA 161 
5738 

KAAA 169 
1713 

KAAA 177 
5D89 

KAAA 185 
3775 

KAAA 143 
9E02 

KAAA 197 
2807 

MPRT 260 
3D83 

IUBR 013 
4806 



KAAA 162 
58E2 

KAAA 170 
F222 

KAAA 178 
F934 

KAAA 186 
5B60 

KAAA 144 
FBOl 

KAAA 198 
788 8 

MPRT 261 
0080 

IUBR 014 
8D7C 



-1EG0- 



1E10- 



-1E20- 



-1E3 0- 



-1E40- 



-1E50- 



-1E60- 



-1E70- 



IE8- 



-1E80- KAAN 177 KAAN 178 
F516 EF17 



-1E90- 



•1EB0- 



KAAN 192 
3725 



KAAN 193 
3743 



-IEAO- KAAN 149 KAAN 150 



9EA4 

KAAN 157 
4FEF 



3F13 

KAAN 158 
3F43 



-1EC0- KAAN 165 KAAN 166 



1D00 



1210 



-IE DP- KAAN 173 KAAN 174 



C056 



F457 



-1EE0- KAAN 203 KEND 037 



-1EF0- 
CONTRQL ADDRESS 



9804 



5 007 



5652 



5007 



KAAN 186 
56B2 

KAAN 194 
76B2 

KAAN 151 
DA2A 

KAAN 159 
56B2 

KAAN 167 
C54C 

KAAN 175 
E017 

KEND 038 
066 D 



5007 



KAAN 187 
C217 

KAAN 195 
85EE 

KAAN 152 
3F83 

KAAN 160 
D73A 

KAAN 168 
F5C7 

KAAN 176 
986E 

KEND 039 
F46F 



5007 



KAAN 188 
5E32 

KAAN 145 
CE22 

KAAN 153 
3F25 

KAAN 161 
3F45 

KAAN 169 
0E08 

KAAN 199 
3400 

KENO 040 
C16E 



5007 



KAAN 189 
2F 4B 

KAAN 146 
DE22 

KAAN 154 
2E25 

KAAN 162 
5F79 

KAAN 170 
8236 

KAAN 200 
6206 

KEND 041 
E66F 



5007 



KAAN 190 
5DF0 

KAAN 147 
EE23 

KAAN 155 
4DEF 

KAAN 163 
76B2 

KAAN 171 
E501 

KAAN 201 
6226 

KEND 042 
82C2 

MKKK 017 
5EC2 



KAAN 191 
FD17 

KAAN 148 
FA23 

KAAN 156 
2E07 

KAAN 164 
IE 00 

KAAN 172 
D559 

KAAN 202 
6226 

KEND 043 
82C4 

MKKK 018 
7812 



-1E80- 

-1E90- 

-1EA0- 

-1EB0- 

-1EC0- 

-1ED0- 

-1EE0- 

-1EF0- 
1E— 
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-IF CO- MKKK 019 
CB04 

•1F10- MKKK 027 
F095 

•1F20- MKKK 042 
1823 

•1F3Q- MKKK 029 
5A62 

■1F40- MKKK 051 
0B73 

-IF 50- MKKK 059 
3765 

-IF 60- JTYP 130 
FFEB 

•1F70- KEND 012 
2615 



MKKK 02 
92 86 

MKKK 028 
9170 

MKKK 043 
7A62 

MKKK 030 
3B23 

MKKK 052 
F0C7 

MKKK 060 
CE56 

JTYP 131 
5C82 

KEND 013 
76F2 



MKKK 021 
07ED 

MKKK 036 
5E62 

MKKK 044 
76F2 

MKKK 031 
0BE3 

MKKK 05 3 
3C85 

MKKK 061 
2720 

JTYP 132 
3D23 

KEND 014 
5622 



MKKK 022 
E08B 

MKKK 037 
FB1C 

MKKK 045 
2683 

MKKK 32 
F094 

MKKK 054 
5A92 

MKKK 062 
5EA9 

JTYP 133 
7C82 

KEND 015 
5812 



MKKK 23 
9170 

MKKK 03 8 
76F2 

MKKK 046 
5AC2 

MKKK 033 
7 A 62 

MKKK 055 
1A13 

MKKK 063 
1AE5 

JTYP 134 
OF 10 

KEND 016 
A044 



MKKK 024 
072B 

MKKK 039 
9208 

MKKK 047 
IBB 3 

MKKK 034 
2413 

MKKK 056 
7A92 

MKKK 064 
7AE2 

JTYP 135 

128E 



5007 



MKKK 025 
F0B1 

MKKK 040 
2493 

MKKK 048 
FOBE 

MKKK 035 
9F24 

MKKK 057 
5E62 

MKKK 065 
8978 

KEND 010 
1E00 

JYPE 00 8 
5E08 



MKKK 026 
07 6B 

MKKK 041 
5A62 

MKKK 049 
9978 

MKKK 050 
5AC2 

MKKK 058 
2753 

JTYP 129 

CEEA 

KEND Oil 
3400 

JYPE 009 
5032 



-1F0O- 



-1F10- 



-1F20- 



-1F30- 



-1F40- 



-1F50- 



-XF60- 



-1F70- 



1F8- 



-IF80- 


JYPE 010 


JYPE Oil 


JYPE 012 


JYPE 013 


JYPE 014 


JYPE 015 


JYPE 016 


JYPE 017 


-1F80- 




F827 


DIA3 


FBOD 


4FAF 


1F1B 


A416 


4FBF 


C596 




-1F90- 


JYPE 018 


JYPE 019 


JYPE 020 


JYPE 021 


JYPE 022 


JYPE 023 


JYPE 035 


JYPE 036 


-1F90- 




4A46 


1000 


9F88 


C19D 


1C1B 


A416 


2D45 


1C1B 




-1FA0- 


JYPE 03 7 


JYPE 057 


JYPE 058 


JYPE 024 


JYPE 025 


JYPE 026 


JYPE 027 


JYPE 028 


-1FA0- 




A416 


0040 


ABD8 


C1CD 


5A92 


3A2 5 


1A83 


7A92 




-1FB0- 


JYPE 029 


JYPE 030 


JYPE 031 


JYPE 032 


JYPE 047 


JYPE 048 


JYPE 049 


JYPE 050 


-1FB0- 




D235 


2080 


4FCF 


A416 


F247 


E241 


5EF2 


97F6 




-1FC0- 


JYPE 054 


JYPE 055 


JYPE 056 


JYPE 051 


JYPE 052 


JYPE 053 


JYPE 038 


JYPE 039 


-1FC0- 




5E52 


1623 


9FDA 


5E42 


1613 


9FDA 


4FDF 


1C1B 




-1FD0- 


JYPE 040 


JYPE 041 


JYPE 042 


JYPE 043 


JYPE 044 


JYPE 045 


JYPE 046 


INTP 006 


-1FD0 




3400 


CBB8 


1602 


0080 


4E86 


3040 


A416 


3404 




-1FE0- 


INTP 007 


INTP 008 


INTP 009 


INTP 010 


INTP Oil 


INTP 012 


KAAQ 060 


KAAQ 061 


-1FE0- 




3F22 


16F3 


2080 


3643 


1040 


A416 


C179 


3583 




-1FF0- 


KAAQ 062 


KAAQ 063 


KAAQ 064 


KAAQ 065 


KAAQ 066 




BDIA 087 


BDIA 088 


-1FF0 




5E52 


5EF9 


3F25 


7F52 


128E 


5007 


2810 


D57F 
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-2000- 



-2010- 



-2020- 



-2030- 



-2040- 



-2050- 



-2060- 



-2070- 



BDIA 091 
2810 

JDTA 009 
2848 

JDTA 017 
6041 

JDTA QZZ 
D19B 

BDIA 106 
2810 

IDIS 009 
ACBE 

BDIA 119 
D57F 



5007 



BDIA 092 
25F5 

JDTA 010 
5419 

JDTA 018 

C4AB 

JDTA 023 
0240 

BDIA 111 
C55F 



5007 

IERR 055 
2AF5 



5007 



BDIA 096 
E504 

JDTA Oil 
5530 

JDTA 019 
1623 

JDTA 027 
3145 

IDIS 003 
3404 



5007 

IERR 056 
0268 



5007 



BDIA 097 
2810 

JDTA 012 

05 FB 

JDTA 20 
7138 

JDTA 028 
F21E 

IDIS 004 
5CF2 



5007 

IERR 057 
2AF7 



5007 



BDIA 101 
F508 

JDTA 013 

C4B1 

JDTA 021 
0240 

JDTA 029 
D527 

IDIS 005 

5E82 



5007 

IERR 059 
E56D 



5007 



BDIA 102 
2810 

JDTA 014 
E234 

JDTA 024 
E227 

JDTA 030 
1145 

IDIS 006 
1E13 



5007 

IERR 060 
817C 



5007 



BDIA 103 
A040 

JDTA 015 
1145 

JDTA 02 5 
3623 

JDTA 031 
7138 

IDIS 007 
5ED9 



5007 

IERR 028 
2 A 43 



5007 



JDTA 008 
5F4F 

JDTA 016 
57 09 

JDTA 026 
0240 

JDTA 032 
0240 

IDIS 008 
7CF2 

BDIA 114 
2810 

IERR 029 
81 7C 

BDIA 125 
2800 



-2 000- 
-2010- 
-2020- 
-2030- 
-2040- 
-2 050- 
-2 060- 
-2 070- 



208- 



-2080- 


BDIA 131 


BDIA 132 


BDIA 133 


BDIA 134 


BDIA 135 


BDIA 136 


BDIA 137 


BDIA 138 


-2 080- 




3E09 


C483 


F085 


E087 


F489 


6EE5 


AODA 


2E0D 




-2090- 


BDIA 142 


BDIA 143 


BDIA 147 


BDIA 148 


BDIA 149 


BDIA 150 


BDIA 151 


BDIA 152 


-2 090- 




AODA 


7EE1 


F494 


7EE1 


6EE3 


2E5F 


6EE3 


6EE9 




-20A0- 


BDIA 153 


BDIA 154 


BDIA 155 


BDIA 156 


BDIA 157 


BDIA 158 


BDIA 159 


BDIA 160 


-2OA0- 




0E5F 


C4A2 


2E87 


3E27 


2EEF 


2E77 


IE 87 


1EB7 




-2QB0- 


BDIA 161 


BDIA 162 


BDIA 163 


BDIA 164 


BDIA 165 


BDIA 166 


BDIA 167 


BDIA 171 


-2QB0- 




2EF7 


OEll 


F0B4 


E0B6 


1EFB 


A0E2 


1EF3 


A0E2 




-20C0- 


BDIA 172 


BDIA 176 


BDIA 177 


BDIA 181 


BDIA 182 


BDIA 183 


BDIA 184 


BDIA 188 


-20C0' 




3E15 


A0E2 


3 £00 


2E1D 


2FF5 


AODA 


OFFD 


C4CE 




-2000- 


BDIA 189 


BOIA 190 


BDIA 191 


BDIA 192 


BDIA 193 


BDIA 195 


BDIA 196 


BDIA 197 


-2OD0- 




1FF5 


C4D2 


2EF5 


AO E2 


A0E8 


OEFF 


C4E1 


2 810 




-20E0- 


BDIA 198 


BDIA 201 


BDIA 202 


BDIA 203 


BDIA 207 


BDIA 208 


BDIA 209 


BDIA 210 


-2 0EQ- 




128E 


OEFD 


C4DE 


128E 


24F6 


578F 


1887 


08 7F 




-20F0- 


BDIA 211 


BDIA 212 


BDIA 213 


BDIA 214 


BDIA 215 


BDIA 216 


BDIA 217 


BDIA 221 


-20F0- 




EOFO 


F0F2 


2400 


574F 


0487 


EOFA 


FOFC 


2EF7 
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-2100- 



8DIA 222 
2FF7 



-2110- BD£A 230 
1EFF 



-2120- 



-2140- 



-2150- 



-2160- 



-2170- 



BDIA 238 
04 8F 



-2130- BDIA 246 
2E45 



BDIA 256 
FB34 

INIZ 047 
5E02 

INIZ 055 
2610 

INIZ 063 
2607 



BDIA 223 

6E02 

BDIA 231 
C492 

BDIA 239 
E0A2 

BDIA 247 
3FE9 

BDIA 257 
44E6 

INIZ 048 

3E0D 

INIZ 056 
06 AD 

INIZ 064 
2707 



BDIA 224 
2E05 

BDIA 232 
2E33 

BDIA 240 
F0A4 

BDIA 248 
25F7 

BDIA 2 58 
044D 

INIZ 049 
2FC3 

INIZ 057 
E0D6 

INIZ 065 
128E 



BDIA 225 
2F05 

BDIA 233 
2F87 

BDIA 241 
257F 

BDIA 249 
75E0 

BDIA 259 
C4C6 

INIZ 050 
76F8 

INIZ 058 
F26D 

MPRT 209 
4F6F 



BDIA 226 
4E02 

BDIA 234 
6FE8 

BDIA 242 
C4A8 

BDIA 251 
2505 

BDIA 260 
75F1 

INIZ 051 
272B 

INIZ 059 
2613 

MPRT 210 
2D04 



BDIA 227 
OFFF 

BDIA 235 
6FEA 

BDIA 243 
2E05 

BDIA 252 
55EA 

BDIA 261 
C4CA 

INIZ 052 
07AB 

INIZ 060 
F257 

MPRT 211 
51E0 



BDIA 228 
E08C 

BDIA 236 
44E8 

BDIA 244 
55EA 

BDIA 254 
05FF 

BDIA 262 
0060 

INIZ 053 
C4D6 

INIZ 061 
2623 

MPRT 212 
4B1F 



BDIA 229 
F08E 

BDIA 237 
2F13 

BDIA 245 
C4AE 

BDIA 255 
C4BE 

BDIA 263 
88EC 

INIZ 054 
2707 

INIZ 062 
76F0 

MPRT 213 

2BFF 



-2100- 
-2110- 
-2120- 
-2130- 
-2140- 
-2150- 
-2160- 
-2170- 



218- 



-2180- 


MPRT 214 


MPRT 215 


MPRT 216 


MPRT 217 


MPRT 235 


MPRT 236 


MPRT 237 


MPRT 238 


-2180- 




C498 


27FF 


C488 


8188 


CCOC 


A19E 


3D25 


CD15 




-2190- 


MPRT 239 


MPRT 240 


MPRT 241 


MPRT 242 


MPRT 218 


MPRT 219 


MPRT 220 


MPRT 221 


-2190- 




2BC3 


A1A2 


2825 


A1A2 


27FF 


C4A2 


CD06 


3C13 




-21A0- 


MPRT 222 


MPRT 223 


MPRT 227 


MPRT 228 


MPRT 229 


MPRT 230 


MPRT 231 


MPRT 232 


-21A0- 




8188 


5E11 


6163 


F4AD 


66A3 


A1AE 


6603 


E03E 




-21B0- 


MPRT 233 


MPRT 234 


MPRT 204 


MPRT 205 


MPRT 206 


MPRT 207 


MPRT 208 


MPRT 190 


-21B0- 




2F45 


A1CA 


OFFB 


C4C6 


3025 


2F45 


A1CA 


5F38 




-21C0- 


MPRT 191 


MPRT 192 


MPRT 193 


MPRT 194 


MPRT 195 


MPRT 196 


MPRT 197 


MPRT 199 


-21C0- 




C045 


DF34 


E851 


0F75 


C4CC 


3FA3 


3FC5 


A176 




-21D0- 


MPRT 200 


MPRT 201 


MPRT 202 


MPRT 203 


ICLR 002 


ICLR 003 


ICLR 004 


ICLR 005 


-21D0- 




Of 3B 


2FF5 


3F13 


A176 


4426 


A304 


2 545 


3002 




-21E0- 


ICLR 006 


ICLR 007 


ICLR 008 


ICLR 009 


ICLR 010 


ICLR Oil 


ICLR 012 


ICLR 013 


-21E0- 




2A13 


OF 05 


C4ED 


753A 


7FAF 


C4E6 


753A 


0E05 




-21F0- 


ICLR 014 


ICLR 022 


ICLR 024 


ICLR 025 


ICLR 026 


ICLR 027 


ICLR 028 




-21F0- 




C4F6 


52A2 


23F7 


F27B 


D27C 


8D7C 


9E72 


5007 
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21 — 



ADDRESS LIST 
CONTROL ADDRESS 2 



DATE 11/08/68 
A C 



CLQAD=*E40, EC L£VEL=1282 11 ,PAGE 266 
22 — 



-2200- JCHL 207 
9DE2 



-2210- 



-2220- 



-2230- 



-2240- 



-22 50- 



-2260- 



-22 70- 



JCHL 175 
843A 

JCHL 195 
30D3 

JCHL 203 
021E 

JCHL 152 
20 IF 

JCHL 160 

FDD1 



5G07 

IMZS 005 
57D9 



JCHL 168 
C593 

JCHL 176 
2443 

JCHL 196 
2143 

JCHL 204 
2D04 

JCHL 153 
5DC0 

JCHL 161 
C9D3 



5007 

IMZS 006 
3D45 



JCHL 169 
5EC2 

JCHL 177 
A25C 

JCHL 197 
5222 

JCHL 205 
EC80 

JCHL 154 
4FDF 

JCHL 162 
0214 



5007 



JCHL 170 
EF10 

JCHL 190 
76F2 

JCHL 198 
C72E 

JCHL 206 
A234 

JCHL 155 
EDC6 

JCHL 163 
D602 



5007 



JCHL 171 
1F25 

JCHL 191 
34 F6 

JCHL 199 
5111 

JCHL 148 
CA4D 

JCHL 156 
2B48 

JCHL 164 
5549 



5007 



JCHL 172 
7EC2 

JCHL 192 
56F2 

JCHL 200 
D72E 

JCHL 149 
2848 

JCHL 157 
FDCA 

JCHL 165 
1645 



5007 



IMZS 007 IMZS 008 
5DC0 5DDD 



IMZS 009 IMZS 010 
5DC0 1D45 



JCHL 173 
98EA 

JCHL 193 
5752 

JCHL 201 
1045 

JCHL 150 
FDBD 

JCHL 158 
2800 

JCHL 166 
5BF9 



5007 

IMZS Oil 
7D3A 



JCHL 174 
937C 

JCHL 194 
2 065 

JCHL 202 
5079 

JCHL 151 
D616 

JCHL 159 
2B08 

JCHL 167 
9782 

IMZS 004 
571A 

IMZS 02 
5EC2 



-2200- 



-2210- 



-2220- 



-2230- 



-2240- 



-2250- 



-2260- 



-2270- 



228- 



-2280- 


IMZS 021 


IMZS 023 


IMZS 024 


IMZS 025 


IMZS 026 


IMZS 027 


IMZS 02 8 


IMZS 029 


-2280- 




FE04 


3613 


D712 


A28A 


7D3A 


5D1A 


DD09 


3D45 




-2290- 


IMZS 030 


IMZS 031 


IMZS 032 


IMZS 033 


IMZS 034 


IMZS 035 


IMZS 036 


IMZS 03 7 


-2290- 




703 A 


5224 


C145 


5F30 


DF1F 


3F45 


3583 


OFFD 




-22A0- 


IMZS 038 


IMZS 039 


IMZS 040 


IMZS 041 


IMZS 042 


IMZS 043 


IMZS 044 


IMZS 045 


-22A0- 




C4C7 


E0C1 


CF3B 


FOAC 


0F5D 


EOBB 


OFBB 


FOBC 




-22B0- 


IMZS 046 


IMZS 047 


IMZS 048 


IMZS 049 


IMZS 050 


IMZS 051 


IMZS 052 


IMZS 053 


-22B0- 




0F6D 


F238 


0F4D 


A2B8 


E0C7 


3515 


7F38 


A294 




-22C0- 


IMZS 059 


IMZS 060 


IMZS 054 


IMZS 055 


IMZS 056 


IMZS 057 


IMZS 058 


IRAD 027 


-22C0- 




1515 


A2BC 


8D7C 


F53C 


2F45 


7F38 


A294 


1045 




-22D0- 


IRAD 028 


IRAD 029 


IRAD 005 


IRAD 006 


IRAD 007 


IRAD 008 


IRAD 009 


IRAD 010 


-22D0- 




7D3A 


8D7C 


571A 


57D9 


3D45 


5DC0 


ED61 


3D35 




-22E0- 


IRAD Oil 


IRAD 012 


IRAD 013 


IRAD 014 


IRAD 015 


IRAD 016 


IRAD 017 


IRAD 018 


-22E0- 




F164 


1D1D 


5DC0 


5F30 


DF4E 


7D3A 


2DF5 


D766 




-22F0- 


IRAD 019 


IRAD 020 


IRAD 021 


IRAD 022 


IRAD 023 


IRAD 024 


IRAD 025 


IRAD 026 


-22F0- 




571A 


6D75 


C767 


57D9 


3D45 


5DC0 


5DDD 


A2E4 
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2300- 


ICTD 019 


ICTD 020 


ICTD 021 


ICTD 022 


ICTD 023 


ICTD 025 


ICTD 026 


ICTD 027 


-2300 




54A2 


35F7 


5A02 


2C07 


2E25 


2002 


758 9 


74A9 




2310- 


ICTD 028 


ICTD 029 


ICTD 030 


ICTD 031 


ICTD 032 


ICTD 033 


ICTD 034 


ICTD 035 


-2310 




F580 


6443 


54D9 


6443 


6D4B 


6D53 


F4A4 


244B 




2320- 


ICTD 036 


ICTD 037 


ICTD 038 


ICTD 039 


ICTD 040 


ICTD 041 


ICTD 042 


ICTD 043 


-2320- 




2D6B 


F49F 


F5AC 


244B 


2D6B 


F4A7 


5DF5 


2FBD 




2330- 


ICTD 044 


ICTD 045 


ICTD 046 


ICTD 047 


ICTD 048 


ICTD 049 


ICTD 050 


ICTO 051 


-2330 




55E0 


1002 


2F07 


5FE9 


D03E 


2F55 


2E23 


CD42 




2340- 


ICTD 052 


ICTD 053 


ICTD 054 


ICTD 058 


ICTD 059 


ICTD 060 


ICTD 065 


ICTD 066 


-2 340- 




2€1B 


F148 


2E1B 


2002 


C04C 


2E5B 


C952 


2F8B 




2350- 


ICTD 067 


ICTD 068 


ICTD 069 


ICTD 071 


ICTD 078 


ICTD 080 


ICTD 081 


ICTD 082 


-2350- 




1D83 


5DDD 


7FDF 


7F5F 


7ECF 


5443 


6E43 


128E 




2360- 


















-2360- 



-2370- 



5007 



5007 



5007 



5007 



5007 



5007 



5007 



5007 



5007 

ISIC 008 
4AE6 



5007 

ISIC 009 
0042 



5007 

ISIC 010 
2791 



5007 

ISIC on 
6A7F 



-2370- 



238- 



-23 80- 


ISIC 012 


ISIC 013 


ISIC 014 


ISIC 015 


ISIC 016 


ISIC 017 


ISIC 018 


ISIC 019 




F48D 


58A1 


6B7F 


F48D 


6A7F 


F496 


2EF7 


5EF9 


-2390- 


ISIC 020 


ISIC 021 


ISIC 022 


ISIC 023 


ISIC 024 


ISIC 025 


ISIC 026 


ISIC 027 




48E6 


20A0 


A8C8 


5202 


OEOD 


C4BB 


F0A6 


2C33 


-23AG- 


ISIC 028 


ISIC 029 


ISIC 030 


ISIC 031 


ISIC 032 


ISIC 033 


ISIC 034 


ISIC 035 




2DE5 


2D8B 


F82D 


2C07 


2D65 


2D4B 


63DB 


62CD 


-23B0- 


ISIC 036 


ISIC 037 


ISIC 038 


ISIC 039 


ISIC 040 


ISIC 041 


ISIC 042 


ISIC 043 




DD3A 


2EFF 


F818 


1EF3 


F819 


OFOD 


C4CD 


E0C9 


-23C0- 


ISIC 044 


ISIC 045 


ISIC 046 


ISIC 047 


ISIC 048 


ISIC 049 


ISIC 050 


ISIC 051 




2C07 


2DA3 


2FFD 


F4AD 


63FB 


62ED 


CBD1 


128E 


-2300- 


ISIC 052 


ISIC 053 


ISIC 054 














4826 


42A6 


A8C6 


5007 


5007 


5007 


5007 


5007 


-23E0- 




JTYP 004 


JTYP 005 


JTYP 006 


JTYP 007 


JTYP 008 


JTYP 009 


JTYP 010 




5007 


3404 


5553 


1545 


OOCO 


5C92 


1C35 


6C55 


-23F0- 


JTYP Oil 


JTYP 012 


JTYP 013 


JTYP 014 


JTYP 015 


JTYP 016 


JTYP 017 


JTYP 018 




5C58 


1C87 


7C92 


16F3 


5C82 


108 3 


7C82 


079B 
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-2400- 



•2410- 



-2420- 



-2430- 



-2440- 



-2450- 



-2460- 



-2470- 



JTYP 019 
F092 

JTYP 053 
96AC 

JTYP 036 
7408 

JTYP 044 
7F00 

KBBE 009 
F0E6 

KB8E 017 
51 6F 

KBBE 025 
F5E5 

KBBE 039 
2D23 



JTYP 020 
1D23 

JTYP 025 

1F00 

JTYP 037 
7808 

JTYP 045 
2FF3 

KBBE 010 
1E23 

KBBE 018 
3400 

KBBE 026 
16FF 

KBBE 040 
4EDF 



JTYP 021 
7C82 

JTYP 026 
2F08 

JTYP 038 
7A08 

JTYP 046 
1F28 

KBBE Oil 
390D 

KBBE 019 
10EE 

KBBE 027 
5699 

KBBE 041 
2D15 



JTYP 022 

0F08 

JTYP 027 
7032 

JTYP 039 
7C08 

JTYP 047 
3400 

KBBE 012 
58B9 

KBBE 020 
E75C 

KB8E 028 
2713 

KBBE 042 
4BDF 



JTYP 023 
3F20 

JTYP 029 
2075 

JTYP 040 
7E08 

JTYP 048 
0004 

KBBE 013 
3845 

KBBE 021 
F750 

KBBE 029 
EA6D 

KBBE 043 
A478 



JTYP 024 
A416 

JTYP 033 
2145 

JTYP 041 
2020 

JTYP 049 
4FFF 

KBBE 014 
2A07 

KBBE 022 
3002 

KBBE 030 
A800 



5007 



JTYP 051 
0F20 

JTYP 034 
7208 

JTYP 042 
EE8C 

JTYP 050 
96AC 

KBBE 015 
57A0 

K8BE 023 
769D 

KBBE 037 
3480 



5007 



JTYP 052 
3400 

JTYP 03 5 
7608 

JTYP 043 
5FFF 

KBBE 008 
ODBB 

KBBE 016 
3480 

KBBE 024 
C5E4 

KBBE 038 
3523 



5007 



-2400- 



-2410- 



-2420- 



-2430- 



-2440- 



-2450- 



-2460- 



-2470- 



248- 

-2480- INTP 098 INTP 099 INTP 100 INTP 101 INTP 102 INTP 103 INTP 104 INTP 105 -2480- 

3000 0FA1 F4A9 4FFF 4FAD A4B4 0F81 F4A9 

-2490- INTP 106 INTP 107 INTP 014 INTP 015 INTP 016 INTP 017 INTP 018 INTP 019 -2490- 

4FFF ADFC F239 3613 2EA5 3E13 6EF1 EOAB 

-2AA0- INTP 020 INTP 025 INTP 026 INTP 027 INTP 040 INTP 050 INTP 052 INTP 053 -24A0- 

F0A9 2E77 6EF9 F4B0 8370 0F3B F0A8 3623 

-24B0- INTP 054 INTP 055 INTP 056 INTP 057 INTP 058 INTP 064 INTP 065 INTP 066 -24B0- 

5FA3 4FFF 7AE2 A416 5AE2 OFFO E0A8 E24B 

-24C0- INTP 067 INTP 068 INTP 069 INTP 087 INTP 088 INTP 089 INTP 090 INTP 091 -24C0- 

0FE1 F4A9 4FFF 4FAD 88 7A C580 0181 F0A9 

-2400- INTP 092 INTP 093 INTP 094 INTP 095 INTP 096 INTP 097 IAOO 086 IADO 087 -24D0- 

0F91 F4A9 4FFF 5FA3 2040 A4B4 2002 7FAF 

-24E0- IADO 088 I ADD 089 IADD 090 IADD 091 IADO 092 IADD 093 IADD 094 IADD 095 -24E0- 

5FFD D1E6 3F15 3FC5 DD6C 9772 F5F0 974C 

-24F0- IADD 096 IADD 097 IADO 098 IADD 099 IADO 100 IADD 101 IAOD 102 JTYP 186 -24F0- 

1F1D 5FB9 2002 2F07 7FBF 4BFB 974C OFFD 
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-2500- JTYP 187 
E0A3 

-2510- JTYP 195 
D197 

-2520- JTYP 203 
8370 

-2530- JTYP 211 
£939 

-2540- JTYP 220 
1D4B 

-2550- JTYP 238 
4ED3 

-2560- MPRT 369 
2080 

-2570- MPRT 371 
8216 



JTYP 188 
2C75 

JTYP 196 
2040 

JTYP 204 
0040 

JTYP 212 
F951 

JTYP 221 
D148 

JTYP 239 
101B 

MPRT 370 
A DOC 

MPRT 372 
C960 



JTYP 189 
3C93 

JTYP 197 

A518 

JTYP 205 
5FEI 

JTYP 213 
3523 

JTYP 22 3 
CC3C 

JTYP 240 

AE2A 

MPRT 359 
8216 

MPRT 373 
5E62 



JTYP 190 
6CF3 

JTYP 198 
3613 

JTYP 206 
6EF9 

JTYP 214 

8CD8 

JTYP 230 

8370 

MPRT 364 
8216 

MPRT 360 
C960 

MPRT 374 
EE6F 



JTYP 191 
F48C 

JTYP 199 

4FFF 

JTYP 207 
E12C 

JTYP 235 
4EC0 

JTYP 231 
C13C 

MPRT 365 
5E62 

MPRT 361 
5E62 

MPRT 375 
8D7C 



JTYP 192 
8370 

JTYP 200 
A416 

JTYP 208 
814E 

JTYP 236 

1028 

JTYP 232 
0CC9 

MPRT 366 
DA6E 

MPRT 362 
DE6F 

LOPD Oil 
2513 



JTYP 193 
E125 

JTYP 201 
C123 

JTYP 209 
5CE2 

JTYP 237 
AE2A 

JTYP 233 
F4BC 

MPRT 367 
CA6F 

MPRT 363 
8D7C 

LOPD 012 
1613 



JTYP 194 
F21D 

JTYP 202 

D1A3 

JTYP 210 
D93F 

JTYP 219 
5EC3 

JTYP 234 

8370 

MPRT 368 
80 7C 

MPRT 376 
9E72 

LOPD 013 
0677 



-2500- 



-2 510- 



-2 520- 



-2530- 



-2540- 



-2550- 



-2560- 



-2570- 



258- 



-2580- LOPD 014 LOPD 015 LOPD 016 

C4A1 2BC5 2B3B 

-2590- LOPD 022 LOPD 023 LOPD 024 

F095 3613 2BD5 

-25A0- LOPD 030 LOPD 031 LOPD 032 

8258 F13B D137 

-25B0- LOPD 038 LOPD 039 LOPD 040 

C635 8D7C 9E72 

-25C0- LOPD 045 LOPD 046 LOPD 047 

5EC2 FA4C 23EB 

-2500- KAAN 029 KAAN 030 KAAN 031 

2E07 2FB5 5612 

-25E0- KAAN 037 KAAN 038 KAAN 039 

507F 1783 556F 

-25F0- KAAN 045 KAAN 046 KAAN 047 

76E0 0683 FOFD 
CONTROL ADDRESS 



LOPD 017 
6B71 

LOPD 25 
2B9B 

LOPD 033 
C137 

LOPD 041 
8B80 

LOPD 048 
2935 

KAAN 032 
76E8 

KAAN 040 
1635 

KAAN 048 
1E00 



LOPD 018 
C494 

LOPD 026 
6B71 

LOPD 034 
98EA 

LOPD 053 
91D8 

LOPD 049 
29CB 

KAAN 033 
5A6F 

KAAN 041 
476D 

KAAN 049 
3202 



LOPD 019 
5EC2 

LOPD 027 
C4A0 

LOPD 035 
1615 

LOPD 042 
5202 

LOPD 050 
2137 

KAAN 034 
5E7F 

KAAN 042 
5C7F 

KAAN 050 
8222 



LOPD 020 
CA14 

LOPD 028 
F139 

LOPD 036 
2C07 

LOPD 043 
2155 

LOPD 051 
2845 

KAAN 03 5 
1723 

KAAN 043 
577D 

KAAN 051 
128E 



LOPD 021 
055B 

LOPD 029 
3585 

LOPD 037 
D235 

LOPD 044 
2925 

LOPD 052 
8994 

KAAN 036 
76E8 

KAAN 044 
1713 

MQQQ 019 
5E62 



-2580- 

-2590- 

-25A0- 

-25B0- 

-2 5C0- 

-25D0- 

-25E0- 

-25F0- 
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2600- 


MQQQ 020 


MQQQ 021 


MQQQ 022 


MQQQ 023 


MQQQ 024 


MQQQ 025 


MQQQ 026 


MQQQ 027 


-2600 




DB20 


5492 


E135 


DEOB 


807C 


54C2 


C113 


1E45 




2610- 


MQQQ 02 8 


MQQQ 029 


MQQQ 003 


MQQQ 004 


MQQQ 005 


MQQQ 006 


MQQQ 007 


MQQQ 008 


-2610 




7E62 


9E72 


5EC2 


CB20 


5E62 


0B2D 


5492 


E135 




2620- 


MQQQ 009 


MQQQ 010 


MQQQ Oil 


MQQQ 012 


MQQQ 013 


MQQQ 014 


MQQQ 038 


MQQQ 039 


-2620 




5E92 


FA27 


8D7C 


1E13 


7E92 


9E72 


5E62 


DB2D 




2630- 


MQQQ 040 


MQQQ 041 


MQQQ 042 


MQQQ 043 


MQQQ 015 


MQQQ 016 


MQQQ 017 


MQQQ 018 


-2630 




5E92 


E838 


26 A3 


9F4C 


5886 


5790 


D739 


8D7C 




2640- 


MQQQ 030 


MQQQ 031 


MQQQ 032 


MQQQ 033 


MQQQ 034 


MQQQ 035 


MQQQ 036 


MQQQ 037 


-2640- 




5E62 


DB2D 


EE49 


8D7C 


54C2 


C113 


IE25 


A610 




2650- 


MPRT 126 


MPRT 127 


MPRT 128 


MPRT 129 


MPRT 130 


MPRT 131 


MPRT 132 


MPRT 133 


-2650 




5E92 


1E13 


7E92 


CD64 


1D23 


041B 


C4E3 


C472 




2660- 


MPRT 134 


MPRT 135 


MPRT 136 


MPRT 137 


MPRT 138 


MPRT 139 


MPRT 140 


MPRT 141 


-2660 




1C65 


3023 


04ED 


EOEA 


3C25 


04CD 


E0F2 


C072 




2670- 


MPRT 142 


MPRT 143 


MPRT 144 


MPRT 145 


MPRT 146 


MPRT 147 


IEDT 138 


IEDT 139 


-2670- 




3C45 


E077 


8126 


404F 


1D00 


818C 


1523 


5224 





268- 



-2680- 


IEDT 140 
5F30 


IEDT 141 
5FB9 


IEDT 142 
3B45 


IEDT 143 
OBFD 


IEDT 144 
EOBB 


IEDT 145 
0B4D 


IEDT 146 
C4C3 


IEDT 147 

OBBB 


-2680- 


-2690- 


IEDT 148 
F0A3 


IEDT 149 
3543 


IEDT 150 
7B38 


IEDT 151 
DFOi 


IEPT 152 
F11D 


IEDT 153 

8D7C 


IEDT 154 
05D7 


IEDT 155 

C49B 


-2690 


-26A0- 


IEDT 156 
A79E 


IEDT 157 

0B6D 


IEDT 158 
F228 


IEDT 159 
0B4D 


IEDT 160 
E0C3 


IEDT 161 
0B4D 


IEDT 162 
F23Q 


IEDT 163 

0B6D 


-26A0 


-26B0- 


IEDT 164 
E092 


IEDT 165 
D114 


IEDT 166 
F13E 


IEDT 167 
3523 


IEDT 168 
A6BE 


IEDT 169 
F0C3 


IEDT 170 
1523 


IEDT 171 
1543 


-26B0- 


-2 6C0- 


IEDT 172 
A694 


IEDT 173 
0114 


IEDT 174 
2B45 


IEDT 175 
F514 


IEDT 176 
2BC3 


IEDT 177 
3855 


IEDT 178 
A694 


ICMP 021 
DF76 


-26C0 


-26D0- 


ICMP 022 
2EC3 


ICMP 023 
DA59 


ICMP 024 
F25F 


ICMP 025 
2E13 


ICMP 034 
5A82 


ICMP 035 
4EB3 


ICMP 036 
7A82 


ICMP 038 
8D7C 


-26D0 


-26E0- 


ICMP 005 
7F71 


ICMP 006 
C4ED 


ICMP 007 
F4EB 


ICMP 008 
2E63 


ICMP 009 
A6EC 


ICMP 010 
2EC3 


ICMP Oil 
571A 


ICMP 012 
5F3A 


-26E0- 


-26F0- 
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ICMP 013 
D74E 


ICMP 014 
DF61 


ICMP 015 
3F45 


ICMP 016 
7F71 


ICMP 017 
C4D3 


ICMP 018 
F4D1 


ICMP 019 
2E63 


ICMP 02 
A6D8 


-26F0- 
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-2700- 
-2710- 
-2720- 
-2730- 
-2740- 
-2 7 50- 
-2760- 
-2770- 



KAAH 191 
C421 

KAAH 175 
3425 

KAAH 190 
8F2C 

KAAH 159 
51FF 

KAAH 167 
7F70 

LPCH 003 
1F80 

LPCH Oil 
3400 

LPCH 019 
3462 



KAAH 192 
3583 

KAAH 176 
8F3C 

KAAH 152 
E51A 

KAAH 160 
7EE2 

KAAH 168 
273B 

LPCH 004 
3485 

LPCH 012 
98EA 

LPCH 020 
C471 



KAAH 193 
2C07 

KAAH 177 
152D 

KAAH 153 
F10F 

KAAH 161 
F140 

KAAH 169 
2F07 

LPCH 005 
C158 

LPCH 013 
5555 

LPCH 021 
FFEC 



KAAH 194 
4QCF 

KAAH 178 
3433 

KAAH 154 
3E08 

KAAH 162 
2C13 

KAAH 170 
7F70 

LPCH 006 
2FG2 

LPCH 014 
152F 

LPCH 022 
3400 



KAAH 195 
AB82 

KAAH 179 
AD20 

KAAH 155 
5632 

KAAH 163 
6CF3 

KAAH 171 
3513 

LPCH 007 

D15C 

LPCH 015 
5EC2 

LPCH 023 
3AA9 



KAAQ 009 
2F25 

KAAH 187 
F401 

KAAH 156 
5664 

KAAH 164 
5070 

KAAH 172 
0E04 

LPCH 008 
2F04 

LPCH 016 
DA71 

LPCH 024 
7AF2 



KAAQ 010 
9EAA 

KAAH 188 
C010 

KAAH 157 
5EE2 

KAAH 165 
6CD1 

KAAH 173 
A0 20 

LPCH 009 
2F08 

LPCH 017 
3400 

LPCH 025 
A044 



KAAH 174 
C015 

KAAH 189 
C408 

KAAH 158 
C535 

KAAH 166 
C48B 

LPCH 002 
3462 

LPCH 010 
2507 

LPCH 018 
A5A0 



5007 



-2700- 



-2710- 



-2720- 



-2730- 



-2 740- 



-2750- 



-2 760- 



-2770- 



278- 



-2780- 


IEDT 198 


IEDT 199 


IEDT 200 


IEDT 201 


IEDT 202 


IEDT 203 


IEDT 204 


IEDT 208 


-2 780- 




2F45 


F508 


2FC3 


3F55 


7F3A 


F142 


A7A0 


0F6D 




-2790- 


IEDT 209 


IEDT 210 


IEDT 211 


IEDT 212 


IEDT 205 


IEDT 206 


IEDT 207 


IEDT 179 


-2790- 




F214 


OF 40 


E0B6 


A780 


1513 


1525 


A780 


5226 




-2 7A0- 


IEDT 180 


IEDT 181 


IEDT 182 


IEDT 183 


IEDT 184 


IEDT 185 


IEDT 186 


IEDT 187 


-27A0- 




5F30 


0F4D 


C4C5 


EilE 


2AB3 


3A45 


F230 


3A25 




-27BO- 


IEDT 188 


IEDT 189 


IE0T 190 


IEDT 191 


IEDT 192 


IEDT 193 


IEDT 194 


IEDT 195 


-27B0- 




6AF1 


C499 


F08F 


OFFD 


E09E 


C481 


7F3A 


1523 




-27CQ- 


IEDT 196 


IEDT 197 


IEDT 213 


IEDT 214 


IEDT 215 


IEDT 216 


KAAQ 034 


KAAQ 035 


-27C0- 




E521 


8D7C 


E101 


1537 


2FB3 


A786 


9FEC 


58E2 




-27D0- 


KAAQ 036 


KAAQ 037 


KAAQ 038 


KAAQ 039 


KAAQ 040 


KAAQ 041 


KAAQ 042 


KAAQ 043 


-27D0- 




5E32 


2F3B 


57F0 


57 F9 


C4E6 


DFE6 


5EB2 


3F25 




-27EO- 


KAAQ 044 


KAAQ 045 


KAAQ 046 


KAAQ 047 


KAAQ 048 


KAAQ 049 


KAAQ 050 


KAAQ 051 


-27E0- 




3FC3 


7EB2 


9FEC 


F5E7 


3E08 


021E 


2F07 


4BFF 




-27F0- 


KAAQ 052 


KAAQ 053 


KAAQ 054 


KAAQ 055 


KAAQ 056 


KAAQ 057 


KAAQ 058 


KAAQ 059 


-27F0- 




4DFF 


C1F8 


A5D0 


8390 


2F1B 


0F78 


2F 07 


A800 
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-2800- KAAA 287 
3480 

-28 10- KAAA 295 
2D15 

-2820- KAAA 303 
4BCF 

-2830- KAAA 311 
CF49 

-2840- KAAA 319 
2D13 

-2850- KBBG 021 
9B62 

-2860- KBBG 014 
8BF0 

-2870- KBBG 026 
ADOC 



KAAA 288 
518F 

KAAA 296 
2C07 

KAAA 304 
4E7F 

KAAA 312 
9B62 

KAAA 320 
4BDF 

KBBG 022 
ADOC 

KBBG 015 
E166 



5007 



KAAA 289 
3785 

KAAA 297 
4EDF 

KAAA 305 
2D25 

KAAA 313 

ADOC 

KAAA 321 
C54B 

KBBG 008 
CEE1 

KBBG 016 
A800 

MPPP 003 
0020 



KAAA 290 
7893 

KAAA 298 
4BDF 

KAAA 306 
4BDF 

KAAA 314 
2D85 

KAAA 322 
D04B 

KBBG 009 
E£DD 

KBBG 017 
C14C 

MPPP 004 
76F2 



KAAA 291 
F490 

KAAA 299 
4BCF 

KAAA 307 
4BCF 

KAAA 315 
4BDF 

KAAA 323 
82C0 

KBBG 010 
FA DO 

KBBG 018 
9ECC 

MPPP 005 
70 32 



KAAA 292 
1785 

KAAA 300 
4E9F 

KAAA 308 
4E8F 

KAAA 316 
4BCF 

KAAA 324 
A854 

KB8G Oil 
A854 

KBBG 023 
1443 

HPPP 006 
57F9 



KAAA 293 
2818 

KAAA 301 
2D 45 

KAAA 309 
0811 

KAAA 317 
2D 2 5 

KBBG 019 
C56A 

KBBG 012 
A5D0 

KBBG 024 
3585 

HPPP 007 
2E05 



KAAA 294 
18FF 

KAAA 302 
4BDF 

KAAA 310 
F486 

KAAA 318 
4EDF 

KBBG 020 
1585 

KBBG 013 
8390 

KBBG 025 
9B62 

MPPP 008 
5FE0 



-2 800- 



-2810- 



-2820- 



-2 830- 



-2 840- 



-2850- 



-2 860- 



-2870- 



288- 



-28 80- 



-2890- 



-28A0- 



-28CQ- 



-28D0- 



-28E0- 



MPPP 009 
EF2E 

HPPP 017 
1BF5 

MPPP 025 
C324 



-28B0- MPPP 032 
0FF5 



KBBC Oil 
D145 

KBBC 019 
6BC5 

KBBC 02 7 
7FDF 



-28F0- KBBC 035 
3583 



MPPP 010 
FF28 

MPPP 018 
1883 

MPPP 026 

3C85 

MPPP 033 
F086 

KBBC 012 
2CF5 

KBBC 020 
57FD 

KBBC 028 
4EBD 

KBBC 036 
3480 



MPPP Oil 
2020 

MPPP 019 
6BF5 

MPPP 027 
9208 

MPPP 034 
8D0C 

KBBC 013 
2D07 

KBBC 021 
5960 

KBBC 029 
4690 

KBBC 037 
2D25 



MPPP 012 
3F15 

MPPP 020 
E1B7 

MPPP 035 
2020 

MPPP 028 
3B13 

KBBC 014 
5718 

KBBC 022 
5 BED 

KBBC 030 
4F7D 

KBBC 038 
4 DDF 



MPPP 013 
6FF3 

MPPP 021 
1B13 

MPPP 036 
1FC3 

MPPP 029 
7A62 

KBBC 015 
5918 

KBBC 023 
10EE 

KBBC 031 
7B1A 

KBBC 039 
7242 



MPPP 014 
6FF3 

MPPP 022 
7A62 

MPPP 037 
1F35 

MPPP 030 
8D10 

KBBC 016 
5B10 

KBBC 024 
3000 

KBBC 032 
791A 

KBBC 040 
3490 



MPPP 015 
6FF3 

MPPP 023 
56C2 

MPPP 03 8 
A888 

KBBC 009 
3400 

KBBC 017 
67C5 

KBBC 025 
7EDF 

KBBC 033 
7710 

KBBC 041 
5A42 



MPPP 016 
5A62 

MPPP 024 

26B3 

MPPP 031 
FF27 

KBBC 010 
2CB5 

KBBC 018 
69C5 

KBBC 026 
76DF 

KBBC 034 
E5F9 

KBBC 042 
58F2 



CONTROL ADDRESS 
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-28A0- 

-28B0- 

-28C0- 

-28D0- 

-2 8E0- 

-28F0- 
28— 



ADDRESS LIST 
CONTROL ADDRESS 2 



DATE 11/08/68 
A C 



CL0AD**E40, EC LEVEL=1282il ,PAGE 273 
29 — 



-2900- 



-2910- 



-2920- 



-2930- 



-2940- 



-2950- 



-2960- 



-2970- 



K88C 043 
53BC 

MPRT 120 
C815 

MPRT 119 
954C 

MPRT 097 
3B83 

MPRT 105 
3C17 

JEND 161 
D85E 

JEND 169 
362 5 

JEND 177 
0D6D 



K88C 045 
A900 

MPRT 121 
9468 

MPRT 090 
0075 

MPRT 098 
DD45 

MPRT 106 

DD06 

JEND 162 
54C2 

JEND 170 
1F13 

JEND 178 
EOFA 



MPRT 125 
A650 

MPRT 122 
CE90 

MPRT 091 
E0A9 

MPRT 099 
C442 

MPRT 107 
7062 

JEND 163 
C15A 

JEND 171 
7662 

JEND 179 
ODFB 



MPRT 111 
6C05 

MPRT 123 
DE8E 

MPRT 092 
1BED 

MPRT 100 
CD42 

MPRT 108 
3C85 

JEND 164 
E358 

JEND 172 
6DF5 

JEND 180 
FOFA 



MPRT 112 
3482 

MPRT 124 
9BFE 

MPRT 093 
CD33 

MPRT 101 
54 E9 

MPRT 109 
1615 

JEND 165 
1665 

JEND 173 
7C92 

JEND 181 
2010 



MPRT 113 
0040 

MPRT 116 
D81F 

MPRT 094 
0075 

MPRT 102 
1E85 

MPRT 110 
9F24 

JEND 166 
1F43 

JEND 174 
5CF2 

JEND 182 
0204 



MPRT 114 
DE9B 

MPRT 117 
A910 

MPRT 095 
E0B2 

MPRT 103 
2E9F 

JEND 159 
5C92 

JEND 167 
1743 

JEND 175 
6CD1 



5007 



MPRT 115 
92AE 

MPRT 118 
F804 

MPRT 096 
2B75 

MPRT 104 
F4C2 

JEND 160 
5662 

JEND 168 
FB64 

JEND 176 
C4FA 

IEDT 102 
OBCB 



-2900- 



-2910- 



-2920- 



-2930- 



-2940- 



-2950- 



-2960- 



-2 970- 



298- 



-29 80- 


IEDT 103 


IEDT 104 


IEDT 105 


IEDT 106 


IEDT 107 


IEDT 108 


IEDT 133 


IEDT 134 


-2980- 




FOAA 


0B5D 


EOAA 


E5I5 


3515 


A9A0 


DF14 


0115 




-2990- 


IEDT 135 


IEDT 136 


IEDT 137 


IEDT 120 


IEDT 121 


IEDT 122 


IEDT 123 


IEDT 124 


-2990- 




3543 


1B45 


95C2 


E10D 


0121 


1D45 


3543 


3583 




-29A0- 


IEDT 125 


IEDT 126 


IEDT 127 


IEDT 128 


IEDT 129 


IEDT 109 


IEDT 110 


IEDT 111 


-2 9A0- 




7D3A 


DF27 


95C6 


D740 


957A 


OBBB 


F094 


0B5D 




-2980- 


IEDT 112 


IEDT 113 


IEDT 114 


IEDT 115 


IEDT 116 


IEDT 117 


IEDT 118 


IEDT 119 


-2 9B0- 




E094 


D73C 


C13C 


F515 


3525 


A9A0 


1525 


A9A0 




-29C0- 


IEDT 130 


IEDT 131 


IEDT 132 


IRST 164 


IRST 146 


IRST 147 


IRST 148 


IRST 149 


-29C0- 




1583 


3523 


9598 


9268 


4282 


4626 


4A60 


27EB 




-29D0- 


iRST 150 


IRST 151 


IRST 152 


IRST 153 


IRST 154 


IRST 155 


IRST 156 


IRST 157 


-29D0- 




9BE8 


6664 


D650 


42A6 


C4C7 


26E3 


27C5 


3763 




-29E0- 


CRST 158 


IRST 159 


IRST 160 


IRST 161 


IRST 162 


IRST 163 


IRST 127 


IRST 128 


-2 9EO- 




C9E5 


2820 


2610 


9BE8 


6A60 


A9F0 


3404 


FAC8 




-29F0- 


IRST 129 


IRST 130 


IRST 134 


IRST 135 


IRST 136 


IRST 137 


IRST 138 


IRST 139 


-2 9F0- 




2007 


2183 


4208 


21C5 


20E3 


4E08 


4A08 


7A42 
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-2A0O- 
-2A10- 
-2A20- 
-2A30- 
-2A-40- 
-2A50- 
-2A60- 
-2A70- 



IRST 140 
7252 

ITRP 026 
1113 

ITRP 034 
5282 

ITRP 042 
76F2 

ITRP 050 
2F08 

ITRP 058 
ACEO 

I ADD 144 

7A82 

IADD 153 
1FC5 



CRST 141 

6208 

ITRP 027 
6006 

ITRP 035 
1213 

ITRP 043 
1613 

ITRP 051 
EAC2 

IADD 129 

4FDD 

IADD 146 
E1F1 

IADD 154 
5CE9 



IRST 142 

4200 

ITRP 028 
7052 

ITRP 036 
5279 

ITRP 044 
3404 

ITRP 052 
4F6F 

IADD 130 
3D45 

IADD 147 
5C49 

IADD 155 
5DE0 



IRST 143 
72F2 

ITRP 029 
7042 

ITRP 037 
2663 

ITRP 045 
5092 

ITRP 053 
0F20 

IADD 131 
5FC0 

IADD 148 
5759 

IADD 156 
1045 



IRST 144 
2080 

ITRP 030 
3400 

ITRP 038 
C180 

ITRP 046 
3085 

ITRP 054 
EAC8 

IADD 132 
F5E2 

IADD 149 
3545 

IADD 157 
7D3A 



IRST 145 

ACEO 

ITRP 031 
5812 

ITRP 039 
2618 

ITRP 047 
7092 

ITRP 055 
1F2E 

IADD 133 
2F ID 

IADD 150 
5540 

IADD 158 
8D7C 



ITRP 024 
3444 

ITRP 032 
5£EF 

ITRP 040 
7E42 

ITRP 04 8 
26FB 

ITRP 056 
C1D1 

IADD 142 
5A82 

IADD 151 
5558 



5007 



ITRP 02 5 
IOC 5 

ITRP 033 
2F13 

ITRP 041 
5EF2 

ITRP 049 
1F2E 

ITRP 057 
ACDE 

IADD 143 
3B43 

IADD 152 
6F53 



5007 



-2A00- 



-2A10- 



-2A2 0- 



-2A30- 



-2A40- 



-2A50- 



-2A60- 



-2A70- 



2A8~ 



-2A80- 


I SAB 021 


I SAB 022 


ISAB 02 3 


ISAB 024 


ISAB 002 


ISAB 003 


ISAB 020 


ISAB 030 


-2A80- 




2020 


EE21 


FE08 


9158 


2BF5 


AAAA 


8D7C 


DD15 




-2A90- 


I SAB 031 


I SAB 032 


ISAB 033 


ISAB 034 


ISAB 035 


ISAB 036 


ISAB 02 8 


ISAB 029 


-2A90- 




GBAD 


AA96 


OBEO 


E0B8 


1B85 


AAB8 


4EBD 


AAAE 




-2AA0- 


I SAB 025 


ISAB 026 


ISAB 027 


ISAB 004 


ISAB 005 


ISAB 006 


ISAB 007 


ISAB 008 


-2AA0- 




FE29 


2BD5 


AAAA 


DE22 


2BC5 


E19D 


4FBD 


5D10 




-2AB0- 


I SAB 009 


ISAB 010 


ISAB Oil 


ISAB 012 


ISAB 013 


ISAB 014 


llAB 015 


ISAB 016 


-2AB0- 




D035 


1B45 


0B18 


F08F 


7B1A 


E18D 


D181 


2BF5 




-2AC0- 


ISA8 017 


ISAB 018 


ISAB 019 


KBBH 008 


KBBH 009 


KBBH 010 


KBBH Oil 


KBBH 012 


-2AC0- 




4F85 


2040 


AAAE 


5E32 


2F4B 


57F0 


F768 


D368 




-2AD0- 


KBBH 013 


KBBH 014 


KBBH 015 


KBBH 016 


KBBH 017 


KBBH 018 


KBBH 019 


KBBH 020 


-2AD0- 




2713 


26B5 


3613 


4F6F 


77FA 


57F0 


079B 


C4E8 




-2AE0- 


KBBH 021 


KBBH 022 


KBBH 023 


KBBH 024 


KBBH 025 


KBBH 026 


KBBH 027 


K8BH 028 


-2AE0- 




2707 


77F0 


6EE6 


57F0 


271B 


77F0 


3545 


ADOO 




-2AF0- 












INIZ 002 


INIZ 003 


INIZ 004 


-2AF0- 




5007 


5007 


5007 


5007 


5007 


2D45 


2A07 


3B89 
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-2B0CH 



-2B10- 



-2B20- 



-2B3Q- 



-2B4Q- 



-2B50- 



-2B60- 



-2B70- 



INiZ 008 
2C75 

INIZ 017 
ABOO 

INIZ 032 
58C0 

INIZ 040 

2645 

KAAQ 110 
C65A 

KAAQ 093 
3E00 

KAAQ 076 
2725 

KAAQ 084 
EF74 



INIZ 010 
5AA4 

INIZ 018 

5002 

INIZ 033 

691B 

INIZ 041 
2745 

KAAQ 111 
D65A 

KAAQ 094 
0E04 

KAAQ 077 
3583 

KAAQ 08 5 
3583 



INIZ Oil 
0D8D 

INIZ 020 
58A2 

INIZ 034 
680D 

INIZ 042 
5DA2 

KAAQ 112 
C056 

KAAQ 095 
E75B 

KAAQ 078 
2F15 

KAAQ 086 
5C82 



INIZ 012 
C49 3 

INIZ 021 
6B05 

INIZ 035 
78C8 

INIZ 043 
7618 

KAAQ 113 
FDD7 

KAAQ 096 
2F07 

KAAQ 079 
FDF3 

KAAQ 087 
4FDB 



INIZ 013 
5FC8 

INIZ 022 
78A2 

INIZ 036 

ODBD 

INIZ 044 
7D01 

KAAQ 114 
ABC2 

KAAQ 097 
9E8E 

KAAQ 080 
2F65 

KAAQ 088 
7C82 



INIZ 014 
OF 40 

INIZ 029 
2C25 

INIZ 037 
C4A0 

INIZ 045 
F4B5 

KAAQ 099 
F07 5 

KAAQ 098 
8CBA 

KAAQ 081 
E96E 

KAAQ 089 
C151 



INIZ 015 
C481 

INIZ 030 
2D15 

INIZ 03 8 
2607 

INIZ 046 
8240 

KAAQ 100 
CF73 

KAAQ 115 
D660 

KAAQ 032 
2FC5 

KAAQ 090 
6204 



INIZ 016 
7FA0 

INIZ 031 
7012 

INIZ 039 
81E6 

KAAQ 109 
F45D 

KAAQ 101 
AB74 

KAAQ 116 
ABA4 

KAAQ 083 
E04A 

KAAQ 091 
5224 



-2B00- 



-2B10- 



-2B20- 



-2B3Q- 



-2B40- 



-2B50- 



-2B60- 



-2B70- 



288- 



-2B80- 


KAAQ 092 


KAAH 105 


KAAH 106 


KAAH 107 


KAAH 108 


KAAH 109 


KAAH 110 


KAAH 111 


-2B80- 




AD20 


3490 


7A42 


2F07 


4C86 


C48E 


2F85 


50B0 




-2B90-- 


KAAH 112 


KAAH 113 


KAAH 114 


KAAH 115 


KAAH 116 


KAAH 117 


KAAH 118 


KAAH 119 


-2B90- 




OOFB 


C496 


3F45 


7F52 


3480 


5242 


5652 


C141 




-2BA0- 


KAAH 120 


KAAH 121 


KAAH 122 


KAAH 123 


KAAH 124 


KAAH 125 


KAAH 133 


KAAH 134 


-2BA0- 




D630 


F42E 


C628 


AB60 


2707 


AB64 


C63B 


8CBA 




-2BB0- 


KAAH 127 


KAAH 128 


KAAH 129 


KAAH 130 


KAAH 131 


KAAH 132 


KAAH 135 


KAAH 136 


-2BB0- 




E53D 


F427 


C02C 


C62E 


FDC2 


AD20 


C62E 


8F4C 




-2BC0- 


KAAH 126 


KAAQ Oil 


KAAQ 012 


ISTP 002 


ISTP 003 


ISTP 004 


ISTP 005 


ISTP 006 


-2BC0- 




AB3E 


2F23 


9EAA 


OOEO 


3643 


E1D7 


CBD2 


C1D7 




-2BD0- 


ISTP 007 


ISTP 008 


ISTP 009 


ISTP 010 


ISTP 012 


ISTP 013 


ISTP 014 


ISTP 015 


-2BD0- 




2080 


4486 


A3 04 


3000 


2C15 


3C43 


5FAD 


8118 




-2BE0- 


ISTP 016 


ISTP 017 


ISTP 018 


ISTP 019 


ISTP 020 


ISTP 021 


ISTP 022 


ISTP 023 


-2BE0- 




5A59 


5FA5 


8118 


5A49 


5EAD 


8118 


5AB9 


5EA5 




-2BF0- 


ISTP 024 


ISTP 025 


ISTP 026 


ISTP 027 


ISTP 028 


ISTP 029 


ISTP 03 


ISTP 031 


-2BF0- 




8118 


5E92 


3E83 


7E92 


2F05 


340 4 


2F08 


A416 
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-2C00- JTYP 179 
D18A 

-2C10- JTYP 153 
F214 

-2C20- JTYP 173 
8538 

-2C30- JTYP 159 
C499 

-2C40- JTYP 167 
5EF9 

-2C50- MLLL 032 
OFF 5 

-2C60- MLLL 038 
C4D9 

-2C70- MLLL 018 
C4D9 



JTYP 180 
35C3 

JTYP 154 

8B6E 

JTYP 174 
0E48 

JTYP 160 
E0A3 

JTYP 168 
A516 

MLLL 033 
F0F4 

MLLL 039 
AC72 

MLLL 019 
CF50 



JTYP 181 
8538 

JTYP 155 
CFAD 

JTYP 175 

F087 

JTYP 161 
D1AA 

MLLL 043 
2FF5 

MLLL 034 

2FAB 

MLLL 040 
DF44 

MLLL 020 
1FC5 



JTYP 182 
3623 

JTYP 156 
A406 

JTYP 176 
0E1B 

JTYP 162 
2F25 

MLLL 044 
3F13 

MLLL 035 
AC74 

MLLL 041 
2F45 

MLLL 022 
2E75 



JTYP 183 
D1AB 

JTYP 169 
D1AA 

JTYP 177 
F081 

JTYP 163 
3F73 

MLLL 045 
AC5E 

MLLL 030 
2B42 

MLLL 042 

AC5E 

MLLL 026 

5BE0 



JTYP 184 
3643 

JTYP 170 
E2IF 

JTYP 178 

8370 

JTYP 164 
6FE1 

MLLL 012 
EDEB 

MLLL 031 
AC4A 

MLLL 015 
5F38 

MLLL 027 
4FBF 



JTYP 185 
8538 

JTYP 171 
C9AA 

JTYP 157 
5AEF 

JTYP 165 
C4AA 

MLLL 013 
FDCA 

MLLL 036 
£865 

MLLL 016 
CC5D 

MLLL 02 8 
2B48 



JTYP 152 
DAA8 

JTYP 172 
3583 

JTYP 158 
0E3F 

JTYP 166 
2E7D 

MLLL 014 
8E02 

MLLL 037 
27FF 

MLLL 017 
OFFB 

MLLL 029 
AC4A 



-2C0O- 



-2C10- 



-2C20- 



-2C3 0- 



-2C40- 



-2C50-; 



-2C60- 



-2C70- 



2C8- 



-2C80- 

-2C90- 

-2CA0- 

-2CB0- 

-2CC0- 

-2C0Q~ 

-2CE0- 

-2CF0- 
CONTRQL ADDRESS 



MMMM 018 
5A92 

MMMM 026 
7A92 

MMMM 034 
2C05 

MMMM 037 
3A99 

IDIS 012 
2CF7 

IDfS 020 
4426 

IDIS 028 
3633 

IDIS 036 
5222 



MMMM 019 
2B05 

MMMM 027 
F92E 

MMMM 035 
A638 

MMMM 03 8 
5AB9 

IDIS 013 

5CD9 

IDIS 021 
A3 04 

IDIS 029 
1643 

IDIS 037 
ABCE 



MMMM 020 
7A92 

MMMM 028 
5E62 

MMMM 043 
5EC2 

MMMM 039 
7AF2 

IDIS 01% 
€648 

IDIS 022 
7E52 

IDIS 030 
0040 



5007 



MMMM 021 
CCOA 

MMMM 029 
3£45 

MMMM 044 
CE1C 

MMMM 040 
021E 

IDIS 015 
7C42 

IDIS 023 
E65F 

IDIS 031 
ffF2 



5007 



MMMM 02 2 
D900 

MMMM 030 
7E62 

MMMM 045 
0AE3 

MMMM 041 
2C05 

IDIS 016 
F650 

IDIS 024 
4406 

IDIS 032 
0F02 



5007 



MMMM 023 
FD12 

MMMM 031 
DD31 

MMMM 046 
F09D 

MMMM 042 
ACBC 

IDIS 017 
7C52 

IDIS 025 
A3 04 

IDIS 033 
54E2 



5007 



MMMM 024 
5A92 

MMMM 032 
3400 

MMMM 047 
8B78 

IDIS 010 
3404 

IDIS 018 
E65F 

IDIS 026 
7E42 

IDIS 034 
C170 



5007 



MMMM 02 5 
3A13 

MMMM 033 
021E 

MMMM 036 
DD24 

IDIS Oil 
74E2 

IDIS 019 
F657 

IDIS 027 
0080 

IDIS 035 
7252 



5007 



-2C80- 

-2C90- 

-2CA0- 

-2CB0- 

-2CC0- 

-2CD0- 

-2CE0- 

-2CF0- 
2C — 



ADDRESS LIST 
CONTROL ADDRESS 2 



DATE li/08/68 
A C 



CLOAD-*E40, EC LEVEL=128211 ,PAGE 277 
2D — 



-2DC0- 



•2D10- 



-2D20- 



-2D30- 



-2D40- 



-2D50- 



-2060- 



-2D70- 



KAAF 036 
DFAC 

KAAF 014 
E08E 

KAAF 022 
2717 

KAAF 030 
2953 

JDTA 051 
2802 

JDTA 038 
517B 

I ADD 104 
3FB5 

IAOD 118 
2007 



KAAF 037 
C52C 

KAAF 015 
3480 

KAAF 023 
272D 

KAAF 031 
5A32 

JDTA 052 

0D04 

JDTA 039 
AD58 

IADD 105 
7F3A 

I ADO 119 
55BD 



KAAF 038 
A7CE 

KAAF 016 
220E 

KAAF 024 
4F7F 

KAAF 032 
AD34 

JDTA 053 
0240 

JDTA 044 
1623 

IADD 106 
F5E8 

IADD 120 
7 DBF 



KAAF 035 
AAC6 

KAAF 017 
0EO4 

KAAF 025 
3D00 

JDTA 040 
F257 

JDTA 033 
E255 

JDTA 045 
5173 

IADD 107 
8D7C 

IADD 121 
45DB 



KAAF 033 
C521 

KAAF 018 
0340 

KAAF 026 
3485 

JDTA 041 
3623 

JDTA 034 
5538 

JDTA 046 
6571 

IADD 113 
5222 

IADD 122 

D57F 



KAAF 034 
A728 

KAAF 019 
DUE 

KAAF 027 
D407 

JDTA 042 
4F0F 

JDTA 035 
05FB 

JDTA 047 
4F5F 

IADD 115 
5530 

IADD 123 
7D3A 



KAAF 012 
3462 

KAAF 020 
2340 

KAAF 02 8 
3490 

JDTA 043 
AD5C 

JDTA 036 
C4BF , 

JDTA 048 
2B48 

IADD 116 
151D 

IADD 124 
8D7C 



KAAF 013 
0435 

KAAF 021 
F109 

KAAF 029 
2 807 

JDTA 050 
2B00 

JDTA 037 
D536 

JDTA 049 
0240 

IADD 117 
2002 

IADD 125 
7D3A 



-2D00- 
-2010- 
-2D20- 
-2D30- 
-2D40- 
-2D50- 
-2D60- 
-2D70- 



2D8- 



-2D80- 


IADD 126 


IADD 127 


IMEM 002 


IMEM 003 


IMEM 004 


IMEM 005 


IMEM 006 


IMEM 007 


-2D80- 




5530 


AD70 


2400 


3779 


2E07 


5A02 


5AA6 


77B8 




-2D90- 


IMEM 008 


IMEM 009 


IMEM 010 


IMEM Oil 


IMEM 012 


IMEM 013 


IMEM 014 


IMEM 015 


-2D90- 




2745 


5DA2 


7 DAI 


F4A2 


5FB8 


3F45 


55E0 


D50D 




-2DA0- 


IMEM 016 


IMEM 017 


IMEM 018 


IMVZ 004 


IMVZ 005 


IMVZ 006 


IMVZ 007 


IMVZ 008 


-2DA0- 




D512 


3400 


128E 


5D1A 


5D79 


3D45 


5BC0 


5030 




-2DB0- 


IMVZ 009 


IMVZ 010 


IMVZ Oil 


IMVZ 012 


IMVZ 013 


IMVZ 014 


IMVZ 015 


IMVZ 016 


-2DB0- 




5D49 


3D45 


5DC0 


F13C 


4BDB 


ADBE 


4BDD 


5BC0 




-2DC0- 


IMVZ 017 


IMVZ 018 


IMVZ 019 


IMVZ 020 


MPRT 393 


MPRT 386 


MPRT 387 


MPRT 388 


-2DC0- 




0445 


IB45 


7B3A 


8D7C 


8D7C 


CICE 


91F2 


5E92 




-2D00- 


MPRT 389 


MPRT 390 


MPRT 391 


MPRT 392 


MPRT 377 


MPRT 378 


MPRT 379 


MPRT 380 


-2DD0- 




FA48 


1E13 


7 £92 


9E72 


0080 


8216 


5E62 


DA4B 




-2DE0- 


MPRT 381 


MPRT 382 


MPRT 383 


MPRT 384 


MPRT 385 








-2DE0- 




CA4A 


3482 


2040 


4CE6 


A914 


5007 


5007 


5007 




-2DF0- 














INTP 150 


INTP 151 


-2DF0- 




5007 


5007 


5007 


5007 


5007 


5007 


2C05 


5AE3 




CONTROL ADDRESS 


















20 — 



ADDRESS LIST 

CONTROL ADDRESS 2 



DATE 11/08/68 
A C 



CL0AD=*E40, EC LEVEL=123211 f PAGE 278 
2E — 



-2EC0- INTP 152 
E084 

-2E 10- INTP 160 
8E82 

-2E20- JTYP 255 
3F15 

-2E30- JTYP 218 
A416 

-2E4-0* LSSO 002 
5709 

-2E50- LSSO 010 
5ECF 

-2E60- IMRC 015 
3745 

-2E70- IMRC 007 
07FB 



INTP 153 
3E13 

INTP 161 
4FBD 

JTYP 256 
***** 

JTYP 247 
7222 

LSSO 003 
50G0 

LSSO Oil 
EC5D 

IMRC 016 
DF67 

IMRC 008 
C4E1 



INTP 154 
5AD5 

INTP 162 
2DA3 

JTYP 257 
16DB 

JTYP 248 
4EC6 

LSSO 004 
5DB9 

LSSO 012 
E958 

IMRC 017 
1745 

IMRC 009 
3745 



INTP 155 
3D85 

INTP 163 
3DB5 

JTYP 258 
E23B 

JTYP 249 
CI 3D 

LSSO 005 
EO DC 

LSSO 013 
2 BO 2 

IMRC 018 
7738 

IMRC 010 

07ED 



INTP 156 
7CE2 

INTP 164 
5FC8 

JTYP 259 

A406 

JTYP 250 
A396 

LSSO 006 
7C52 

LSSO 014 
F95C 

IMRC 019 
8D7C 

IMRC Oil 
C4EI 



INTP 157 

5BC0 

INTP 165 
4B6D 

JTYP 215 
7CE2 

JTYP 251 
A412 

LSSO 007 
2206 

LSSO 015 
2B04 

IMRC 004 
7738 

IMRC 012 
DF6B 



INTP 158 
0E4D 

INTP 166 
8E76 

JTYP 216 
4FFF 

JTYP 252 
42C6 

LSSO 008 
5C52 

LSSO 016 
0216 

IMRC 005 
5718 

IMRC 013 
1745 



INTP 159 
E092 

JTYP 254 
2F53 

JTYP 217 
El 33 

JTYP 253 
A 41 2 

LSSO 009 
65D5 

LSSO 017 
A5B0 

IMRC 006 
5F30 

IMRC 014 
AE6A 



-2E00- 



-2E10- 



-2€2 0~ 



-2E30- 



-2E40- 



-2E50- 



-2E60- 



-2E70- 



2E8- 



-2E80^ 



- 2E90- 



MDDO 01 9 
2A43 

MDDD 026 
2848 



MDDD 020 
4FAF 

MDDD 027 
ED92 



MDDD 021 
2B42 

MDDD 028 
5FDF 



MDDD 022 
FD86 

MDDD 029 
2B48 



MODD 023 
5FDF 

MDDD 030 
FD98 



MDDD 024 
FD10 

MODD 031 
2B08 



MDDD 02 5 
8F1A 

MDDD 032 
C20E 



MDDD 055 
9286 

MDDD 033 
AC 80 



-2E80- 
-2E90- 



ADDRESS LIST 
AUX STORAGE 2 



DATE 11/08/68 
A C 



CL0AD=*£40 f EC LEVEL=1282il f PAGE 279 
00— 



-OOGG- MZZZ 005 
40F1 

-0010- MZZZ 006 
7A61 

-0020- MZZZ 007 

60D1 

-0030- MZZZ. 008 
50C1 

-0040- MZZZ 009 
0040 

-0050- MZZZ 010 
3040 

-0060- MZZZ Oil 
2011 

-0070- MZZZ 012 
4A70 



MZZZ 005 
F2F3 

MZZZ 006 
E2E3 

MZZZ 007 
0203 

MZZZ 008 
C2C3 

MZZZ 009 
4040 

MZZZ 010 
4040 

MZZZ Oil 
5240 

MZZZ 012 
4040 



MZZZ 005 
F4F5 

MZZZ 006 
E4E5 

MZZZ 007 

D4D5 

MZZZ 008 
C4C5 

MZZZ 009 
4040 

MZZZ 010 
4040 

MZZZ Oil 
4040 

MZZZ 012 

4040 



MZZZ 005 
F6F7 

MZZZ 006 
E6E7 

MZZZ 007 
D6D7 

MZZZ 008 
C6C7 

MZZZ 009 
4040 

MZZZ 010 
4040 

MZZZ Oil 
4040 

MZZZ 012 
4040 



MZZZ 005 
F8F9 

MZZZ 006 
E8E9 

MZZZ 007 

D8D9 

MZZZ 008 
C8C9 

MZZZ 009 
4040 

MZZZ 010 
4040 

MZZZ Oil 
4040 

MZZZ 012 
4040 



MZZZ 005 
F07B 

MZZZ 006 
E06B 

MZZZ 007 
D05B 

MZZZ 008 
C048 

MZZZ 009 
403B 

MZZZ 010 
402B 

MZZZ Oil 
40 IB 

MZZZ 012 
100B 



MZZZ 005 

7C7D 

MZZZ 006 
6C6D 

MZZZ 007 
5C5D 

MZZZ 008 
4C4D 

MZZZ 009 
3C3D 

MZZZ 010 
2C2D 

MZZZ Oil 
1C1D 

MZZZ 012 

OCOD 



MZZZ 005 
7E7F 

MZZZ 006 
6E6F 

MZZZ 007 
5E5F 

MZZZ 008 
4E4F 

MZZZ 009 
3E3F 

MZZZ 010 
2E2F 

MZZZ Oil 
1E1F 

MZZZ 012 
OEOF 



-0000- 



-0010- 



-0020- 



-0030- 



-0040- 



-0050- 



-0060- 



-0070- 



008- 



-0080- 



-0090- 



-OOAO- 



-OOCO- 



-OODO- 



-OOEO- 



MZZZ 014 
08CO 

MZZZ 018 
0000 

MZZZ 020 
0081 



-0080- MZZZ 024 
0000 



-OOFO- 
AUX STORAGE 



MZZZ 025 
3A31 

MZZZ 026 
2A21 

MZZZ 027 
1A51 

MZZZ 028 
0A01 



MZZZ 014 

C1C2 

MZZZ 018 
0000 

MZZZ 020 
0240 

MZZZ 024 

0000 

MZZZ 025 
3233 

MZZZ 026 
2223 

MZZZ 027 
1213 

MZZZ 028 
0203 



MZZZ 014 
C3C4 

MZZZ 018 
0000 

MZZZ 020 
0420 

MZZZ 024 

0000 

MZZZ 025 
3435 

MZZZ 026 
2425 

MZZZ 027 
1415 

MZZZ 028 
0405 



MZZZ 014 
C540 

MZZZ 018 
0004 

MZZZ 020 
0610 

MZZZ 024 
0800 

MZZZ 025 
3637 

MZZZ 026 
2627 

MZZZ 027 
1617 

MZZZ 028 
0607 



MZZZ 014 
0180 

MZZZ 018 
0000 

MZZZ 020 
0000 

MZZZ 024 
E800 

MZZZ 025 
3839 

MZZZ 026 
2829 

MZZZ 027 
1819 

MZZZ 028 
0809 



MZZZ 014 
0000 

MZZZ 018 
0000 

MZZZ 020 
8000 

MZZZ 024 
FFOO 

MZZZ 025 
4040 

MZZZ 026 
4040 

MZZZ 027 
4040 

MZZZ 028 
4040 



MZZZ 014 
0000 

MZZZ 018 
8E00 

MZZZ 020 
3F00 

MZZZ 024 
0000 

MZZZ 025 
4048 

MZZZ 026 

4040 

MZZZ 027 
4049 

MZZZ 028 
4040 



MZZZ 014 

0000 

MZZZ 018 
OAOO 

MZZZ 020 
0000 

MZZZ 024 
0000 

MZZZ 025 
455C 

MZZZ 026 
465D 

MZZZ 027 

4F56 

MZZZ 028 
445F 



-0080- 

-0090- 

-OOAO- 

-OOBO- 

-OOCO- 

-OODO- 

-OOEO- 

-OOFO- 
00 — 



ADORE SS LIST 
AUX STORAGE 2 



DATE li/08/68 
A C 
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-2000- 
-2010- 
-2020- 
-2030- 
-2040- 
-2050- 
-2060- 
-2070- 



MZZZ 033 
000 A 

MZZZ 034 
0059 

MZZZ 035 
005E 

MZZZ 036 
0063 

MZZZ 037 
0000 

MZZZ 038 
0000 

MZZZ 039 
0000 

MZZZ 040 

0000 



MZZZ 033 
141E 

MZZZ 034 
0000 

MZZZ 035 
0000 

MZZZ 036 
0000 

MZZZ 037 

0000 

MZZZ 038 

0000 

MZZZ 039 

0000 

MZZZ 040 

0000 



MZZZ 033 
2832 

MZZZ 034 

0000 

MZZZ 035 
0000 

MZZZ 036 
0000 

MZZZ 037 
0000 

MZZZ 038 
0000 

MZZZ 039 
0000 

MZZZ 040 
0000 



MZZZ 033 
3C46 

MZZZ 034 
044C 

MZZZ 035 

0000 

MZZZ 036 
0000 

MZZZ 037 
0000 

MZZZ 038 
0000 

MZZZ 039 
0000 

MZZZ 040 
0000 



MZZZ 033 
505A 

MZZZ 034 
08B8 

MZZZ 035 
0C1C 

MZZZ 036 
0C80 

MZZZ 037 

0CE4 

MZZZ 038 

0D48 

MZZZ 039 

OQAC 

MZZZ 040 

OEIO 



MZZZ 033 
0101 

MZZZ 034 

07D0 

MZZZ 035 
0834 

MZZZ 036 
0898 

MZZZ 037 
08FC 

MZZZ 038 
0960 

MZZZ 039 
09C4 

MZZZ 040 
0A28 



MZZZ 033 
OlOi 

MZZZ 034 
03E8 

MZZZ 035 
044C 

MZZZ 036 
0480 

MZZZ 03 7 
0514 

MZZZ 03 8 
0578 

MZZZ 039 
05DC 

MZZZ 040 
0640 



MZZZ 033 
0101 

MZZZ 034 
0000 

MZZZ 035 
0064 

MZZZ 036 
00C8 

MZZZ 037 
01 2C 

MZZZ 038 
0190 

MZZZ 039 
01F4 

MZZZ 040 
02 58 



-2000- 



-2010- 



-2020- 



-2 030- 



-2 040- 



-2050- 



-2060- 



-2070- 



208- 



-2080- 

-2090- 

-20A0- 

-2080- 

-20CO- 

-206O- 

-20£0^ 

-20F0- 
AUX STORAGE 



MZZZ 041 
0000 

MZZZ 042 
0000 

MZZZ 043 
0000 

MZZZ 044 
0016 

MZZZ 045 
1C18 

MZZZ 046 
1034 

MZZZ 047 
3405 

MZZZ 048 
3421 



MZZZ 041 
0000 

MZZZ 042 
0000 

MZZZ 043 
0000 

MZZZ 044 
3248 

MZZZ 045 
08 IF 

MZZZ 046 
2990 

MZZZ 047 
1934 

MZZZ 048 
2223 



MZZZ 041 
0000 

MZZZ 042 
0000 

MZZZ 043 
0000 

MZZZ 044 
6480 

MZZZ 045 
1216 

MZZZ 046 
8006 

MZZZ 047 
200E 

MZZZ 048 
2425 



MZZZ 041 
0000 

MZZZ 042 
0000 

MZZZ 043 

0000 

MZZZ 044 
9611 

MZZZ 045 
2 A3 4 

MZZZ 046 
341E 

MZZZ 047 
0F34 

MZZZ 048 
2627 



MZZZ 041 

0E74 

MZZZ 042 

0ED8 

MZZZ 043 
0F3C 

MZZZ 044 
2844 

MZZZ 045 
8134 

MZZZ 046 
F134 

MZZZ 047 
1317 

MZZZ 048 
0606 



MZZZ 041 
0A8C 

MZZZ 042 
OAFO 

MZZZ 043 
0854 

MZZZ 044 
6076 

MZZZ 045 
3402 

MZZZ 046 
3434 

MZZZ 047 
3404 

MZZZ 048 
3414 



MZZZ 041 
06A4 

MZZZ 042 
0708 

MZZZ 043 
076C 

MZZZ 044 
9207 

MZZZ 045 
1534 

MZZZ 046 
3434 

MZZZ 047 
1834 

MZZZ 048 
1A34 



MZZZ 041 
02BC 

MZZZ 042 

0320 

MZZZ 043 
0384 

MZZZ 044 
2339 

MZZZ 045 
3434 

MZZZ 046 
3434 

MZZZ 047 
3434 

MZZZ 048 
3434 



-2080- 
-2 090- 
-20A0- 
-20B0- 

-20C0- 

-2 0D0- 

-20E0- 

-20F0- 
20— 



ADDRESS LIS? 

AUX STORAGE 2 



DATE 11/08/68 
A C 



CLQAD=*E40, EC LEVEL=1282 11 , PAGE 281 
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-50 00- 



-5010- 



-5020- 



-5030- 



-5040- 



-50 50- 



-5060- 



-5070- 



MZZZ 053 
0000 

MZZZ 054 
0000 

Hill 055 

0032 

Hill 056 
8000 

Hill 057 
F900 

MZZZ 058 
D900 

MZZZ 059 
C900 

MZZZ 060 
0005 



MZZZ 053 
0000 

MZZZ 054 
0000 

MZZZ 055 

0A3C 

MZZZ 056 
0801 

MZZZ 057 
0000 

MZZZ 058 
0000 

MZZZ 059 
0000 

MZZZ 060 
0106 



MZZZ 053 
0000 

MZZZ 054 
0000 

MZZZ 055 
1446 

MZZZ 056 
0002 

MZZZ 057 
0000 

MZZZ 058 
0000 

MZZZ 059 

0000 

MZZZ 060 
0207 



MZZZ 053 
0000 

MZZZ 054 

0000 

MZZZ 055 
IE50 

MZZZ 056 
0440 

MZZZ 057 
0000 

MZZZ 058 
0000 

MZZZ 059 
0000 

MZZZ 60 
0308 



MZZZ 053 
0000 

MZZZ 054 
0000 

MZZZ 055 
285A 

MZZZ 056 

5060 

MZZZ 057 
E900 

MZZZ 058 

0000 

MZZZ 059 
0000 

MZZZ 060 
0409 



MZZZ 053 

0000 

MZZZ 054 
0000 

MZZZ 055 
0000 

MZZZ 056 
0000 

MZZZ 057 
0000 

MZZZ 058 
0000 

MZZZ 059 
0000 

MZZZ 060 
0000 



MZZZ 053 
0000 

MZZZ 054 
0000 

MZZZ 055 
0000 

MZZZ 056 
OCOO 

MZZZ 057 
0000 

MZZZ 058 
0000 

MZZZ 059 
0000 

MZZZ 060 
0000 



MZZZ 053 
0000 

MZZZ 054 
0000 

MZZZ 055 
0000 

MZZZ 056 
0000 

MZZZ 057 
0000 

MZZZ 058 
0000 

MZZZ 059 
0000 

MZZZ 060 
0000 



-5000- 



-5010- 



-5 020- 



-5030- 



-5040- 



-5 050- 



-5060- 



-5070- 



-5080- 



MZZZ 061 
F800 



-50 90- MZZZ 062 
D800 



-50A0- 



-50B0- 



-50C0- 



MZZZ 063 
C800 

MZZZ 064 
0003 

MZZZ 065 
40F1 



-50D0- MZZZ 066 
60D1 

-50E0- MZZZ 067 
50C1 

-50F0- 

AUX STORAGE 



MZZZ 061 
7A7B 

MZZZ 062 
005B 

MZZZ 063 
004B 

MZZZ 064 
0230 

MZZZ 065 
F2F3 

MZZZ 066 

D2D3 

MZZZ 067 
C2C3 



MZZZ 061 
7C70 

MZZZ 062 
5C5D 

MZZZ 063 
4C4D 

MZZZ 064 
0130 

MZZZ 065 
F4F5 

MZZZ 066 
D4D5 

MZZZ 067 
C4C5 



508- 

MZZZ 061 
7E7F 

MZZZ 062 
5E5F 

MZZZ 063 
4E4F 

MZZZ 064 
3030 

MZZZ 065 
F6F7 

MZZZ 066 
D6D7 

MZZZ 067 
C6C7 



MZZZ 061 
E800 

MZZZ 062 
0000 

MZZZ 063 
0000 

MZZZ 064 

0030 

MZZZ 065 
F061 

MZZZ 066 
DO 00 

MZZZ 067 

COOO 



MZZZ 061 
E06B 

MZZZ 062 
0000 

MZZZ 063 
0000 

MZZZ 064 
3030 

MZZZ 065 
E2E3 

MZZZ 066 
0000 

MZZZ 067 
0000 



MZZZ 061 
6C6D 

MZZZ 062 
0000 

MZZZ 063 
0000 

MZZZ 064 
3030 

MZZZ 065 
E4E5 

MZZZ 066 
0000 

MZZZ 067 
0000 



MZZZ 061 
6E6F 

MZZZ 062 
0000 

MZZZ 063 
0000 

MZZZ 064 
3030 

MZZZ 065 
E6E7 

MZZZ 066 
0000 

MZZZ 067 

0000 



-5080- 

-5090- 

-50A0- 

-50B0- 

-50C0- 

-50D0- 

-50E0- 

-50F0- 
50— 



ADDRESS LIST 
AUX STORAGE 2 



DATE ii/08/68 
A C 
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-60C0- 



-6010- 



-6020- 



-6030- 



-6040- 



-6050- 



-6060- 



-6070- 



MZZZ 078 
407E 

MZZZ 079 
7C61 

MZZZ 080 
'6001 

MZZZ 081 
50CI 

MZZZ 082 
0000 

MZZZ 083 
8000 

MZZZ 084 

4021 

MZZZ 085 
0000 



MZZZ 078 

4C5E 

MZZZ 079 

E2E3 

MZZZ 080 
D2D3 

MZZZ 081 
C2C3 

MZZZ 082 
0000 

MZZZ 083 
0000 

MZZZ 084 
0000 

MZZZ 085 
0000 



MZZZ 078 
7A6C 

MZZZ 079 
E4E5 

MZZZ 080 
0405 

MZZZ 081 
C4C5 

MZZZ 082 

0000 

MZZZ 083 
0000 

MZZZ 084 
0000 

MZZZ 085 
0000 



MZZZ 078 

706 E 

MZZZ 79 
E6E7 

MZZZ 080 
06 07 

MZZZ 081 
C6C7 

MZZZ 082 
0000 

MZZZ 083 
0000 

MZZZ 084 
0000 

MZZZ 085 
0000 



MZZZ 078 

5C4D 

MZZZ 079 
E8E9 

MZZZ 080 
D809 

MZZZ 081 
C8C9 

MZZZ 082 
0000 

MZZZ 083 
0000 

MZZZ 084 
0000 

MZZZ 085 

0000 



MZZZ 078 
5D7B 

MZZZ 079 
0068 

MZZZ 080 
6D5B 

MZZZ 081 
4E4B 

MZZZ 082 
0093 

MZZZ 083 
0053 

MZZZ 084 
0033 

MZZZ 085 
2013 



MZZZ 078 
7F40 

MZZZ 079 
4F6C 

MZZZ 080 
007C 

MZZZ 081 
5F4C 

MZZZ 082 
9495 

MZZZ 083 
5455 

MZZZ 084 
3435 

MZZZ 085 
1415 



MZZZ 078 
406F 

MZZZ 079 
EEEO 

MZZZ 080 
7BO0 

MZZZ 081 
40C0 

MZZZ 082 
9697 

MZZZ 083 
5657 

MZZZ 084 
3637 

MZZZ 085 
1617 



-6 000- 



-6010- 



-6020- 



-6030- 



-6040- 



-6050- 



-6060- 



-6070- 



608- 



-6080- MZZZ 086 
8000 



-6090- 



-60AO- 



MZZZ 087 
0000 

MZZZ 088 
0000 



-6dB0- MZZZ 089 
0000 



-60C0- 

-60D0- 

-60E0- 

-60F0- 
AUX STORAGE 



MZZZ 090 
A 081 

MZZZ 091 
6041 

MZZZ 098 
3200 

MZZZ 100 
2 001 



MZZZ 086 
4000 

MZZZ 087 
0000 

MZZZ 088 
0000 

MZZZ 089 

0000 

MZZZ 090 
8283 

MZZZ 091 
4243 

MZZZ 098 
2223 

MZZZ 100 
0203 



MZZZ 086 
2000 

MZZZ 087 
0000 

MZZZ 088 
0000 

MZZZ 089 
0000 

MZZZ 090 
84B5 

MZZZ 091 
4445 

MZZZ 098 
2425 

MZZZ 100 
0405 



MZZZ 086 

1000 

MZZZ 087 
0000 

MZZZ 88 
0000 

MZZZ 089 

0000 

MZZZ 090 

8687 

MZZZ 091 
4647 

MZZZ 098 
2627 

MZZZ 100 

0607 



MZZZ 086 
0800 

MZZZ 087 
0000 

MZZZ 088 
0000 

MZZZ 089 

0000 

MZZZ 090 
9088 

MZZZ 091 
5048 

MZZZ 098 
3028 

MZZZ 100 
1008 



MZZZ 086 
0400 

MZZZ 087 
0000 

MZZZ 088 
0000 

MZZZ 089 
0000 

MZZZ 090 
0000 

MZZZ 091 
0000 

MZZZ 098 
0000 

MZZZ 100 

0000 



MZZZ 086 
0200 

MZZZ 087 
0000 

MZZZ 088 
0000 



*h 



Z 089 
0000 



MZZZ 090 
0000 

MZZZ 091 
0000 

MZZZ 098 
0000 

MZZZ 100 
0000 



MZZZ 086 
0100 

MZZZ 087 
0000 

MZZZ 088 
0000 

MZZZ 089 
0000 

MZZZ 090 
0000 

MZZZ 091 
0000 

MZZZ 098 
0000 

MZZZ 100 
0000 



-6080- 

-6090- 

-60A0- 

-60B0- 

-60C0- 

-6000- 

-60E0- 

-60F0- 
60 — 
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-7000- MZZZ Hi 
4EC1 

-7010- MZZZ 112 
7DD1 

-7020- MZZZ 113 
7€6i 

-7030- MZZZ 114 
F0F1 

-7040- MZZZ 115 
4040 

-7050- MZZZ 116 
4040 

-7060- MZZZ 117 
4040 

-7070- MZZZ 118 
4040 



MZZZ 111 
C2C3 

MZZZ 112 
D2D3 

MZZZ 113 
E2E3 

MZZZ 114 
F2F3 

MZZZ 115 
4040 

MZZZ 116 
4040 

MZZZ 117 
4040 

MZZZ 118 
4040 



MZZZ 111 
C4C5 

MZZZ 112 
D4D5 

MZZZ 113 
E4E5 

MZZZ 114 
F4F5 

MZZZ 115 
4040 

MZZZ 116 
4040 

MZZZ 117 
4040 

MZZZ 118 
4040 



MZZZ 111 
C6C7 

MZZZ 112 
D607 

MZZZ 113 
E6E7 

MZZZ 114 
F6F7 

MZZZ 115 
4040 

MZZZ 116 
4040 

MZZZ 117 
4040 

MZZZ 118 
4040 



MZZZ 111 
C8C9 

MZZZ 112 
08 D9 

MZZZ 113 

E8E9 

MZZZ 114 
F8F9 

MZZZ 115 
4040 

MZZZ 116 
4040 

MZZZ 117 
4040 

MZZZ 118 
4040 



MZZZ 111 
404 B 

MZZZ 112 
5058 

MZZZ 113 

606 8 

MZZZ 114 
407B 

MZZZ 115 
404 

MZZZ 116 
4040 

MZZZ 117 
4040 

MZZZ 118 
4040 



MZZZ 111 
4C40 

MZZZ 112 
5C40 

MZZZ 113 
6C40 

MZZZ 114 
7C40 

MZZZ 115 
4040 

MZZZ 116 
4040 

MZZZ 117 
4040 

MZZZ 118 
4040 



MZZZ 111 
4040 

MZZZ 112 
4040 

MZZZ 113 

4040 

MZZZ 114 

4040 

MZZZ 115 
4040 

MZZZ 116 
4040 

MZZZ 117 
4040 

MZZZ 118 
4040 



-7000- 



-7010- 



-702 0- 



-7030- 



-7040- 



-7050- 



-7060- 



-7070- 



-7080- 



-7090- 



-7GA0- 



-7OB0- 



-70C0- 



-70D0- 



-70E0- 



-70F0- 



MZZZ 119 
0000 

MZZZ 120 
7C00 

MZZZ 121 
5061 

MZZZ 122 
0000 

MZZZ 123 
1625 

MZZZ 124 
2219 

MZZZ 125 
2E00 

MZZZ 126 

0A01 



MZZZ 119 
004B 

MZZZ 120 
005B 

MZZZ 121 
0Q6B 

MZZZ 122 

5FD6 

MZZZ 123 
2627 

MZZZ 124 
1A1B 

MZZZ 125 
OEOF 

MZZZ 126 
0203 



MZZZ 119 
C57F 

MZZZ 120 
7D4F 

MZZZ 121 
E56E 

MZZZ 122 
D55E 

MZZZ 123 
2829 

MZZZ 124 
1C10 

MZZZ 125 
1011 

MZZZ 126 
0405 



708- 

MZZZ 119 
C67A 

MZZZ 120 
4C4A 

MZZZ 121 
5C6D 

MZZZ 122 
4D7E 

MZZZ 123 
2A2B 

MZZZ 124 
1E1F 

MZZZ 125 
1213 

MZZZ 126 
0607 



MZZZ 119 
0000 

MZZZ 120 
7C00 

MZZZ 121 
5061 

MZZZ 122 
0000 

MZZZ 123 
2C2D 

MZZZ 124 
20 21 

MZZZ 125 
1415 

MZZZ 126 
0809 



MZZZ 119 
004B 

MZZZ 120 
005B 

MZZZ 121 
006B 

MZZZ 122 
5F7B 

MZZZ 123 
002F 

MZZZ 124 
1623 

MZZZ 125 
2217 

MZZZ 126 
260B 



MZZZ 119 
4E7F 

MZZZ 120 
7D4F 

MZZZ 121 
5D6E 

MZZZ 122 
60 5E 

MZZZ 123 
3000 

MZZZ 124 
2400 

MZZZ 125 
1800 

MZZZ 126 
OC 00 



MZZZ 119 
6C7A 

MZZZ 120 
4C4A 

MZZZ 121 

5C6D 

MZZZ 122 
4D7E 

MZZZ 123 
0000 

MZZZ 124 
0000 

MZZZ 125 
0000 

MZZZ 126 
0000 



-7080- 



-7090- 



-70AO- 



-70B0- 



-70C0- 



-7 0D0- 



-70E0- 



-70F0- 



THERE ARE NO DUPLICATE ASSIGNMENTS IN THIS RUN. 



PacfC Zgy 



p. 



I ?e .x- 



MAS/ 

MAS/MAS/MAS/ 

MAS/ MAS/MAS/MAS /MAS/ 

MAS/ MAS/ MAS/HAS/MAS/HAS/MAS/ 

MAS/ MAS/ MAS /MAS/ MAS/MAS/MAS/MAS/MAS/ 

MAS/ MAS/ MAS/ MAS /MAS/ MAS/MAS/MAS/MAS/MAS/MAS/ 

MAS/ MAS/ HAS/ MAS/ MAS/MAS /MAS/MAS/MAS/MAS /MAS/MAS/MAS/ 

MAS/ MAS/ MAS/ MAS/ MAS/ MAS/ MAS/ MAS/MAS/MAS/MAS /MAS/MAS/MAS/MAS/ 

MAS/ MAS/ MAS/MAS/ MAS /MAS/ MAS/ MAS/ MAS /MAS/MAS /MAS /MAS/MAS/MAS /MAS/MAS/ 

MAS/MAS/ MAS/MAS/ MAS/ MAS/ MAS/ MAS/ MAS/ MAS/ M AS/MAS /MAS/M A S/MAS/MA S/MAS/MA S/MA S/ 

MAS/MAS/MAS/ MAS/ MAS/ MAS/ MAS/ MAS/MAS/ MAS/ MAS/MAS/MAS/MAS /MAS/MAS /MAS /MAS/MAS/MAS/MAS/ 

MAS /MAS/MAS /MAS/ MAS/ MAS/ MAS/ MAS/ MAS /MAS /MAS/ MAS/M AS/MAS /MAS /MAS/MAS/MAS/ MAS/MAS/MAS/MAS/MAS/ 

MA S/MA S/MA S/MA S/MA S/MA S/ MAS/ MAS /MAS/ MAS/ MAS/ MAS/ MAS/M A S/M AS/MAS/MAS/MA S/MA S/MA S/MA S/MA S/MA S/MA S/MA S/ 

MAS/M AS/MAS/MAS/MAS/ MAS/ MAS/ MAS/ MAS/ MAS/ MAS/ MAS /MAS/ MAS /MAS/M AS /MAS/M AS/MAS/MAS/MAS/MAS /MAS/MAS/MAS/ MAS/MAS/ 

MA S/M A S/MA S/MA S/M AS/ MAS/ MAS/ MAS/ MAS /MAS/ MAS /MAS /MAS /MAS/MAS/MAS/MAS /MAS/MAS/MAS/MAS/MAS/MAS/MAS/ MAS/ MAS/ MAS/ 

MA S/MA S/MA S/M AS/MAS/ MAS/ MAS/MAS /MAS/ MAS/MAS/ MAS /MAS/MAS/MAS/MAS /MAS/MA S/MA S/MA S/MA S/MA S/MA S/MA S/MA S/ 

MA S/MAS/M AS /MAS/ MAS/ MAS/ MAS/ MAS/ MAS/ MAS/ MAS/ MAS /MAS /MAS/M AS /MAS/MA S/MA S/MA S/MA S/MAS/MA S/MA S/ 

MA S/MA S/MA S/ MAS/ MAS/ MAS/ MAS/ MAS/ MAS/M AS /MAS/MAS/MAS/M AS /M/S S/MA S/MA S/MA S/MA S/MA S/MA S/ 

MAS /MAS/ MAS/ MAS/ MAS/ MAS/ MAS/ MAS/ MAS/M AS/MAS/MAS /MA S/M AS/MAS/MAS /MAS/MAS/MAS/ 

MAS/ MAS/ MAS/MAS/ MAS /MAS/ MAS/ MAS/ MAS /MAS /MAS/M AS/M AS/MA S/MA S/MAS/MA S/ 

MAS /MA S/M AS/ MAS /MAS/ MAS/ MAS/ MAS/M A S/M AS/MAS /MAS/MAS/MAS/MAS/ 

MAS /MAS/ MAS/ MAS/ MAS /MAS/ MAS/M AS/MAS /MAS /MAS/MAS/MAS/ 

MAS/ MAS/ MAS /MAS/ MAS/ MAS /MAS/MAS/MA S/M AS/MAS/ 

MAS/MAS/ MAS/ MAS/M AS/MAS/MAS/MAS /MAS/ 

MAS /MAS/ MAS/M AS/MAS/MAS/MAS/ 

MAS/ MAS/ MAS/M AS/MAS/ 

MAS/MAS/MAS/ 

MAS/ 

MAS/ 

MAS/MAS/MAS/ 

MAS/ MAS /MAS/M AS/MAS/ 

MAS/ MAS/ MAS/ MAS/M AS/MAS/MAS/ 

MAS/ MAS /MAS/M AS/MAS/MAS/MAS/MAS/MAS/ 

MAS/ MAS/MAS/MAS/ MAS/ MAS /MAS/MAS/MAS/MAS/MAS/ 

MAS/ MAS/ MAS/ MAS/ MAS/ MAS /MAS/M AS/MAS/MAS/MAS/MAS/MAS/ 

MAS/M AS /MAS/ MAS/ MAS/ MAS /MAS/ MAS /MAS /MAS/M AS /MAS/MAS /HAS /MAS/ 

MAS/MAS/ MAS/MAS/ MAS/ MAS/ MAS/ MAS/ MAS /MAS/M AS/MAS/M AS/MAS7MA S/MAS/MAS/ 

MA S/MA S/MA S/M AS /MAS/ MAS/ MAS/ MAS/ MAS/M AS/MAS /MAS/M A S/M AS/MAS/MAS/MAS/MAS/MAS/ 

MA S/MA S/MA S/MAS/MAS/ MAS/ MAS/ MAS/ MAS/ MAS/ MAS/M AS/MAS/M AS /MA S/MA S/MA S/MA S/MA S/MAS/MAS/ 

MA S/MA S/MA S/MAS/MAS/ MAS/ MAS/ MAS/ MAS/ MAS/ MAS/M AS/MAS/M AS/MAS/M AS/MAS/MA S/MA S/MAS/MAS/MAS/MAS/ 

MA S/MA S/MA S/MA S/MAS/MAS/ MAS/ MAS/ MAS/ MAS/M AS/MAS/M AS/MAS/M AS/MAS/M AS/MAS/MAS/MA S/MAS/MAS/MAS/MAS/ MAS/ 

MA S/MA S/MA S/MAS/MA S/MA S/MAS/MAS/ MAS/ MAS/ MAS/ MAS/MAS/MAS/MAS /N AS/MAS/M AS/MA S/MA S/MA S/MA S/MAS/MA S/MA S/MAS/MAS/ 

MA S/MA S/MA S/MA S/MA S/MAS/MAS/MAS/MAS/ MAS/ MAS/ MAS/ MAS/M AS/MA S/MAS/MAS /MAS/MA S/MA S/MA S/MA S/MA S/MAS/MAS/ MAS/MAS/ 

MA S/MA S/MA S/MA S/MA S/MAS/MAS/ MAS/ MAS/ MAS/ MAS/M AS/MAS/M AS/MAS/M AS/MA S/MA S/MA S/MA S/MAS/MA S/MA S/MAS/MAS/ 

MA S/MAS/MA S/MAS/MAS/ MAS/ MAS/ MAS/ MAS/ MAS/ MAS/M AS/MAS/M AS/MAS/M AS/MAS/MAS/MAS/MAS/MA S/MAS/MAS/ 

MAS/MA S/MA S/MAS/MAS/MAS/MAS/ MAS/ MAS /MAS /MAS/MAS/MAS/MAS /MAS/MAS/MA S/MAS/MAS/MAS/MAS/ 

MA S/MAS/MAS/ MAS/MAS/ MAS/ MAS/ MAS/M AS /MAS/MAS/MAS/MAS/M AS/MAS/MAS/MA S/MAS/MAS/ 

MAS/MA S/MAS/MAS/ MAS/ MAS /MAS/ MAS/M AS /MAS/M AS/MA S/M A S/MA S/MA S/MAS/MAS/ 

MAS/M AS/ MAS/MAS/ MAS/ MAS/ MAS/ MAS/M AS/MAS/M AS/MAS/MAS/MAS/MAS/ 

MAS/ MAS/MAS/MAS/ MAS/ MAS/ MAS /MAS/MAS/MAS/MAS/MAS /MAS/ 

MAS/ MAS/ MAS/ MAS /MAS/ MAS /MAS/M AS/MAS /MAS/MAS/ 

MAS/ MAS/ MAS/ MAS/M AS/MAS/MAS/MA S/M AS/ 

MAS/ MAS/ MAS/MAS/MAS/MAS/MAS/ 

MAS/ MAS/M AS/MAS/MAS/ 

MAS/MAS/MAS/ ' ; • 
MAS/ 



♦♦ERROR MESSAGES** 

NO BOUNOARY ERRORS 
NO STRING CONTROL BLOCK ERRORS 
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